<%
count=1
set rs=Server.CreateObject("ADODB.Recordset")
sql = "select * from First_Category where CateName='网上学习'"
rs.open sql,conn,1,1
Cateid=trim(rs("Cateid"))
rs.close
set rs = nothing
%>
 |
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from News where cateid='"&cateid&"'order by posttime desc"
rs.open sql,conn,1,1
do while not rs.eof and count<7
%>
 | target=_blank>
<% response.Write rs("title")%>
|
| |
<%count=count+1
rs.movenext
loop
rs.close
set rs = nothing
%>
|
0315-2823645