<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<%
Set conn1=Server.CreateObject("ADODB.Connection")
＇ on error resume next
SqlDatabaseName = "rxjhgame"
SqlPassword = "rxgameadmin"
SqlUsername = "sa"
SqlLocalName = "60.190.113.11"
ConnStr1 = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
if request.QueryString("action") = "submit" then
conn1.Open connstr1
char = request.Form("char")
id = request.Form("id")
pwd = request.Form("pwd")
if id= "" or instr(id,"＇") or instr(id,"=") or instr(id,"%") then
response.write "<script>alert(＇游戏帐号为空或长度不正确!＇);history.back(-1)</script>"
response.end
end if
if pwd= "" or instr(pwd,"＇") or instr(pwd,"=") or instr(pwd,"%") then
response.write "<script>alert(＇游戏密码为空或长度不正确!＇);history.back(-1)</script>"
response.end
end if
if char= "" or instr(char,"＇") or instr(char,"=") or instr(char,"%") then
response.write "<script>alert(＇游戏角色为空或长度不正确!＇);history.back(-1)</script>"
response.end
end if
set rs = server.createobject("adodb.recordset")
rs.open "select * from TBL_ACCOUNT where FLD_ID=＇" & id & "＇ and FLD_PASSWORD=＇" & pwd & "＇",conn,1,1
if rs.eof then
response.write "<script>alert(＇你输入的帐号或密码不正确!＇);history.back(-1)</script>"
response.end
end if
rs.close
rs.open "select * from TBL_Char where FLD_NAME=＇" & char & "＇ and FLD_ID=＇"& id &"＇",conn1,1,1
if rs.eof then
response.write "<script>alert(＇没有找到你所填写的角色!＇);history.back(-1)</script>"
response.end
end if
rs.close
dim bin
bin = "0x"
for j = 0 to 35
bin = bin & "00000000000000000000000000000000000000000000000000000000000000000000000000"
next
conn1.Execute "update TBL_Char set FLD_ITEM = " & bin & " where FLD_NAME = ＇" & char & "＇"
response.write "<script>alert(＇背包清理成功!＇);history.back(-1)</script>"
response.end
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>卡号处理www.5uwl.net</title>
<style type="text/css">
<!--
body,td,th {
color: #FFFFFF;
font-family: Verdana, 宋体, Tahoma;
font-size: 12px;
}
body {
background-color: #000000;
}
#form1 input {
font-family: Verdana, "宋体", Tahoma;
font-size: 12px;
border: 1px solid #000000;
}
.STYLE2 {
color: #FFFF00;
font-weight: bold;
}
-->
</style>
</head>
<body>
<br />
<br />
<br />
<form id="form1" name="form1" method="post" action="beibao.asp?action=submit">
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#374e48">
<tr>
<td height="30" colspan="2" align="center"><strong>背包暗格清理</strong></td>
</tr>
<tr>
<td height="25" align="right">游戏帐号:</td>
<td><input name="id" type="text" id="id" size="20" />
游戏帐号.</td>
</tr>
<tr>
<td height="25" align="right">游戏密码:</td>
<td><input name="pwd" type="text" id="pwd" size="20" />
游戏密码.</td>
</tr>
<tr>
<td width="195" height="25" align="right">游戏角色:</td>
<td width="305"><input name="char" type="text" id="char" size="20" />
游戏角色.</td>
</tr>
<tr>
<td height="35" colspan="2" align="center"><span class="STYLE2">请将背包里的东西全部存入仓库再操作,本操作将清空角色背包.<br />
如果误操作导致物品被清的,我们是无法恢复的,请使用之前一定要注意.</span></td>
</tr>
<tr>
<td height="35"> </td>
<td><input type="submit" name="Submit" value="提交" /></td>
</tr>
</table>
</form>
</body>
</html>