<% Response.write "会员I D:" response.write"
搜索类型:" response.write"转出会员" response.write"转入会员" response.write"
" Response.write "搜过户记录" Response.write "" Response.write "" Response.write "" Response.write "
" dim ids,gettxt,TP ids=request("ids") TP=request("TP") TP=clng(TP) if ids<>"" then if ids="" or Isnumeric(ids)=False then Call Error("ID无效！") end if end if set rs=server.CreateObject("ADODB.RecordSet") if TP=1 then rs.Open"select id,fromid,toid,banktimes,paycent from bankcent where fromid="&ids&" order by ID desc",conn,1,1 elseif TP=2 then rs.Open"select id,fromid,toid,banktimes,paycent from bankcent where toid="&ids&" order by ID desc",conn,1,1 else rs.Open"select id,fromid,toid,banktimes,paycent from bankcent order by ID desc",conn,1,1 end if If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage gopage="cent.asp?TP="&TP&"&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 fromid=rs("fromid") toid=rs("toid") paycent=rs("paycent") banktimes=rs("banktimes") Response.write ""&i+(page-1)*PageSize&"." dim rs1,rs2 set rs1=server.CreateObject("ADODB.RecordSet") rs1.Open"select name from users where id="&rs("fromid"),conn,1,1 if rs1.eof then fromname="不存在的会员" else fromname=rs1("name") end if rs1.close set rs1=nothing set rs2=server.CreateObject("ADODB.RecordSet") rs2.Open"select name from users where id="&rs("toid"),conn,1,1 if rs2.eof then toname="不存在的会员" else toname=rs2("name") end if rs2.close set rs2=nothing Response.write ""&ubb(fromname)&"(ID:"&usb(fromid)&")过户"&paycent&getcent&"到" Response.write ""&ubb(toname)&"(ID:"&usb(toid)&")
" Response.write "过户时间:"&banktimes&"
" rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页跳转" Else Response.write "暂时没有记录！" end if rs.close set rs=nothing conn.close set conn=Nothing %>