admin_user.asp

一个功能很全面的设计网站,可以作为工作室、个人主页、技术网站等

	if rs("LoginTimes")<>"" then
		response.write rs("LoginTimes")
	else
		response.write "0"
	end if
	%> </td>
            <td width="40" align="center"><%
	  if rs("LockUser")=true then
	  	response.write "<font color=red>已锁定</font>"
	  else
	  	response.write "正常"
	  end if
	  %></td>
            <td width="100" align="center"><%
		response.write "<a href='Admin_User.asp?Action=Modify&UserID=" & rs("UserID") & "'>修改</a>&nbsp;"
		if rs("LockUser")=False then
			response.write "<a href='Admin_User.asp?Action=Lock&UserID=" & rs("UserID") & "'>锁定</a>&nbsp;"
		else
            response.write "<a href='Admin_User.asp?Action=UnLock&UserID=" & rs("UserID") & "'>解锁</a>&nbsp;"
		end if
        response.write "<a href='Admin_User.asp?Action=Del&UserID=" & rs("UserID") & "' onClick='return confirm(""确定要删除此用户吗？"");'>删除</a>"
		%> </td>
          </tr>
          <%
	i=i+1
	if i>=MaxPerPage then exit do
	rs.movenext
loop
%>
        </table>  
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="200" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
              选中本页显示的所有用户</td>
            <td> <strong>操作：</strong> 
              <input name="Action" type="radio" value="Del" checked>删除&nbsp;&nbsp;&nbsp;&nbsp;
              <input name="Action" type="radio" value="Lock">锁定 &nbsp;&nbsp;&nbsp;
              <input name="Action" type="radio" value="UnLock">解锁 &nbsp;&nbsp;&nbsp; 
              <input name="Action" type="radio" value="Move">移动到
              <select name="UserLevel" id="UserLevel">
                <option value="3000">等待邮件认证的用户</option>
                <option value="2000">等待管理审核的用户</option>
                <option value="999">注册用户</option>
                <option value="99" selected>收费用户</option>
                <option value="9">VIP用户</option>
              </select>
              &nbsp;&nbsp; 
              <input type="submit" name="Submit" value=" 执 行 "> </td>
  </tr>
</table>
</td>
</form></tr></table>
<%
end sub

sub AddUser()
%>
<form action="Admin_User.asp" method="post">
  <table width=100% border=0 cellpadding=2 cellspacing=1 class="border">
    <TR align=center class='title'> 
      <TD height=22 colSpan=2><font class=en><b>添 加 新 用 户</b></font></TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><b>用户名：</b><BR>
        不能超过14个字符（7个汉字）</TD>
      <TD width="60%"> <INPUT   maxLength=14 size=30 name=UserName> <font color="#FF0000">*</font></TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><B>密码(至少6位)：</B><BR>
        请输入密码，区分大小写。 请不要使用任何类似 '*'、' ' 或 HTML 字符 </TD>
      <TD width="60%"> <INPUT   type=password maxLength=12 size=30 name=Password> 
        <font color="#FF0000">*</font> </TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>确认密码(至少6位)：</strong><BR>
        请再输一遍确认</TD>
      <TD width="60%"> <INPUT   type=password maxLength=12 size=30 name=PwdConfirm> 
        <font color="#FF0000">*</font> </TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>密码问题：</strong><BR>
        忘记密码的提示问题</TD>
      <TD width="60%"> <INPUT   type=text maxLength=50 size=30 name="Question"> 
        <font color="#FF0000">*</font> </TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>问题答案：</strong><BR>
        忘记密码的提示问题答案，用于取回密码</TD>
      <TD width="60%"> <INPUT   type=text maxLength=20 size=30 name="Answer"> 
        <font color="#FF0000">*</font> </TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>性别：</strong></TD>
      <TD width="60%"> <INPUT type=radio CHECKED value="1" name=sex>
        男 &nbsp;&nbsp; <INPUT type=radio value="0" name=sex>
        女</TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>Email地址：</strong></TD>
      <TD width="60%"> <INPUT   maxLength=50 size=30 name=Email> <font color="#FF0000">*</font></TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>主页：</strong></TD>
      <TD width="60%"> <INPUT   maxLength=100 size=30 name=homepage value="http://"></TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>QQ号码：</strong></TD>
      <TD width="60%"> <INPUT maxLength=20 size=30 name=QQ></TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>MSN：</strong></TD>
      <TD width="60%"> <INPUT maxLength=50 size=30 name=msn></TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>用户级别：</strong></TD>
      <TD width="60%"><select name="UserLevel" id="UserLevel">
          <option value="3000">等待邮件认证的用户</option>
          <option value="2000">等待管理审核的用户</option>
          <option value="999" selected>注册用户</option>
          <option value="99">收费用户</option>
          <option value="9">VIP用户</option>
        </select></TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>用户状态：</strong></TD>
      <TD width="60%"><input name="LockUser" type="radio" value="False" checked>
        正常&nbsp;&nbsp; <input type="radio" name="LockUser" value="True">
        锁定</TD>
    </TR>
    <TR align="center" class="tdbg" > 
      <TD colspan="2"><input name="Action" type="hidden" id="Action" value="SaveAdd">
        <input type="submit" name="Submit" value=" 添 加 "></TD>
    </TR>
  </TABLE>
</form>
<%
end sub

sub Modify()
	dim UserID
	dim rsUser,sqlUser
	UserID=trim(request("UserID"))
	if UserID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
		exit sub
	else
		UserID=Clng(UserID)
	end if
	Set rsUser=Server.CreateObject("Adodb.RecordSet")
	sqlUser="select * from [User] where UserID=" & UserID
	rsUser.Open sqlUser,conn,1,3
	if rsUser.bof and rsUser.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到指定的用户！</li>"
		rsUser.close
		set rsUser=nothing
		exit sub
	end if
%>
<FORM name="Form1" action="Admin_User.asp" method="post">
  <table width="100%" border="0" cellspacing="1" cellpadding="2" class="border">
    <TR class='title'> 
      <TD height=22 colSpan=2 align="center"><b>修改注册用户信息</b></TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><b>用户名：</b></TD>
      <TD width="60%"><%=rsUser("UserName")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="Admin_ArticleManage.asp?Field=Editor&Keyword=<%=rsUser("UserName")%>">查看此用户发表的文章</a></TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><B>密码(至少6位)：</B><BR>
        请输入密码，区分大小写。 请不要使用任何类似 '*'、' ' 或 HTML 字符 </TD>
      <TD width="60%"> <INPUT   type=password maxLength=16 size=30 name=Password> 
        <font color="#FF0000">如果不想修改，请留空</font> </TD>
    </TR>
    <TR class="tdbg" >
      <TD><strong>确认密码(至少6位)：</strong><br>
        请再输一遍确认</TD>
      <TD><INPUT name=PwdConfirm   type=password id="PwdConfirm" size=30 maxLength=12>
        <font color="#FF0000">如果不想修改，请留空</font> </TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>密码问题：</strong><br>
        忘记密码的提示问题</TD>
      <TD width="60%"> <INPUT name="Question"   type=text value="<%=rsUser("Question")%>" size=30> 
      </TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>问题答案：</strong><BR>
        忘记密码的提示问题答案，用于取回密码</TD>
      <TD width="60%"> <INPUT   type=text size=30 name="Answer"> <font color="#FF0000">如果不想修改，请留空</font></TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>性别：</strong></TD>
      <TD width="60%"> <INPUT type=radio value="1" name=sex <%if rsUser("Sex")=1 then response.write "CHECKED"%>>
        男 &nbsp;&nbsp; <INPUT type=radio value="0" name=sex <%if rsUser("Sex")=0 then response.write "CHECKED"%>>
        女</TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>Email地址：</strong></TD>
      <TD width="60%"> <INPUT name=Email value="<%=rsUser("Email")%>" size=30   maxLength=50>
        <a href="mailto:<%=rsUser("Email")%>">给此用户发一封电子邮件</a> </TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>主页：</strong></TD>
      <TD width="60%"> <INPUT   maxLength=100 size=30 name=homepage value="<%=rsUser("HomePage")%>"></TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>QQ号码：</strong></TD>
      <TD width="60%"> <INPUT name=QQ value="<%=rsUser("QQ")%>" size=30 maxLength=20></TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>MSN：</strong></TD>
      <TD width="60%"> <INPUT name=msn value="<%=rsUser("MSN")%>" size=30 maxLength=50></TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>用户级别：</strong></TD>
      <TD width="60%"><select name="UserLevel" id="UserLevel">
          <option value="3000" <%if rsUser("UserLevel")=3000 then response.write " selected"%>>等待邮件认证的用户</option>
          <option value="2000" <%if rsUser("UserLevel")=2000 then response.write " selected"%>>等待管理审核的用户</option>
          <option value="999" <%if rsUser("UserLevel")=999 then response.write " selected"%>>注册用户</option>
          <option value="99" <%if rsUser("UserLevel")=99 then response.write " selected"%>>收费用户</option>
          <option value="9" <%if rsUser("UserLevel")=9 then response.write " selected"%>>VIP用户</option>
        </select></TD>
    </TR>
    <TR class="tdbg" > 
      <TD width="40%"><strong>用户状态：</strong></TD>
      <TD width="60%"><input type="radio" name="LockUser" value="False" <%if rsUser("LockUser")=False then response.write "checked"%>>
        正常&nbsp;&nbsp; <input type="radio" name="LockUser" value="True" <%if rsUser("LockUser")=True then response.write "checked"%>>
        锁定</TD>
    </TR>
    <TR class="tdbg" > 
      <TD height="40" colspan="2" align="center"><input name="Action" type="hidden" id="Action" value="SaveModify"> 
        <input name=Submit   type=submit id="Submit" value="保存修改结果"> <input name="UserID" type="hidden" id="UserID" value="<%=rsUser("UserID")%>"></TD>
    </TR>
  </TABLE>
</form>
<%
	rsUser.close
	set rsUser=nothing
end sub

sub UpdateUser()
%>
<FORM name="Form1" action="Admin_User.asp" method="post">
<table width="100%" border="0" cellspacing="1" cellpadding="2" class="border">
  <tr align="center" class="title"> 
    <td height="22" colspan="2"><strong>更 新 用 户 数 据</strong></td>
  </tr>
  <tr class="tdbg"> 
      <td colspan="2"><p>说明：<br>
          1、本操作将重新计算用户的发表文章数。<br>
          2、本操作可能将非常消耗服务器资源，而且更新时间很长，请仔细确认每一步操作后执行。</p>
        </td>
  </tr>
  <tr class="tdbg"> 
    <td height="25">开始用户ID：</td>
    <td height="25"><input name="BeginID" type="text" id="BeginID" value="1" size="10" maxlength="3">
      用户ID，可以填写您想从哪一个ID号开始进行修复</td>
  </tr>
  <tr class="tdbg"> 
    <td height="25">结束用户ID：</td>
    <td height="25"><input name="EndID" type="text" id="EndID" value="1000" size="10" maxlength="3">
      将更新开始到结束ID之间的用户数据，之间的数值最好不要选择过大</td>
  </tr>
  <tr class="tdbg"> 
    <td height="25">&nbsp;</td>
    <td height="25"><input name="Submit" type="submit" id="Submit" value="更新用户数据"> <input name="Action" type="hidden" id="Action" value="DoUpdate"></td>
  </tr>
</table>
</form>
<%
end sub
%>
</body>
</html>
<%
sub SaveAdd()
	dim UserName,Password,PwdConfirm,Question,Answer,Sex,Email,Homepage,QQ,MSN,UserLevel,LockUser
	UserName=trim(request("UserName"))
	Password=trim(request("Password"))
	PwdConfirm=trim(request("PwdConfirm"))
	Question=trim(request("Question"))
	Answer=trim(request("Answer"))
	Sex=trim(Request("Sex"))
	Email=trim(request("Email"))
	Homepage=trim(request("Homepage"))
	QQ=trim(request("QQ"))
	MSN=trim(request("MSN"))
	UserLevel=trim(request("UserLevel"))
	LockUser=trim(request("LockUser"))
	
	if UserName="" or strLength(UserName)>14 or strLength(UserName)<4 then
		founderr=true
		errmsg=errmsg & "<br><li>请输入用户名(不能大于14小于4)</li>"
	else
  		if Instr(UserName,"=")>0 or Instr(UserName,"%")>0 or Instr(UserName,chr(32))>0 or Instr(UserName,"?")>0 or Instr(UserName,"&")>0 or Instr(UserName,";")>0 or Instr(UserName,",")>0 or Instr(UserName,"'")>0 or Instr(UserName,",")>0 or Instr(UserName,chr(34))>0 or Instr(UserName,chr(9))>0 or Instr(UserName,"