网站地图 设为首页 加入收藏
 
红月私服中心 下载中心 发布红月 技术资料 发布家族 游戏IP生成   开区服务  
红月私服变身(变角色)功能三
文章作者:管理员 文章来源:红月私服中心-Www.hy45.Net 更新时间:2012/4/13 7:48:48 

<!--#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"))
Face=request.form("Face")


checkdata(Face)
if instr(Face,"'")<>0 or instr(Face,"=")<>0 or instr(Face,"&")<>0 or instr(Face,"179")<>0 or instr(Face,"%")<>0 or Face="" then
response.write "<script language=javascript>alert('不要尝试攻击服务器!');history.back();</script>"
response.end
end if

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 rs2=server.CreateObject("adodb.recordset")
sqlstr="select iCount=(select Count(GameID) AS iCount From tblSpecialItem1 Where ItemKind=6 AND Position=1 AND GameID='"&juesename&"' AND (WindowKind=1 OR WindowKind=3) AND ItemDurability>=4 AND ItemIndex=223)"
'response.write(sqlstr)
rs2.open sqlstr,conn,1,3
If rs2("iCount")=0 Or rs2("iCount")="" then
response.write "<script language=javascript>alert('没发现你背包有钱币,不能进行变身!');location.href='bs0.asp';</script>"
response.end

else

set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from tblGameID1 where GameID = '"&juesename&"'"
rs1.open sql,conn,1,3

rs1("face")=face
rs1("Strength")=10
rs1("Spirit")=10
rs1("Dexterity")=10
rs1("Power")=10
conn.execute("delete tblSpecialItem1 Where ID IN (Select Top 1 ID From tblSpecialItem1 Where ItemKind=6 AND Position=1 AND GameID= '"&juesename&"' AND (WindowKind=1 OR WindowKind=3) AND ItemDurability>=4 AND ItemIndex=223)")
end if

rs1.update
rs1.close
set rs1=nothing
conn.close
set conn=nothing
response.write "<script language=javascript>alert('您的角色变身成功!您现在可以登陆游戏了!');location.href='bs0.asp';</script>"
response.End
%>

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

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