龙族思妇经验归0的ASP代码

admin · 发表于 2010-6-2 01:21:32

以下是ASP代码
<%
      Dim DBHost,DBUser,DBPass,DB1,DB2,MaxLev
      DBHost = "127.0.0.1"    '把127.0.0.1改成你的数据库IP,本机可用127.0.0.1
      DBUser = "sa"          '数据库用户名
      DBPass = "12345"       '数据库密码
      DB1 = "TotalDB"       '帐号数据库
      DB2 = "DragonRajaDB"    '角色数据库
      MaxLev = 100          '清经验最低所要等级
      if Request.QueryString("Action") = "Exp" then
            Dim rs,rs1,Conn,Conn1,Account,PassWord,User
            Account = Request.Form("Account")
            PassWord = Request.Form("PassWord")
            User = Request.Form("User")
            if Account = "" or PassWord = "" or User = "" or Instr(Account,"'") or

Instr(PassWord,"'") or Instr(User,"'") then
                     Response.Write "<script>alert('所有项目不能为空并不能包含非法字

符!');location.href='ExpClear.asp'</script>"
                     Response.End()
            end if
            Set Conn = Server.CreateObject("ADODB.Connection")
            Set Conn1 = Server.CreateObject("ADODB.Connection")
            Conn.open "Provider=SQLOLEDB.1;UID="&  DBUser  &";PWD="&  DBPass

&";database="  &  DB1  &";server="  &  DBHost
            Conn1.open "Provider=SQLOLEDB.1;UID="&  DBUser  &";PWD="&  DBPass

&";database="  &  DB2  &";server="  &  DBHost
            '检查用户名和密码
            Set rs = Server.CreateObject("ADODB.RecordSet")
            rs.open "Select * from Chr_log_info where login_id ='" & Account & "' and

passwd ='" & PassWord & "'",Conn,1,1
            if not rs.eof then
                     '用户名密码正确检查角色
                     Set rs1 = Server.CreateObject("ADODB.RecordSet")
                     rs1.open "Select * from Chr_Info where login_id ='" & Account & "'

and name='" & User & "'",Conn1,1,3
                     if not rs1.eof then
                              '验证等级
                              if rs1("Lev") < MaxLev then
                                    Response.Write "<script>alert('角色等级不

够!');history.back(-1)</script>"
                                    Response.End()
                              else
                                    rs1("Exp") = 0
                                    rs1.update
                                    Response.Write "<script>alert('经验清空成

功!');location.href='ExpClear.asp'</script>"
                                    Response.End()
                              end if
                     else
                              Response.Write "<script>alert('角色不正确!');history.back(-

1)</script>"
                              Response.End()
                     end if
            else
                     Response.Write "<script>alert('帐号或密码不正确!');history.back(-1)

</script>"
                     Response.End()
            end if
      end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>经验清0服务</title>
<style type="text/css">

</style></head>

<body>
<br>
<br>
<br>
<form name="form1" method="post" action="?Action=Exp">
  <table width="235" border="0" align="center" cellpadding="0" cellspacing="1"

bgcolor="#0000FF">
<tr align="center" bgcolor="#3399FF">
   <td height="30"><span class="style3">经验清0服务(所需等级:<%=MaxLev%>)</span></td>
</tr>
<tr bgcolor="#00CFFF">
   <td height="25" align="center">帐号:
      <input name="Account" type="text" id="Account" size="15" maxlength="14" style="font

-family: 宋体; font-size: 12px; border: 1px solid #0000FF; background-color: #00CFFF"></td>
</tr>
<tr bgcolor="#00CFFF">
   <td height="25" align="center">密码:
   <input name="PassWord" type="password" id="PassWord" size="15" maxlength="14"

style="font-family: 宋体; font-size: 12px; border: 1px solid #0000FF; background-color:

#00CFFF"></td>
</tr>
<tr bgcolor="#00CFFF">
   <td height="25" align="center">角色:
   <input name="User" type="text" id="User" size="15" maxlength="10" style="font-family:

宋体; font-size: 12px; border: 1px solid #0000FF; background-color: #00CFFF"></td>
</tr>
<tr align="center" bgcolor="#00CFFF">
   <td height="40"><input type="submit" name="Submit" value="提交">
      <input type="reset" name="Submit" value="重置"></td>
</tr>
  </table>
</form>
</body>
</html>

账号		自动登录	找回密码
密码			立即注册

[技术分享] 龙族思妇经验归0的ASP代码