<% '显示热点新闻的所属新闻类别名称
Dim newsclass2
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="Select class,title From newsclass"
Rs1.Open Sql1,conn,3,3
%>
<% '在页面右侧显示每个新闻类别的名称
Dim newsclass1
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="Select class,title From newsclass"
Rs1.Open Sql1,conn,3,3
Do While not Rs1.EOF
%>
<%
Rs1.MoveNext
Loop
Rs1.Close
Set Rs1=nothing
%>
|
|
|
