网站地图 设为首页 加入收藏
 
红月私服中心 下载中心 发布红月 技术资料 发布家族 游戏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
%>

浏览次数:1
最新文章
· 红月私服网站在线洗黑名代码(二)...
· 红月私服网站在线洗黑名代码(一)...
· 红月私服网站退军系统代码(三)...
· 红月私服网站退军系统代码(二)...
· 红月私服网站退军系统代码(一)...
· 红月卡图自救网站功能码(四)...
· 红月卡图自救网站功能码(三)...
· 红月卡图自救网站功能码(二)...
· 红月卡图自救网站功能码(一)...
· 红月私服变身(变角色)功能三...
热门文章
· 红月技能点属性上限...
· 红月私服角色之说...
· 3.8C红月私服限制部分外挂的方法...
· 调皮外挂不能正常使用...
· 升华原版升级代码...
· 红月服务器如何做到冲卡的...
· 红月NPC各地点坐标...
· 地图能否PK的设置...
· 积分计算方式...
· Web服务器安全加固步骤(四)...
关于我们 开区服务 网站帮助 全部私服
 
CopyRight @2010 hy45.net, Inc. All Rights Reserved  

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