网站地图 设为首页 加入收藏
 
红月私服中心 下载中心 发布红月 技术资料 发布家族 游戏IP生成   开区服务  
红月卡图自救网站功能码(四)
文章作者:管理员 文章来源:红月私服中心-Www.hy45.Net 更新时间:2012/4/26 14:23:21 

<!--#include file="conn.asp" -->

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<% RCenter.WebGate(4) %>
<%
httpurl=request.servervariables("http_referer")
if instr(httpurl,SiteURL)=0 then
response.write "<script language=javascript>{alert('对不起,程序拒绝您的操作!!!请从主页登陆\n     按确定关闭!');window.close();}</script>"
response.end
end if
%>
<%
juesename=Lcase(request.form("juesename"))
loginname=Lcase(request.form("ps_loginname"))
MAP=left(request.form("MAP"),10)
X=request.form("X")
Y=request.form("Y")
checkdata(MAP)
if instr(MAP,"'")<>0 or instr(MAP,"=")<>0 or instr(MAP,"&")<>0 or instr(MAP,"%")<>0 or MAP="" then
response.write "<script language=javascript>alert('不要尝试攻击服务器!');history.back();</script>"
response.end
end if
if instr(X,"'")<>0 or instr(X,"=")<>0 or instr(X,"&")<>0 or instr(X,"%")<>0 or X="" then
response.write "<script language=javascript>alert('不要尝试攻击服务器!');history.back();</script>"
response.end
end if
if instr(Y,"'")<>0 or instr(Y,"=")<>0 or instr(Y,"&")<>0 or instr(Y,"%")<>0 or Y="" then
response.write "<script language=javascript>alert('不要尝试攻击服务器!');history.back();</script>"
response.end
end if
if map>3 then
response.write "<script language=javascript>alert('移动地图只能是:住1或者闹1');history.back();</script>"
response.End
end if

posttime=session("mapmoveposttime")
if posttime+600/86400>now() then
response.write "<script language='javascript'>"
   response.write "alert('为防止非正常利用,本功能的使用间隔最小时间为10分钟!');"
   response.write "history.go(-1);"
   response.write "</script>"
   Response.End
end if

if map=1 or map=3 then
if y<200 then
if x<200 then

set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from tblOccupiedBillID where BillID= '"&loginname&"'"
rs.open sql,conn,1,3
bill=rs("BillID")
if bill =loginname then
response.write "<script language=javascript>alert('人物不能在游戏中!');history.back()</script>"
response.end
end if

set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from tblGameID1 where GameID = '"&juesename&"'"
rs1.open sql,conn,1,3
rs1("MAP")=MAP
rs1("X")=X
rs1("Y")=Y
rs1("ToMap")=MAP
rs1.update
session("mapmoveposttime")=Now()
rs1.close
set rs1=nothing
conn.close
set conn=nothing
response.write "<script language=javascript>alert('您的角色已成功转入安全地图!您现在可以登陆游戏了!');location.href='move0.asp';</script>"
response.End

response.write "<script language=javascript>alert('X不能大于200');history.back();</script>"
response.End
end if
else
response.write "<script language=javascript>alert('Y不能大于200');history.back();</script>"
response.End
end if
else
response.write "<script language=javascript>alert('移动地图只能是住1或者闹1');history.back();</script>"
response.End
end if
%>

浏览次数:312
最新文章
· 2003系统任务栏显示桌面图标不见了处理办法...
· 修改红月私服某特定怪属性...
· 红月管理工具使用的配置...
· 教你怎么1个怪1级(去除10%限制)...
· 红月游戏帐号注册之二...
· 红月游戏帐号注册之三...
· 红月游戏帐号注册之一...
· 红月私服带杀人次数排行榜...
· 带防盗码生化排行...
· 出身完成任务一级发针存储过程...
热门文章
· 红月技能点属性上限...
· 3.8C红月私服限制部分外挂的方法...
· 调皮外挂不能正常使用...
· 红月私服角色之说...
· 升华原版升级代码...
· 红月私服自由军团存储汉化之自由军解散原因...
· 红月B2战争规则...
· 红月NPC各地点坐标...
· 红月服务器如何做到冲卡的...
· 红月外挂不能使用新解决办法...
关于我们 开区服务 网站帮助 全部私服
 
CopyRight @2010 hy45.net, Inc. All Rights Reserved  

备案登记号:苏ICP备11017169号-1