zxjb.asp
<!--#include file="conn.asp" -->
<%
zdft=0 '0:列入黑名单，1:列入黑名单并自动封停
zbfw=20 '判断举报角色坐标的偏移半径，超过超过偏移量视为恶意举报
jbkxd=10 '举报的可信度，超过可信度将列入黑名单
levl50=0 '50级以下角色的可信度
levl150=1 '低于150级角色的可信度
levl250=2 '100-250级角色的可信度
levlmax=3 '超过250级角色的可信度
eyjb=30 '错误举报超过此数量则列入恶意举报黑名单，取消举报资格，设为0:不限制
fxft=0 '0:恶意举报不封停举报人，1:恶意举报将反响封停举报人
jgdate=1 '用户连续举报同一角色间隔天数，0:不限制(建议限制天数)
yxdate=15 '名单有效期限，超过有效期限的纪录不计算可信度
ontime=8 '午夜0点至当前小时不开放此服务，由于日志更新原因，为保证是别的准确率，尽量暂停开放一段时间
jbsl=100 '限制每天举报的数量，跟9C差不多，0:不限制
filedir="d:\MuServer\GameServer\log\" 'GS日志路径
wglog="Too long time passed after casting magic." '外挂关键字,请不要随意更改
hk=0
user=request.form("user")
jbchr=request.form("jbchr")
pw=request.form("pw")
bjbchr=request.form("bjbchr")
dt=request.form("dt")
xz=request.form("xz")
yz=request.form("yz")
lx=request.form("lx")
bz=request.form("bz")
jf=request.form("jf")
if instr(user,"'")<>0 then hk=1
if instr(user,"=")<>0 then hk=1
if instr(user,"%")<>0 then hk=1
if instr(jbchr,"'")<>0 then hk=1
if instr(jbchr,"=")<>0 then hk=1
if instr(jbchr,"%")<>0 then hk=1
if instr(pw,"'")<>0 then hk=1
if instr(pw,"=")<>0 then hk=1
if instr(pw,"%")<>0 then hk=1
if len(user)>10 then hk=1
if len(jbchr)>10 then hk=1
if len(pw)>16 then hk=1
if hour(time())<ontime then
response.write "<script language=javascript>alert('\n\n对不起，举报系统暂时关闭!');history.back()</script>"
response.end
end if
if hk<>0 then
response.write "<script language=javascript>alert('\n\n请不要尝试入侵系统!');history.back()</script>"
response.end
end if
if user<>"" and jbchr<>"" and pw<>"" then
if dt<>"no" and xz<>"" and yz<>"" and bjbchr<>"" and lx<>"no" and len(bz)>0 and len(bz)<100 then
set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="select * from Character where Name='"&bjbchr&"'"
rs3.open sql3,conn,1,1
if rs3.eof or rs3.bof then
response.write "<script language=javascript>alert('\n\n没找到举报的角色，请重新填写!');history.back()</script>"
response.end
end if
set rs5 = Server.CreateObject("ADODB.Recordset")
sql5="select * from hmd_info where memb___id='"&user&"' and chr='"&jbchr&"' and date_info>'"&date()-yxdate&"'"
rs5.open sql5,conn,1,1
if rs5.eof or rs5.bof then
else
response.write "<script language=javascript>alert('\n\n你已经被列入黑名单，无资格举报他人!');history.back()</script>"
response.end
end if
set rs4 = Server.CreateObject("ADODB.Recordset")
sql4="select * from zxjb_info where bjbchr='"&bjbchr&"' and jbchr='"&jbchr&"' and date_info>'"&date()-jgdate&"'"
rs4.open sql4,conn,1,1
ey=0
if rs4.eof or rs4.bof then
else
ey=1
end if
'response.write "地图号:["&dt&"]("&rs3("MapNumber")&")<br>"
'response.write "X:["&xz&"]("&rs3("MapPosX")&")|Y:["&yz&"]("&rs3("MapPosY")&")<br>"
'response.write "恶意判定:["&ey&"]"
if rs3("MapNumber")=int(dt) and xz+zbfw>rs3("MapPosX") and xz-zbfw<rs3("MapPosX") and yz+zbfw>rs3("MapPosY") and yz-zbfw<rs3("MapPosY") then
else
response.write "<script language=javascript>alert('\n\n您输入的地图和位置不正确，没有发现该角色或者已经离开!');history.back()</script>"
response.end
end if
if mid(date(),8,1)="-" then
da=mid(date(),1,4)&mid(date(),6,2)
if len(date())=10 then
da=da&mid(date(),9,2)
else
da=da&"0"&mid(date(),9,1)
end if
else
da=mid(date(),1,4)&"0"&mid(date(),6,1)
if len(date())=9 then
da=da&mid(date(),8,2)
else
da=da&"0"&mid(date(),8,1)
end if
end if
filepath=filedir&da&"_Mu.log"
set mulog=server.createobject("scripting.filesystemobject")
if not mulog.fileExists(filepath) then
response.write "<br>日志文件没找到，请与管理员联系!"
response.end
else
set f1=mulog.opentextfile(filepath)
end if
userlog=0
do while not f1.atEndOfStream
n=f1.readline
if instr(n,wglog)<>0 and instr(n,bjbchr)<>0 then
userlog=1
exit do
end if
loop
f1.colst
if ey=0 and userlog=1 then
set rs4 = Server.CreateObject("ADODB.Recordset")
sql4="INSERT INTO zxjb_info (bjbchr,jbchr,jf,dt,xz,yz,bz,date_info,jjf) VALUES ('"&bjbchr&"','"&jbchr&"','"&jf&"','"&dt&"','"&xz&"','"&yz&"','"&bz&"','"&date()&" "&time()&"','0')"
set rs4=conn.execute(sql4)
rs4.close
set rs4 = Server.CreateObject("ADODB.Recordset")
sql4="select * from zxjb_info where bjbchr='"&bjbchr&"' and date_info>'"&date()-yxdate&"'"
rs4.open sql4,conn,1,1
n=0
ft=0
for i=1 to rs4.recordcount
n=rs4("jf")+n
rs4.movenext
next
'检查可信度
if n>jbkxd then
'如果开启自动封停
if zdft=1 then
set rsft = Server.CreateObject("ADODB.Recordset")
sqlft="select * from MEMB_INFO where memb___id = '"&rs3("AccountID")&"'"
rsft.open sqlft,conn,1,3
rsft("bloc_code")="1"
rs1.update
rs1.close
ft=1
end if
set rs5 = Server.CreateObject("ADODB.Recordset")
sql5="select * from hmd_info where memd___id='"&fengid&"'"
rs5.open sql5,conn,1,3
if rs5.eof or rs5.bof then
sql5="INSERT INTO hmd_info (memb___id,chr,lx,jf,date_info,ft) VALUES ('"&rs3("AccountID")&"','"&bjbchr&"','1','"&n&"','"&date()&" "&time()&"','"&ft&"')"
set rs5=conn.execute(sql5)
else
rs5("chr")=bjbchr
rs5("lx")="1"
rs5("jf")=rs5("jf")+jf
rs5("date_info")=date()&" "&time()
rs5("ft")=ft
rs5.update
rs5.close
end if
if ft=1 then
response.write "<script language=javascript>alert('\n\n您举报的人物已经查实，现已封停处理!');location.href='ftlb.asp'</script>"
else
response.write "<script language=javascript>alert('\n\n您举报的人物已经查实，正在等待处理!');location.href='ftlb.asp'</script>"
end if
response.end
else
response.write "<script language=javascript>alert('\n\n您举报的人物已经查实，正在等待处理!');location.href='ftlb.asp'</script>"
response.end
end if
else
er="未检测到对方的可疑迹象，"
if ey=1 then er="您的重复举报将被视为恶意举报，"
set rs4 = Server.CreateObject("ADODB.Recordset")
sql4="INSERT INTO zxjb_info (bjbchr,jbchr,jf,dt,xz,yz,bz,date_info,jjf) VALUES ('"&bjbchr&"','"&jbchr&"','0','"&dt&"','"&xz&"','"&yz&"','"&bz&"','"&date()&" "&time()&"','"&jf&"')"
set rs4=conn.execute(sql4)
rs4.close
set rs4 = Server.CreateObject("ADODB.Recordset")
sql4="select * from zxjb_info where jbchr='"&jbchr&"' and date_info>'"&date()-yxdate&"'"
rs4.open sql4,conn,1,1
n=0
ft=0
for i=1 to rs4.recordcount
n=rs4("jjf")+n
rs4.movenext
next
'检查可信度
if n>eyjb and eyjb<>0 then
'如果开启自动封停
if fxft=1 then
set rsft = Server.CreateObject("ADODB.Recordset")
sqlft="select * from MEMB_INFO where memb___id = '"&user&"'"
rsft.open sqlft,conn,1,3
rsft("bloc_code")="1"
rs1.update
rs1.close
ft=1
end if
set rs5 = Server.CreateObject("ADODB.Recordset")
sql5="select * from hmd_info where memd___id='"&fengid&"'"
rs5.open sql5,conn,1,3
if rs5.eof or rs5.bof then
sql5="INSERT INTO hmd_info (memb___id,chr,lx,jf,date_info,ft) VALUES ('"&user&"','"&jbchr&"','2','"&n&"','"&date()&" "&time()&"','"&ft&"')"
set rs5=conn.execute(sql5)
else
rs5("chr")=jbchr
rs5("lx")="2"
rs5("jf")=rs5("jf")+jf
rs5("date_info")=date()&" "&time()
rs5("ft")=ft
rs5.update
rs5.close
end if
if ft=1 then
response.write "<script language=javascript>alert('\n\n"&er&"您的恶意举报人物数已经超标，现已将你封停处理!');location.href='ftlb.asp'</script>"
else
response.write "<script language=javascript>alert('\n\n"&er&"您的恶意举报人物数已经超标，正在等待处理!');location.href='ftlb.asp'</script>"
end if
response.end
else
response.write "<script language=javascript>alert('\n\n"&er&"您的恶意举报被记录!');location.href='ftlb.asp'</script>"
response.end
end if
end if
else
if request.form("tj")<>"" then
response.write "<script language=javascript>alert('\n\n资料错误或填写不完整!');history.back()</script>"
response.end
end if
set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from MEMB_INFO where memb___id = '"&user&"' and memb__pwd='"&pw&"'"
rs1.open sql1,conn,1,1
if rs1.eof or rs1.bof then
response.write "<script language=javascript>alert('\n\n帐号信息错误,请重新填写!');history.back()</script>"
response.end
end if
set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from Character where AccountID='"&user&"' and Name='"&jbchr&"'"
rs2.open sql2,conn,1,1
if rs2.eof or rs2.bof then
response.write "<script language=javascript>alert('\n\n没找到角色，请重新填写!');history.back()</script>"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>-=在线举报=-</title>
<link href="img/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<!--#include file="top.asp" -->
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="#666666" frame=vsides rules=none>
<TR>
<td width=204 align=left vAlign=top background="img/left_bg.gif">
<img src="img/left_top_news.gif" width="204" height="36"><img src="img/left02_hy.gif" width="197" height="40">
<img src="img/122.gif" width="195" height="130" class="hand">
<table width="99%">
<tr>
<td width="100%" height="1"></td>
</tr>
</table>
<!--#include file="inc_ft.asp" -->
<table width="99%">
<tr>
<td width="100%" height="4"></td>
</tr>
</table>
<table width="195" background="img/xu2.gif">
<tr>
<td width="182" height="1"></td>
</tr>
</table>
<table width="99%">
<tr>
<td width="100%" height="5"></td>
</tr>
</table></TD>
<td width=1 height="190" background="img/xu.gif"></TD>
<td width=553 align=left vAlign=middle bgcolor="#FFFFFF"><table width="99%">
<tr>
<td width="100%" height="26"></td>
</tr>
</table>
<table width="496" height="396" border="0" align="center" cellpadding="3" cellspacing="0">
<form action="" method="post" name="tjform"><tr>
<td width="490" height="34" align="left" > <table width="489" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="483" height="22" align="center" style="font-size:16px"><strong>[<%=jbchr%>]在线举报</strong></td>
</tr>
</table></td>
</tr>
<tr>
<td height="191" align="center"> <TABLE align=left border=0 cellPadding=5 cellSpacing=1 width="490">
<TBODY>
<TR>
<TD align=right class=txt_gray width="124">
