% set conn = server.createobject("adodb.connection") conn.open Application("sql") %>
|
<% set rs = server.createobject("adodb.recordset") sql = "select kindname,face,bauthor,bemail,bgood,pxxh,zxtime,bid,btitle,viewcount,ashenfen,aid,kindid,fujian from bbs_all where kindid <> 17 and kindid <> 22 and replyid = 0 and isview = 1 order by zxtime desc" rs.open sql,conn,1 size = 20 rs.pagesize = size if request("page")="" then page=1 else page=Cint(request("page")) end if if page*size>rs.recordcount then cend=rs.recordcount else cend=page*size end if %>
|
||