查询单页列表HAIRUICMS
<%
set PageListRs=server.CreateObject("adodb.recordset")
PageListRs.open "select ItemID,Item1 from Cuz_About where "&ItemRecT&" order by Seq asc,ItemID asc",conn,1,1
...
<%
set PageListRs=server.CreateObject("adodb.recordset")
PageListRs.open "select ItemID,Item1 from Cuz_About where "&ItemRecT&" order by Seq asc,ItemID asc",conn,1,1
do while not PageListRs.eof
%>
<li><a href="/About/Show.asp?ItemID=<%=PageListRs("ItemID")%>"><%=PageListRs("Item1")%></a></li>
<%
PageListRs.movenext
loop
PageListRs.close
set PageListRs=nothing
%>
上一篇：友情链接调用代码（带样式）
下一篇：查询公告列表
我要评论