" Response.write "会员I D:" Response.write "搜回复" Response.write "" Response.write "" Response.write "
" dim ids ids=request("ids") if ids<>"" then if ids="" or Isnumeric(ids)=False then Call Error("会员ID无效！") end if '检查ID是否存在 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT id,name FROM users where id="&ids,conn,1,1 if rs.eof then rs.close set rs=Nothing Call Error("会员ID不存在！") end if username=rs("name") rs.close set rs=Nothing end if if ids<>"" then Response.write "会员"&username&"("&ids&")的回复
" gettxt="where fid="&ids&"" end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from relist "&gettxt&" order by id desc",conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage gopage="relist.asp?ids="&ids&"&sid="&sid&"&" Count=rs.recordcount 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 "[删]" response.write ""&i+(page-1)*PageSize&"." response.write ubb(rs("nr"))&fordate2(rs("htm"))&"
" rs.moveNext Next 'response.write "
"&chr(13) if page-pagecount<0 then response.write "下一页"&chr(13) if page>1 then response.write "上一页"&chr(13) response.write "
["&page&"/"&pagecount&"页 "&count&"贴]
" if pagecount>1 then response.write "跳到该页
" Else response.write "暂时没有回复！
" end if rs.close set rs=nothing conn.close set conn=nothing response.write"
回复处理"%>