sort_class.asp

来自「起点9 V2.0小说整站系统 介绍： 1、 采用企业级标准应用三层架构」· ASP 代码 · 共 27 行

<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from "&prefix&"bookclass where tid=0"
rs.open sql,conn,1,1
do while not rs.eof
list_page=list_page&"="&rs("title")&"=<br/>"
set rs1=server.CreateObject("ADODB.RecordSet")
sql1="select * from "&prefix&"bookclass where tid="&rs("id")&""
rs1.open sql1,conn,1,1
do while not rs1.eof
i=i+1
list_page=list_page&"<a href=""lists.asp?nid="&rs1("id")&"&amp;pnum="&pnum&"&amp;uid="&uid&"&amp;ups="&ups&""">"&rs1("title")&"</a>"
if i mod 2 =0 then
list_page=list_page&"<br/>"
else
list_page=list_page&"|"
end if

rs1.movenext
loop



rs.movenext
loop
%>