📄 admin_huiyuan.asp

📁 盗号用的
💻 ASP
字号:
<!--#include file="../Conn.asp"-->
<!--#include file="../Include/Md6.asp"-->
<%
If Session("AdminUserName") = "" Then
    Response.Write "<script>window.open('Login.asp','_parent');</script>"
	Response.End
End If 

action=Request("action")
username=SafeStr(Request.Form("username"))
password=SafeStr(Request.Form("newpin"))
passwords=SafeStr(Request.Form("re_newpin"))
bz=SafeStr(Request.Form("bz"))
quyu=SafeStr(Request.Form("quyu"))
senhe=SafeStr(Request.Form("senhe"))
ot=SafeStr(Request.Form("ot")) & " " & time()
ct=SafeStr(Request.Form("ct")) & " " & time()
ld=SafeStr(Request.QueryString("ld"))
If action = "ck" Then
    Set Rs = Conn.Execute("Select * From [User] Where UserName='" & ld & "'")
	If Not (Rs.Eof Or Rs.Bof) Then
        Response.Write "<script>alert('该用户名已存在');window.close();</script>"
	Else
        Response.Write "<script>alert('该用户名可以注册');window.close();</script>"
	End If
	Set Rs = Nothing
	Response.End
End If 
If action = "save" Then
    Set Rs = Conn.Execute("Select * From [User] Where UserName='" & UserName & "'")
	If Not (Rs.Eof Or Rs.Bof) Then
        Response.Write "<script>alert('该用户名已存在');history.go(-1);</script>"
	    Response.End
	End If
	Set Rs = Nothing
	If password <> passwords Then
        Response.Write "<script>alert('两次密码输入不同!');history.go(-1);</script>"
	End If 
	Call RegStr("^\s*[.A-Za-z0-9]{6,20}\s*$",password,"密码必须是数字或字母，长度为6-20个字符！")
	If quyu = "" Then
        Response.Write "<script>alert('请选择区域!');history.go(-1);</script>"
	End If 
    Set Rs = Conn.Execute("Select * From [User] Where Class='" & quyu & "'")
	If Not (Rs.Eof Or Rs.Bof) Then
        Response.Write "<script>alert('该区域已存在');history.go(-1);</script>"
	    Response.End
	End If
	Set Rs = Nothing
	If Not (IsDate(ot) Or IsDate(ct)) Then
        Response.Write "<script>alert('请正确选择开通日期和到期日期!');history.go(-1);</script>"
		Response.End
	End If 
    Set Rs = Server.CreateObject("Adodb.Recordset")
	Rs.Open "Select * From [User]",Conn,1,3
	Rs.AddNew
	Rs("UserName") = UserName
    Rs("PassWord") = Md6(PassWord)
	Rs("Content") = bz
	Rs("Class") = quyu
	If senhe = "0" Then 
        Rs("State") = False
	Else
        Rs("State") = True
	End If 
	Rs("StartTime") = ot
	Rs("EndTime") = ct
	Rs.Update
	Rs.Close
	Set Rs = Nothing
    Response.Write "<script>location.href='admin_user_list.asp';parent.document.getElementById('contents').src='admin_left.asp?time=" & Now() & "';</script>"
	Response.End
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Name%>—添加用户</title>
<link href="../images/text.css" rel="stylesheet" type="text/css">
<SCRIPT src="setday.js"></SCRIPT>
<script language="JavaScript">
<!--
function check(obj){
if(document.form1.username.value=="")
  {
   alert("请填写会员名！");
   document.form1.username.focus();
   return false;
   }
if(!/^\s*[A-Za-z0-9_-]{3,15}\s*$/ig.test(form1.username.value))
   {
   alert("会员名不能是汉字或特殊字符，不能小于3个字符！");
   document.form1.username.focus();
   return false;
   }
if(!/^\s*[.A-Za-z0-9]{6,20}\s*$/ig.test(form1.newpin.value))
   {
   alert("密码须是数字或字母，长度为6-20个字符！");
   document.form1.newpin.focus();
   return false;
   }
if((document.form1.newpin.value)!=(document.form1.re_newpin.value))
   {
   alert("两次密码不同，请重新填写");
   document.form1.re_newpin.focus();
   return false;
   }
   return true;
}
function check2(){
if(document.form1.username.value=="")
{
alert("请填写会员名！");
document.form1.username.focus();
return false;
}
window.showModalDialog('?action=ck&ld='+document.form1.username.value+'&time=<%=now%>');
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" height="32"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" width="100%" background="../images/bj3.jpg">添加用户</td>
  </tr>
  <tr>
    <td></td>
  </tr>
</table>      <form name="form1" method="post" action="admin_huiyuan.asp?action=save" onSubmit="return check(this)">
          <table width="49%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#C1DFFF">
          <tr>
            <td colspan="2" bgcolor="#FFFFFF">
            <table width="80%" cellpadding="5">
                <tr>
                  <td bgcolor="#E6F2FF"><b> 　设置会员名和密码</b></td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td width="17%" align="right" bgcolor="#FFFFFF">用 户 名</td>
            <td width="83%" bgcolor="#FFFFFF"><input name=username id=username class=inp1 style="ime-mode:disabled" maxlength="15" onKeyUp="value=value.replace(/\W/g,'')">
            <input name="button" type="button" class=btn onClick="javascript:check2(this)" value="检测会员名是否可用"></td>
          </tr>
          <tr>
            <td align="right" bgcolor="#FFFFFF">登录密码</td>
            <td bgcolor="#FFFFFF"><INPUT name=newpin type=password class=inp1 maxlength="12">
                <font class=p8>(密码可使用英文、数字，长度为6-20个字符)</font></td>
          </tr>
          <tr>
            <td align="right" bgcolor="#FFFFFF">重复密码</td>
            <td bgcolor="#FFFFFF"><INPUT name=re_newpin type=password class=inp1 maxlength="12">
                <font class=p8>(请再重复一次密码)</font></td>
          </tr>
          <tr>
            <td align="right" bgcolor="#FFFFFF">备　　注</td>
            <td bgcolor="#FFFFFF"><INPUT name=bz type=text class=inp1 id="bz" maxlength="50"></td>
          </tr>
          <tr>
            <td align="right" bgcolor="#FFFFFF">所属区域</td>
            <td bgcolor="#FFFFFF"><select name="quyu" id="quyu">
              <option value="" selected="selected">请选择大区</option>
<%
Set Rs = Conn.Execute("Select * From Class Order By Id Asc")
Do While Not Rs.Eof
%>
                <option value="<%=Rs("ClassName")%>"><%=Rs("ClassName")%></option>
<%
    Rs.MoveNext
Loop
Set Rs = Nothing
%>
            </select></td>
          </tr>
          <tr>
            <td align="right" bgcolor="#FFFFFF">用户状态</td>
            <td bgcolor="#FFFFFF"><select name="senhe" id="senhe">
              <option value="0">正常</option>
              <option value="1">锁定</option>
            </select></td>
          </tr>
          <tr>
            <td align="right" bgcolor="#FFFFFF">开通日期</td>
            <td bgcolor="#FFFFFF"><input name="ot" class="inp3" onClick="setday(this)" value="点击选择开通日期" size="45" runat="server"></td>
          </tr>
          <tr>
            <td align="right" bgcolor="#FFFFFF">到期日期</td>
            <td bgcolor="#FFFFFF"><input name="ct" class="inp3" onClick="setday(this)" value="点击选择到期日期" size="45" runat="server"></td>
          </tr>
</table>
          <p align="center"><input class=btn type="submit" name="submit" value="　提 交 信 息　"></p>
</form></body>
</html>
💿 文件大小 1840 K
👤 上传用户 lanyunhan
📂 所属分类汇编语言
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -