admin_user.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 749 行 · 第 1/2 页
ASP
749 行
%> </td>
</tr>
<%
i=i+1
if i>=G_P_PerMax 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 onClick="document.myform.User_Level.disabled=true">
删除
<input name="Action" type="radio" value="Move" onClick="document.myform.User_Level.disabled=false">移动到
<select name="User_Level" id="User_Level" 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>
</form>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%
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 oblog_user where userID=" & UserID
if not IsObject(conn) then link_database
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
%>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">修改注册用户信息</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<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>用户域名：</td>
<td><input name="user_domain" type="text" value="<%=oblog.filt_html(rsuser("user_domain"))%>" size=10 maxlength=20 /> <select name="user_domainroot" ><%=oblog.type_domainroot(rsuser("user_domainroot"))%></select></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>
<%if true_domain=1 then%>
<tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
<td>用户绑定的顶级域名：</td>
<td><input name=custom_domain type=text id="custom_domain" value="<%=rsuser("custom_domain")%>" size=30 maxlength=20></td>
</tr>
<%end if%>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td>blog类别：</td>
<td><select name="usertype" id="usertype">
<%if rsUser("user_classid")<>"" then
response.Write(oblog.show_class("user",rsUser("user_classid"),0))
else
response.Write(oblog.show_class("user",0,0))
end if
%>
</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%">OICQ号码：</TD>
<TD width="60%"> <INPUT name=OICQ value="<%=rsUser("qq")%>" 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="User_Level" id="User_Level">
<option value="6" <%if clng(rsUser("user_level"))=6 then response.Write("selected")%>>等待管理审核的用户</option>
<option value="7" <%if clng(rsUser("user_level"))=7 then response.Write("selected")%>>注册用户</option>
<option value="8" <%if clng(rsUser("user_level"))=8 then response.Write("selected")%>>vip用户</option>
<option value="9" <%if clng(rsUser("user_level"))=9 then response.Write("selected")%>>前台管理员</option>
</select></TD>
</TR>
<tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td>可上传空间(kb)：</td>
<td><input name=user_upfiles_max type=text value="<%=rsuser("user_upfiles_max")%>" size=20 maxlength=20>
为零时为系统默认设置，如需单独设置，请输入kb值</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("user_upfiles_size")%>" size=20 maxlength=20></td>
</tr>
<TR class="tdbg" >
<TD>是否为推荐博客：</TD>
<TD><input type="radio" name="isbest" value=1 <%if rsUser("user_isbest")=1 then response.write "checked"%>>
是 <input type="radio" name="isbest" value=0 <%if rsUser("user_isbest")<>1 then response.write "checked"%>>
否</TD>
</TR>
<TR class="tdbg" >
<TD width="40%">用户目录：</TD>
<TD width="60%"> <INPUT name=user_dir value="<%=rsUser("user_dir")%>" size=30 maxLength=50>
如无必要请不要修改，否则将造成用户目录混乱</TD>
</TR>
<TR class="tdbg" >
<TD width="40%">用户状态：</TD>
<TD width="60%"><input type="radio" name="LockUser" value=0 <%if rsUser("LockUser")=0 then response.write "checked"%>>
正常 <input type="radio" name="LockUser" value=1 <%if rsUser("LockUser")=1 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>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%
rsUser.close
set rsUser=nothing
end sub
sub UpdateUser()
%>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">更新用户静态页面</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<FORM name="Form1" action="admin_user.asp?action=DoUpdate" method="post">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
<tr class="tdbg">
<td colspan="2"><p>说明：<br>
1、本操作将重新生成用户静态页面。<br>
2、本操作可能将非常消耗服务器资源，而且更新时间很长，请仔细确认每一步操作后执行。<br>
3 、本操作根据用户ｉｄ更新。 </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="10">
用户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="10">
将更新开始到结束ID之间的用户数据，之间的数值最好不要选择过大</td>
</tr>
<tr class="tdbg">
<td height="25"> </td>
<td height="25"><input name="Submit" type="submit" id="Submit" value="生成静态页面"></td>
</tr>
</table>
</form>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">更新日志静态页面</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<FORM name="Form1" action="admin_user.asp?action=DoUpdatelog" method="post">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
<tr class="tdbg">
<td colspan="2"><p>说明：<br>
1、本操作将重新生成用户静态页面。<br>
2、本操作可能将非常消耗服务器资源，而且更新时间很长，请仔细确认每一步操作后执行。<br>
3、本操作根据日志ｉｄ更新。</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="10">
用户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="10">
将更新开始到结束ID之间的日志页面，之间的数值最好不要选择过大</td>
</tr>
<tr class="tdbg">
<td height="25"> </td>
<td height="25"><input name="Submit" type="submit" id="Submit" value="生成日志静态页面"></td>
</tr>
</table>
</form>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%
end sub
sub gouser1()
%>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">登录到用户管理后台</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<FORM name="Form1" action="admin_user.asp?action=gouser2" method="post" target="_blank">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
<tr class="tdbg">
<td colspan="2"><p>说明：<br>
本操作供管理员登录到用户的管理界面进行管理。<br>
当用户操作出现障碍时，可进入该用户后台，协助用户进行操作。<br>
</p>
</td>
</tr>
<tr class="tdbg">
<td height="25">用户账号：</td>
<td height="25"><input name="username" type="text" id="username" value="" size="30" maxlength="50"></td>
<tr class="tdbg">
<td height="25"> </td>
<td height="25"><input name="Submit" type="submit" id="Submit" value=" 提交 "></td>
</tr>
</table>
</form>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%
end sub
%>
</body>
</html>
<%
sub gouser2()
dim rs,username
username=oblog.filt_badstr(trim(request("username")))
if username="" then response.Write("用户名不能为空"):response.End()
set rs=oblog.execute("select username,password from oblog_user where username='"&username&"'")
if not rs.eof then
oblog.SaveCookie rs(0), rs(1), 0, ""
set rs=nothing
response.Redirect("../user_index.asp")
else
set rs=nothing
response.Write("无此用户"):response.End()
end if
end sub
sub SaveModify()
dim UserID,Password,PwdConfirm,Question,Answer,Sex,Email,Homepage,OICQ,MSN,User_Level,LockUser,isbest
dim rsUser,sqlUser
dim blogname,usertype,user_upfiles_max,upfiles_size,user_domain,user_domainroot
Action=trim(request("Action"))
UserID=trim(request("UserID"))
if UserID="" then
FoundErr=true
ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
exit sub
else
UserID=Clng(UserID)
end if
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"))
User_Level=trim(request("User_Level"))
isbest=trim(request("isbest"))
LockUser=trim(request("LockUser"))
blogname=trim(request("blogname"))
usertype=trim(request("usertype"))
user_upfiles_max=trim(request("user_upfiles_max"))
upfiles_size=trim(request("upfiles_size"))
user_domain=trim(request("user_domain"))
user_domainroot=trim(request("user_domainroot"))
if Password<>"" then
if oblog.strLength(Password)>12 or oblog.strLength(Password)<6 then
founderr=true
errmsg=errmsg & "<br><li>密码不能大于12小于6，如果你不想修改密码，请保持为空。</li>"
end if
if Instr(Password,"=")>0 or Instr(Password,"%")>0 or Instr(Password,chr(32))>0 or Instr(Password,"?")>0 or Instr(Password,"&")>0 or Instr(Password,";")>0 or Instr(Password,",")>0 or Instr(Password,"'")>0 or Instr(Password,",")>0 or Instr(Password,chr(34))>0 or Instr(Password,chr(9))>0 or Instr(Password,"⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?