【我的历史应战记录】
我的应战记录
<% 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 id2=rs("reuseid") dim getname,getname2 if rs("about2")="B" then getname="获胜," getname2="您赚了"&rs("num")&getcent&"！
" elseif rs("about2")="A" then getname="失败," getname2="您输了"&rs("num")&getcent&"！
" elseif rs("about2")="C" then getname="平局" getname2="！
" else getname="放弃挑战" getname2="！
" end if If rs("op")=1 Then Response.write "您应战了ID" & rs("useid") & "编号"&rs("id")&"的挑战,"&getname&getname2 else Response.write "您应战了ID" & rs("useid") & "编号"&rs("id")&"的挑战,未回应
" end if 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 %>-------------