📄 admin_user.asp
字号:
<input name="Action" type="radio" value="UnLock" onClick="document.myform.UserLevel.disabled=true">解锁
<input name="Action" type="radio" value="Move" onClick="document.myform.UserLevel.disabled=false">移动到
<select name="UserLevel" id="UserLevel" disabled>
<option value="6">等待管理审核的用户</option>
<option value="7">注册用户</option>
<option value="8">VIP用户</option>
<option value="9">前台管理员</option>
</select>
<input type="submit" name="Submit" value=" 执 行 "> </td>
</tr>
</table>
</td>
</form></tr></table>
<%
end sub
sub ShowSearch()
%>
<form name="form2" method="post" action="admin_user.asp">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="tdbg">
<td width="120"><strong>用户高级查询：</strong></td>
<td width="300">
<select name="Field" id="Field">
<option value="UserID" selected>用户ID</option>
<option value="UserName">用户名</option>
</select>
<input name="Keyword" type="text" id="Keyword" size="20" maxlength="30">
<input type="submit" name="Submit2" value=" 查 询 ">
<input name="UserSearch" type="hidden" id="UserSearch" value="10">
</td>
<td>若为空，则查询所有用户</td>
</tr>
</table>
</form>
<%
end sub
sub AddUser()
%>
<form name="myform" action="admin_user.asp" method="post">
<table width=98% border=0 align="center" cellpadding=2 cellspacing=1 bgcolor="#FFFFFF" class="border">
<TR align=center class='title'>
<TD height=22 colSpan=2><font color="#FFFFFF" class=en><b>添 加 新 用 户</b></font></TD>
</TR>
<TR class="tdbg" >
<TD width="40%">用户名：<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%">密码(至少6位)：<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%">确认密码(至少6位)：<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%">密码问题：<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%">问题答案：<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%">性别：</TD>
<TD width="60%"> <INPUT type=radio CHECKED value="1" name=sex>
男 <INPUT type=radio value="0" name=sex>
女</TD>
</TR>
<TR class="tdbg" >
<TD width="40%">Email地址：</TD>
<TD width="60%"> <INPUT maxLength=50 size=30 name=Email> <font color="#FF0000">*</font></TD>
</TR>
<TR class="tdbg" >
<TD width="40%">主页：</TD>
<TD width="60%"> <INPUT maxLength=100 size=30 name=homepage value="http://"></TD>
</TR>
<TR class="tdbg" >
<TD width="40%">QQ号码：</TD>
<TD width="60%"> <INPUT maxLength=20 size=30 name=OICQ></TD>
</TR>
<TR class="tdbg" >
<TD width="40%">MSN：</TD>
<TD width="60%"> <INPUT maxLength=50 size=30 name=msn></TD>
</TR>
<TR class="tdbg" >
<TD width="40%">用户级别：</TD>
<TD width="60%"><select name="UserLevel" id="UserLevel">
<option value="6">等待审核的用户</option>
<option value="7" selected>注册用户</option>
<option value="8">VIP用户</option>
<option value="9">前台管理员</option>
</select></TD>
</TR>
<TR class="tdbg" >
<TD width="40%">用户状态：</TD>
<TD width="60%"><input name="LockUser" type="radio" value="false" checked>
正常 <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="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
<TR class='title'>
<TD height=22 colSpan=2 align="center"><b><font color="#FFFFFF">修改注册用户信息</font></b></TD>
</TR>
<TR class="tdbg" >
<TD width="40%">用户名：</TD>
<TD width="60%"><%=rsUser("userName")%> </TD>
</TR>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td>blog名：</td>
<td><input name=blogname type=text id="blogname" value="<%=rsuser("blogname")%>" size=30 maxlength=20></td>
</tr>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td>blog类别：</td>
<td><select name="usertype" id="usertype">
<option value="<%=rsUser("usertypeid")%>" selected>
<%
dim rs
set rs=conn.execute("select typename from usertype where id="&rsUser("usertypeid"))
if not rs.eof then
response.Write rs(0)
else
response.Write " "
end if
%>
</option>
<%
set rs=conn.execute("select id,typename from usertype")
do while not rs.eof %>
<option value=<%=rs(0)%>><%=rs(1)%></option>
<%
rs.movenext
loop
set rs=nothing
%>
</select></td>
</tr>
<TR class="tdbg" >
<TD width="40%">密码(至少6位)：<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>确认密码(至少6位)：<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%">密码问题：<br>
忘记密码的提示问题</TD>
<TD width="60%"> <INPUT name="Question" type=text value="<%=rsUser("Question")%>" size=30>
</TD>
</TR>
<TR class="tdbg" >
<TD width="40%">问题答案：<BR>
忘记密码的提示问题答案，用于取回密码</TD>
<TD width="60%"> <INPUT type=text size=30 name="Answer"> <font color="#FF0000">如果不想修改，请留空</font></TD>
</TR>
<TR class="tdbg" >
<TD width="40%">性别：</TD>
<TD width="60%"> <INPUT type=radio value="1" name=sex <%if rsUser("Sex")=1 then response.write "CHECKED"%>>
男 <INPUT type=radio value="0" name=sex <%if rsUser("Sex")=0 then response.write "CHECKED"%>>
女</TD>
</TR>
<TR class="tdbg" >
<TD width="40%">Email地址：</TD>
<TD width="60%"> <INPUT name=Email value="<%=rsUser("userEmail")%>" size=30 maxLength=50>
<a href="mailto:<%=rsUser("userEmail")%>">给此用户发一封电子邮件</a>
</TD>
</TR>
<TR class="tdbg" >
<TD width="40%">主页：</TD>
<TD width="60%"> <INPUT maxLength=100 size=30 name=homepage value="<%=rsUser("Homepage")%>"></TD>
</TR>
<TR class="tdbg" >
<TD width="40%">OICQ号码：</TD>
<TD width="60%"> <INPUT name=OICQ value="<%=rsUser("oicq")%>" size=30 maxLength=20></TD>
</TR>
<TR class="tdbg" >
<TD width="40%">MSN：</TD>
<TD width="60%"> <INPUT name=msn value="<%=rsUser("Msn")%>" size=30 maxLength=50></TD>
</TR>
<TR class="tdbg" >
<TD width="40%">用户级别：</TD>
<TD width="60%"><select name="UserLevel" id="UserLevel">
<option value="6">等待管理审核的用户</option>
<option value="7" selected>注册用户</option>
<option value="8">vip用户</option>
<option value="9">前台管理员</option>
</select></TD>
</TR>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td>用户上传文件：</td>
<td><input name=upfiles type=text id="upfiles" value="<%=rsuser("upfiles")%>" size=30 maxlength=20></td>
</tr>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td>已上传字节：</td>
<td><input name=upfiles_size type=text id="upfiles_size" value="<%=rsuser("upfiles_size")%>" size=20 maxlength=20></td>
</tr>
<TR class="tdbg" >
<TD>是否为推荐博客：</TD>
<TD><input type="radio" name="isbest" value="true" <%if rsUser("userisbest")="true" then response.write "checked"%>>
是
<input type="radio" name="isbest" value="false" <%if rsUser("userisbest")<>"true" then response.write "checked"%>>
否</TD>
</TR>
<TR class="tdbg" >
<TD width="40%">用户状态：</TD>
<TD width="60%"><input type="radio" name="LockUser" value="false" <%if rsUser("LockUser")="false" then response.write "checked"%>>
正常 <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="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
<tr align="center" class="title">
<td height="22" colspan="2"><strong><font color="#FFFFFF">更 新 用 户 数 据</font></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"> </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>
<p>
<%
end sub
%>
</p>
</body>
</html>
<%
sub SaveAdd()
dim UserName,Password,PwdConfirm,Question,Answer,Sex,Email,Homepage,OICQ,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"))
OICQ=trim(request("OICQ"))
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,"⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -