set rs=server.CreateObject("adodb.recordset")
sql="Select * from [user] where flag=1"&sql1&sql2&sql3&sql4&sql5&" order by id desc"
rs.open sql,conn,1,1
If rs.eof then
response.write " <tr> <td align='center' colspan='7'> <font color='red'> 没有相关信息！ </font> </td> </tr> "
else
ps=20
rs.pagesize=ps
currentpage=request("page")
if currentpage="" then currentpage=1
if currentpage <1 then currentpage=1
if cint(currentpage)> cint(rs.pagecount) then currentpage=rs.pagecount
rs.absolutepage=currentpage
p_count=rs.pagecount
n_count=rs.recordcount
i=0
do while not rs.eof
后面的就不写了...
