<% dim cid cid=ubb(request.querystring("cid")) if cid="" or Isnumeric(cid)=False then cid=1 cid=abs(cid) set rs=Server.CreateObject("ADODB.Recordset") sql="select * from [mysq] where ids="&myid&" and cid="&cid&" order by id desc" rs.open sql,conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage gopage="mybook.asp?sid="&sid&"&" Count=conn.execute("Select count(ID) from [mysq] where ids="&myid)(0) page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) For i=1 To PageSize If rs.eof Then Exit For Response.write ""&i+(page-1)*PageSize&"." if rs("cid")=1 then set Rs1=Server.CreateObject("ADODB.Recordset") Sql1="select name from [sell] Where ID="&abs(rs("urlsq")) Rs1.open Sql1,conn,1,1 If rs1.eof Then titlename="贴子不存在！" else titlename=rs1("name") end if rs1.close set rs1=nothing Response.write ""&usb(titlename)&"" else Response.write ""&usb(rs("title"))&"" end if Response.write "[删除]
" Response.write "收藏时间:"&fordate(rs("Gxtime"))&"
" rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页,共"&Count&"条
跳到该页
" Else Response.write "暂时没有！
" end if rs.close set rs=nothing conn.close set conn=nothing Response.Write "收藏:" if cid<>1 then Response.Write "帖子"&chr(13) else Response.Write "帖子" end if if cid<>2 then Response.Write "文章"&chr(13) else Response.Write "文章" end if if cid<>3 then Response.Write "图片"&chr(13) else Response.Write "图片" end if if cid<>0 then Response.Write "网址
" else Response.Write "网址
" end if Response.Write "增加书签
" Response.Write "清空书签
" response.write"我的空间" %>