网站地图 设为首页 加入收藏
 
红月私服中心 下载中心 发布红月 技术资料 发布家族 游戏IP生成   开区服务  
红月私服网站退军系统代码(三)
文章作者:管理员 文章来源:红月私服中心-Www.hy45.Net 更新时间:2012/4/30 7:01:53 

<!--#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"))

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 tblArmyMemberList1 where RegularSoldier = '"&juesename&"'"
rs1.open sql,conn,1,3

if  rs1.eof then
  response.write "<script language=javascript>alert('您并没有在军中!没必要使用此功能!');history.back();</script>"
  response.end
 end if

 rs1.delete
 rs1.update
 rs.close
 set rs=Nothing
 rs1.close
 Set rs1=Nothing
 conn.close
 Set conn=nothing
 response.write "<script language=javascript>alert('退军成功,请登陆游戏!');history.back();</script>"
response.End
%>

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

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