红月私服

发布红月私服

 

 

友情提示:红月私服真实可靠性无从验证,请自行判断,谨防受骗上当
  当前位置:首页>>最新公告>>公告内容

红月私服在线洗黑名(四)
来源:红月私服发布网-www.1hydown.com   时间:2012-4-30 7:09:11   浏览:3
<!--#includefile="conn.asp"-->

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

<%RCenter.WebGate(4)%>
<%
httpurl=request.servervariables("http_referer")
ifinstr(httpurl,SiteURL)=0then
response.write"<scriptlanguage=javascript>{alert(对不起,程序拒绝您的操作!!!请从主页登陆\n按确定关闭!);window.close();}</script>"
response.end
endif
%>
<%
juesename=Lcase(request.form("juesename"))
loginname=Lcase(request.form("ps_loginname"))

setrs=Server.CreateObject("ADODB.Recordset")
sql="select*fromtblOccupiedBillIDwhereBillID="&loginname&""
rs.opensql,conn,1,3
bill=rs("BillID")
ifbill=loginnamethen
response.write"<scriptlanguage=javascript>alert(洗黑的人物不能在游戏中!);history.back()</script>"
response.end
endif

setrs2=server.CreateObject("adodb.recordset")
sqlstr="selectiCount=(selectCount(GameID)ASiCountFromtblSpecialItem1WhereItemKind=6ANDPosition=1ANDGameID="&juesename&"AND(WindowKind=1ORWindowKind=3)ANDItemDurability>=4ANDItemIndex=46)"
response.write(sqlstr)
rs2.opensqlstr,conn,1,3
Ifrs2("iCount")=0Orrs2("iCount")=""then
response.write"<scriptlanguage=javascript>alert(没发现你背包有祀血汁,不能进行洗黑!);history.back();</script>"
response.end
else
setrs1=Server.CreateObject("ADODB.Recordset")
sql="select*fromtblGameID1whereGameID="&juesename&""
rs1.opensql,conn,1,3
rs1("PKTimer")=0
endif

rs1.update
rs1.close
setrs1=nothing
conn.execute("deletetblSpecialItem1WhereIDIN(SelectTop1IDFromtblSpecialItem1WhereItemKind=6ANDPosition=1ANDGameID="&juesename&"AND(WindowKind=1ORWindowKind=3)ANDItemDurability>=4ANDItemIndex=46)")

conn.close
setconn=nothing
response.write"<scriptlanguage=javascript>alert(恭喜您!洗黑成功!);location.href=fzmf0.asp;</script>"
response.End
%>








  联系我们 网站帮助 关于我们   

© 2011-2012  红月私服发布网

京ICP备10047507号