|
楼主 |
发表于 2009-10-2 13:51:25
|
显示全部楼层
来自 中国–广东–中山
- '获取结果记录
- On Error Resume Next
- Set rs = webcfg.GetPageCon(page)
- Row = 0
- StartRow = 0
- Row = webcfg.CurrentRow
- StartRow = Row
- '获取记录集时的错误处理
- If Err.number<>0 then
- Response.write("Error 1# " & CStr(Err.Number) & " " & Err.Description & "<br>")
- End if
- If rs is nothing Then
- response.write "<DIV class=list>无任何数据!" & "<BR /></DIV>"
- Else
- Do While Not(rs.eof Or rs.bof)
- Row=Row+1
- uid = Cint(rs.fields.item("id"))
- NameStr=rs.fields.item("authid")
- block = Cint(rs.fields.item("block"))
- level = rs.fields.item("level")
- lastip = rs.fields.item("lastip")
- lastlogin = rs.fields.item("lastlogin")
- OnlineTime = Clng(rs.fields.item("onlinetime"))
- mhOnlineTime=formatnumber((OnlineTime/60), 2, -1, -2, -1)
- ostr = "<DIV ID=Aoif_" & uid & " STYLE=""display: none;""><DIV class=aoif_list><Div class=aoif_list_title>权限: </DIV>" & rs.fields.item("flags") & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list TITLE='下一等级需得分: " & WriteLevelInfo( level, 1)+1 & "'><DIV class=aoif_list_r><DIV class=aoif_list_title>名称: </DIV>" & WriteLevelInfo(level, 0) & "</DIV><DIV class=aoif_list_title>等级: </DIV>" & level & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><DIV class=aoif_list_r><DIV class=aoif_list_title>在线时间:</DIV>" & rs.fields.item("onlinetime") & "</DIV><DIV class=aoif_list_title>登陆次数: </DIV>" & rs.fields.item("logins") & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><Div class=aoif_list_title>最后登陆:</DIV>" & lastlogin & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><Div class=aoif_list_title>登陆IP: </DIV><DIV>" & lastip & "</DIV></DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><Div class=aoif_list_title>服务器号:</DIV>" & rs.fields.item("loginserver") & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><DIV class=aoif_list_r><DIV class=aoif_list_title>伤害:</DIV>" & rs.fields.item("damage") & "</DIV><DIV class=aoif_list_title>误杀: </DIV>" & rs.fields.item("tks") & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><DIV class=aoif_list_r><DIV class=aoif_list_title>爆头:</DIV>" & rs.fields.item("hs") & "</DIV><DIV class=aoif_list_title>伤亡: </DIV>" & rs.fields.item("deaths") & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><DIV class=aoif_list_r><DIV class=aoif_list_title>击中:</DIV>" & rs.fields.item("hits") & "</DIV><DIV class=aoif_list_title>开枪: </DIV>" & rs.fields.item("shots") & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><DIV class=aoif_list_r><DIV class=aoif_list_title>拆雷成功:</DIV>" & rs.fields.item("defused") & "</DIV><DIV class=aoif_list_title>拆雷: </DIV>" & rs.fields.item("defusions") & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><DIV class=aoif_list_r><DIV class=aoif_list_title>爆炸:</DIV>" & rs.fields.item("explosions") & "</DIV><DIV class=aoif_list_title>埋雷: </DIV>" & rs.fields.item("plants") & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><DIV class=aoif_list_r><DIV class=aoif_list_title>胸部:</DIV>" & rs.fields.item("bodyhit2") & "</DIV><DIV class=aoif_list_title>头部: </DIV>" & rs.fields.item("bodyhit1") & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><Div class=aoif_list_title>腹部:</DIV>" & rs.fields.item("bodyhit3") & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><DIV class=aoif_list_r><DIV class=aoif_list_title>右臂:</DIV>" & rs.fields.item("bodyhit5") & "</DIV><DIV class=aoif_list_title>左臂: </DIV>" & rs.fields.item("bodyhit4") & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><DIV class=aoif_list_r><DIV class=aoif_list_title>右腿:</DIV>" & rs.fields.item("bodyhit7") & "</DIV><DIV class=aoif_list_title>左腿: </DIV>" & rs.fields.item("bodyhit6") & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><DIV class=aoif_list_r><DIV class=aoif_list_title> 射击精度:</DIV>" & rs.fields.item("acc_s") & "</DIV><DIV class=aoif_list_title>生存率: </DIV>" & rs.fields.item("eff_life") & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><Div class=aoif_list_title>暴头率:</DIV>" & rs.fields.item("acc_hs") & "</DIV>" & vbCrlf
- ostr = ostr & "<DIV class=aoif_list><Div class=aoif_list_title>个性签名:</DIV>" & rs.fields.item("usig") & "</DIV></DIV>" & vbCrlf
- %><DIV class=list >
- <DIV class=list_r >
- <DIV class=list_n onmouseover="Sgc.ShowAoinf(this, event, '', 'Aoif_<%=uid%>', 1);" onmouseout="Sgc.SetAoinfHide();"><%=rs.fields.item("score")%></DIV>
- <DIV class=list_n ><%=rs.fields.item("frags")%></DIV>
- <DIV class=list_n Title="<%=mhOnlineTime%> 小时"><%=OnlineTime%></DIV>
- <DIV class=list_t ><%=rs.fields.item("regdate")%></DIV>
- <DIV class=list_t ><SPAN class=Sgc_IPAddressInfoView name="<%=lastip%>"><%=lastlogin%></SPAN></DIV></DIV>
- <DIV ID="<%="vwouter" & uid %>"><A title="查看武器统计数据" HREF="show_wpstat.asp?action=1&uid=<%=uid%>" TARGET="weaponspage"><DIV class=list_n id=<%="vwinner" & uid %>><%Response.Write Row%></DIV></A>
- </DIV>
- <DIV class=list_tx Title="<%=NameStr%>">
- <% If len(NameStr) > 18 Then '限制显示的ID字符串长度
- ONameStr = Left(NameStr, 18) & ".."
- Else
- ONameStr = NameStr
- End If
- If MKey Then '添加SetBlock连接
- Response.Write "<a href='opCheck.asp?Action=SetBlock&SID=" & Server.URLEncode(NameStr) & "&block=" & block & "' onclick=""return confirm('将进行阻止/取消阻止操作,是否继续?')"" Title='阻止/取消阻止该ID登陆游戏'>" & ONameStr & "</a>"
- Else
- Response.Write ONameStr
- End If
- %></DIV>
- <DIV class=list_con ></DIV><DIV><% =(rs.fields.item("country") & " " & rs.Fields.Item("area")) %></DIV></DIV>
- <DIV class=wps_border id=<%="vwcon" & uid%> STYLE="DISPLAY: none; TEXT-ALIGN: left">
- <DIV id=<%="vwcont" & uid%> STYLE="PADDING-RIGHT: 3px; PADDING-LEFT: 3px; PADDING-BOTTOM: 3px; PADDING-TOP: 2px"></DIV></DIV>
- <%
- Response.Write ostr
- rs.movenext
- Loop
- If StartRow = Row Then
- Response.Write "<DIV class=list>无数据." & "<BR /></DIV>"
- End if
- rs.Close
- Set RS=nothing
- '移动记录指针错误处理(非必要)
- If err then
- response.write("Error 2# " & CStr(Err.Number) & " " & Err.Description & "<br>")
- End if
- End if
- %><DIV class=searchbar>
- <FORM action=Search.asp method=get>
- 快速搜索:
- <INPUT name=keyword>
-
- 模糊:
- <INPUT NAME="searchsel" TYPE="radio" VALUE="sbid">
- 精确:
- <INPUT NAME="searchsel" TYPE="radio" VALUE="srid" CHECKED>
-
- <INPUT type=submit value=搜索 name=submit>
-
- </FORM>
- </DIV></DIV>
- <!--翻页导航条 开始//-->
- <DIV CLASS="bartable" STYLE="margin-top: 2px;height: 26px;">
- <DIV STYLE="float:right;">
- <%
- '分页导航工具条
- dim pBar, vBarStr
- set pBar = webcfg.PagNavBarSet()
- '错误显示(非必要)
- if err then
- response.write("Error 88# " & CStr(Err.Number) & " " & Err.Description & "<br>")
- End if
- if pBar is nothing then
- response.write ".........<br>"
- else
- '当前页引用Url, 当前页, 数字导航页数, 总记录数, 总页数, 当前页显示记录数, 到首页, 前N页, 后N页, 到尾页, 导航页码.
- on error resume next
- vBarStr = ShowPageBar(pBar.PageUrl, pBar.Page, pBar.PageNumListSize, pBar.RecordCount, pBar.PageCount, pBar.CurPageRecordCount, pBar.GoToFirstPage, pBar.GoToPrevPage, pBar.GoToNextPage, pBar.GotoEndPage, pBar.PageNumList)
-
- '输出
- response.write vBarStr
- if err then
- response.write("Error 3# " & CStr(Err.Number) & " " & Err.Description & "<br>")
- End if
- end if
- %>
- </DIV></DIV><BR><BR>
复制代码 |
|