【我的历史抢话记录】
我的抢话记录
<% dim rs,ssql,TP,gettxt set rs=Server.CreateObject("ADODB.Recordset") gettxt="暂时还没有挑战记录!
" ssql="select * from YD_jd where reuseid=" & myid & " order by id desc" rs.open ssql,ydzqconn,1,1 if rs.eof then response.write gettxt Else Dim PageSize,i PageSize=listnum Dim Count,page,pagecount,gopage gopage="mypklist2.asp?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 if rs("num")=1 then dim getname if rs("num1")=2 then getname="游戏获胜!" else getname="游戏失败!" end if elseif rs("num")=2 then if rs("num1")=1 then getname="游戏获胜!" else getname="游戏失败!" end if else getname ="未回应" end if If rs("op")=1 Then Response.write "您应战了ID" & rs("useid") & "编号"&rs("id")&"的挑战,"&getname else Response.write "您应战了ID" & rs("useid") & "编号"&rs("id")&"的挑战,未回应" end if Response.write "
" 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 "跳到该页
" rs.close set rs=nothing end if ydzqconn.close set ydzqconn=nothing conn.close set conn=nothing %>-------------