R版主帮忙看看代码错误在那里
<!--#include file="Inc/Const.asp" --><!--#include file="Inc/Conn.asp" -->
<!--#include file="Inc/Config.asp" -->
<!--#include file="Inc/Function.asp" -->
<%
'*****************************************************************************
'* CS 玩家注册统计系统 1.12.6 *
'*【特别声明】 *
'* 本系统为共享软件，仅供个人使用，未经作者同意，不得用于商业用 *
'* 使用时，请保留以下信息。否则作者有权追究其法律责任！ *
'* *
'*版权所有: Icarusli，Tommy *
'* 程序制作: Tommy *
'* *
'*联系方式: *
'* EMAIL：clas@21cn.com *
'* OICQ：416822451 *
'* *
'*主页地址: http://icarusli.vicp.net/blog/ *
'* http://isee.9966.org/blog/ *
'* *
'* 2007-02-03 *
'*****************************************************************************
'---------------
Dim stime,etime '计时
Dim MKey '(布尔值)一般登陆权限(普通前台操作)
Dim LoginName '是否已登录
Dim ModeSwitch '运行模式
stime = timer
ModeSwitch = webcfg.ModeSwitch '取得当前系统设定的运行模式（-1：仅数据统计模式。）
'检查当前登陆的权限。
MKey = CheckUserAccess()
LoginName = GetLoginName()
'获取等级信息
GetLevelInfo()
if err then
response.write("Error 1# " & CStr(Err.Number) & " " & Err.Description & "<br>")
err.clear
End if
'---------------
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">
<html><head>
<title>CS注册、排行统计系统</title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312" />
<META content=index,follow name=Robots />
<META content="Sgc-CS注册统计系统" name=Author />
<META content="MSHTML 6.00.2900.3020" name=GENERATOR />
<META content=Icarusli name=Copyright />
<META content="cs, stat., register, CS游戏, 注册, CS注册, CS排名统计系统, CS个性签名, tommy, icarusli" name=Keywords />
<META content="CS玩家注册，数据统计，IP地址信息查询系统" name=Description />
<META http-equiv=MSThemeCompatible content=Yes />
<META name="revised" content="Tommy 2007-2-5" />
<META http-equiv=ImageToolbar content=No />
<META http-equiv=Expires content=-1 />
<META http-equiv=Pragma content=No-Cache />
<META http-equiv=html content=no-cache />
<SCRIPT type=text/javascript>
//<![WSDE[
var deSitePath = ''; //指定获取IP区域信息文件所在目录
//]]>
</SCRIPT>
<SCRIPT SRC="Script/prototype.js" type=text/javascript></SCRIPT>
<SCRIPT SRC="Script/SgcUsf.js" type=text/javascript></SCRIPT>
<SCRIPT SRC="Script/Check_Form.js" type=text/javascript></SCRIPT>
<SCRIPT language=javascript>
<!--
function CheckForm()
{
<%If LoginName="" Then '未登录
%>
if(document.login.loginid.value=="")
{
alert("请输入名字！");
document.login.loginid.focus();
return false;
}
<%End If%>
if(document.login.password.value == "")
{
alert("请输入密码！");
document.login.password.focus();
return false;
}
if (document.login.checkcode.value==""){
alert ("请输入您的验证码！");
document.login.checkcode.focus();
return(false);
}
}
function CheckBrowser()
{
var app=navigator.appName;
var verStr=navigator.appVersion;
if (app.indexOf('Netscape') != -1) {
alert("使用提示：\n 你使用的是Netscape浏览器，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。\n 建议使用1024*768分辨率");
}
else if (app.indexOf('Microsoft') != -1) {
if (verStr.indexOf("MSIE 3.0")!=-1 || verStr.indexOf("MSIE 4.0") != -1 || verStr.indexOf("MSIE 5.0") != -1 || verStr.indexOf("MSIE 5.1") != -1)
alert("使用提示：\n 如果浏览器版本太低，可能会导致编辑器的部分功能异常。建议您使用 IE6.0 或以上版本。\n 建议使用1024*768分辨率");
}
}
//-->
</SCRIPT>
<LINK REL="stylesheet" HREF="skins/style.css" TYPE="text/css">
<STYLE TYPE="text/css">
<!--
.style1 {
color: #C5B791;
font-weight: bold;
}
-->
</STYLE>
</head>
<body>
<DIV STYLE="HEIGHT: 0px"></DIV>
<DIV class=wrap>
<DIV STYLE="FLOAT: top"><IMG SRC="Skins/toppic.JPG" WIDTH="780" HEIGHT="185" ALIGN="top"></DIV>
<DIV class=LH>
<DIV>CS排行统计系统</DIV></DIV>
<DIV id=tdleft>
<DIV STYLE="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px">
<DIV STYLE="MARGIN-RIGHT: 3px">
<%
If ModeSwitch = -1 Then
Response.Write "<DIV>［<A class=cblue href='Admin/Admin_login.asp'>管理登录</A>］</DIV>"
Else
Response.Write "<DIV>［<A class=cblue href='reg.asp'>注册新ID号</A>］ ［<A class=cblue href='Admin/Admin_login.asp'>管理登录</A>］</DIV>"
If LoginName<>"" Then '已登录
%>
<FORM NAME="login" Action="opCheck.asp?Action=Modify" method=post onSubmit="return CheckForm();">
<DIV>当前登陆ID：<B><%=LoginName%></B> 新密码：
<INPUT TYPE="password" size=20 name=password> 验证码：
<INPUT size=4 name=checkcode>
<IMG STYLE="CURSOR: pointer" onClick="this.src='inc/checkcode.asp'"
height=18 alt=看不清楚?点击换一个验证码。
src="inc/checkcode.asp">
<INPUT type=submit value=更改个人信息 name=submit>
<A HREF="logout.asp?url=<%=webcfg.VPath%>">退出</A><BR>
<BR>
个性签名：
<INPUT NAME="usign" TYPE="text" size=46 MAXLENGTH="96" ID="usign" VALUE="">
</DIV>
</FORM>
<%Else%>
<FORM NAME="login" action=opCheck.asp?action=login method=post onSubmit="return CheckForm();">
<DIV>已注册ID登陆：ID：
<INPUT size=31 name=loginid TYEP="text" ID="loginid"> 验证码：<INPUT size=4 name=checkcode ID="checkcode">
<IMG STYLE="CURSOR: pointer" onClick="this.src='inc/checkcode.asp'"
height=18 alt=看不清楚?点击换一个验证码。
src="inc/checkcode.asp"> 密码：
<INPUT type=password size=15 name=password ID="password">
<INPUT type=submit value=登录 name=submit></DIV></FORM>
<%End If
End If%><DIV STYLE="MARGIN-TOP: 10px"></DIV>
</DIV></DIV></DIV>
<DIV class=LH>
<DIV class=list_t_r>
<DIV class=list_t_c STYLE="WIDTH: 50px" Title="(杀敌-死亡+爆头)">得分</DIV>
<DIV class=list_t_c STYLE="WIDTH: 50px">杀敌</DIV>
<DIV class=list_t_c STYLE="WIDTH: 50px" Title="在线时间(分钟)">耗时</DIV>
<DIV class=list_t_c STYLE="WIDTH: 110px">注册时间</DIV>最后登陆</DIV>
<DIV class=list_t_c STYLE="WIDTH: 50px"> # </DIV><DIV class=list_t_c STYLE="WIDTH: 139px"> ID </DIV>
<DIV> 地区 </DIV></DIV>
<%
Dim rs, sqlStr, rstest, Row, StartRow
Dim uid, block, level
Dim NameStr, ONameStr, OnlineTime, mhOnlineTime, lastip, lastlogin
Dim page
Dim ostr '附加信息字符串
page = Trim(Request("page"))
IF ISNUMERIC(page) Then
page = CLng(page)
Else
page = 1
End If '获取结果记录
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> <!--翻页导航条 结束 //-->
<IFRAME STYLE="BORDER-TOP-WIDTH: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; WIDTH: 0px; HEIGHT: 0px;BORDER-RIGHT-WIDTH: 0px" name=weaponspage SRC="about:blank"></IFRAME><BR>
<div class=wrap>
<SCRIPT LANGUAGE="JavaScript" TYPE="text/JavaScript">
<!--
CheckBrowser();
//-->
</SCRIPT>
<BR>
<BR><div STYLE="MARGIN-TOP: 2px; margin-left: 5px; text-align:left;">
<%
'IP搜索测试
dim ipdbpath
ipdbpath=server.mappath("ipdatabase/QQwry_big5.dat")
'ipseek.DefinDBPath(dbpath) '自定义路径
'response.write "自定义的路径：" & dbpath & "<br>"
ipseek.FillIPstr=0 '是否格式化IP字符串。
'response.flush()
'ipseek.getinfo("219.130.135.38") 'ＩＰ搜索
ipseek.getinfo()
response.write ipseek.mGetErr '错误信息
response.write "<br>"
response.write "地区信息:" & ipseek.country & " " & ipseek.area
response.write "<br>"
response.write "总记录数:" & ipseek.RecordCount '总记录数
response.write "<br>"
response.write "数据版本:" & ipseek.DataVer '版本
response.write "<br>"
response.write "所查询的IP为:" & ipseek.ip 'IP
response.write "<br>"
response.write "隐蔽后的IP为:" & ipseek.sip 'sIP
response.write "<br>"
response.write "客户端IE为:" & ipseek.c_ie 'IE
response.write "<br>"
response.write "客户端OS为:" & ipseek.c_os 'OS
response.write "<br><br>"
%><BR></div>
<BR>
</div>
<DIV STYLE="WIDTH: 320px">
<DIV><P CLASS="newconten style1">Copyright ©2006 - 2008 <A HREF="http://cswar3.kmip.net:8080/index.php/"><B>icarusli</B></A></DIV>
<DIV>Powered By <A HREF="http://cswar3.kmip.net:8080/index.php/" target=_blank>Tommy</A></DIV>
<DIV>QQ:416822451Email:clas@21cn.com </DIV>
<%
'---------------
'计时
etime=timer
response.write ("<div align=center>执行时间: " & formatnumber((etime-stime), 5, -1, -2, -1) & " 秒<BR></div>")
set ipseek=nothing
%></DIV><BR><BR>
<BR>
</body>
</html> 好复杂啊
页:
[1]