📄 user_edit.asp
字号:
<%Admin="UserAdmin"%>
<!--#include file="check.asp"-->
<!--#include file="zcm.asp"-->
<%
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if
%>
<!--#include file="mdb_path_user.asp"-->
<!--#include file="char.inc"-->
<%
function CheckAdminEdit(TAdmin,admin)
CheckAdminEdit=false
if admin<>"" then
tempAdmin=split(admin,",")
for i = 0 to ubound(tempAdmin)
if trim(tempAdmin(i))=trim(TAdmin) then
CheckAdminEdit=true
exit for
end if
next
end if
end function
set rs=server.CreateObject("ADODB.RecordSet")
if request("type")="save" then
qm=htmlencode(request.form("qm"))
if len(qm)>250 then
JyDownMsg="错误:个性签名多于250个字符!"
end if
if request("user")="" then
JyDownMsg="错误:用户名不能为空!"
else
rs.open "select * from UserInfo where user='"&request("user")&"' and id<>"&request("id"),conn,1,1
if not rs.eof then
JyDownMsg="错误:已经有相同的用户名了!"
end if
rs.close
end if
end if
rs.open "select * from UserInfo where dj<>3 and id="&request("id"),conn,1,2
if rs.eof then
JyDownMsg="错误:没有 "&user&" 用户的资料!"
else
if request("type")="save" and JyDownMsg="" then
if request.form("pwd")<>"" then
rs("pwd")=request.form("pwd")
JyDownMsg="成功:修改资料完成,同时密码已修改!"
else
JyDownMsg="成功:修改资料完成,密码没被修改!"
end if
rs("user")=request.form("user")
rs("dj")=request.form("dj")
rs("email")=request.form("email")
rs("oicq")=request.form("oicq")
rs("homepage")=request.form("homepage")
rs("sex")=request.form("sex")
rs("face")=request.form("face")
rs("qm")=htmlencode(qm)
rs("lock")=request.form("lock")
rs("admin")=replace(request("admin")," ","")
rs.Update
end if
user=rs("user")
dj=rs("dj")
email=rs("email")
oicq=rs("oicq")
homepage=rs("homepage")
sex=rs("sex")
face=rs("face")
qm=rs("qm")
lock=rs("lock")
admin=rs("admin")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>MyFlash.NET</title>
<style>
td{font-size:9pt;line-height:140%}
</style>
</head>
<body topmargin="1" leftmargin="1">
<form action="user_edit.asp?type=save&id=<%=request("id")%>" method="post">
<div align="center">
<center>
<%if request("type")="save" then%>
<table border="0" cellspacing="1" width="100%">
<tr>
<td width="100%"><font color="#4D9CC8"><%=JyDownMsg%></font>时间:<%=Now()%></td>
</tr>
</table>
<%end if%>
<table border="0" cellspacing="1" width="100%" bgcolor="#cococo">
<tr>
<td width="100%" bgcolor="#4D9CC8">
<font color="#FFFFFF"><b>修改用户(<a target="_blank" href="user.asp?user=<%=user%>"><font color="#FFFFFF"><%=user%></font></a>)的资料</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
用户名：<input name="user" value="<%=user%>" size="15" style="border-style: solid; border-width: 1">
<font color="#4D9CC8">*</font>
<font color="#4D9CC8"><input type="radio" value="0" name="lock"<%if lock<>"1" then%> checked<%end if%>></font>激活
<font color="#4D9CC8"><input type="radio" value="1" name="lock"<%if lock="1" then%> checked<%end if%>></font>锁定
<select size="1" name="dj">
<option value="0"<%if dj="0" then%> selected<%end if%>>①:普通会员</option>
<option value="1"<%if dj="1" then%> selected<%end if%>>②:高级会员</option>
<option value="2"<%if dj="2" then%> selected<%end if%>>③:管 理 员</option>
</select></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
登陆密码：<input name="pwd" size="15" style="border-style: solid; border-width: 1" type="password">
<font color="#808080">不修改请留空</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4">
<font color="#000080">
<b>修改用户权限</b></font><font color="#808080"> (只对[管理员]有效)</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
作 品管理：<input type="checkbox" name="admin" value="DownAdd"<%if CheckAdminEdit("DownAdd",admin) then Response.Write(" checked")%>>添加
<input type="checkbox" name="admin" value="DownAdmin"<%if CheckAdminEdit("DownAdmin",admin) then Response.Write(" checked")%>>管理(自)
<input type="checkbox" name="admin" value="DownAdminAll"<%if CheckAdminEdit("DownAdminAll",admin) then Response.Write(" checked")%>>管理(他)
<input type="checkbox" name="admin" value="DownType"<%if CheckAdminEdit("DownType",admin) then Response.Write(" checked")%>>目录
<input type="checkbox" name="admin" value="DownMake"<%if CheckAdminEdit("DownMake",admin) then Response.Write(" checked")%>>生成
<input type="checkbox" name="admin" value="DownMb"<%if CheckAdminEdit("DownMb",admin) then Response.Write(" checked")%>>模板
<input type="checkbox" name="admin" value="DownTS"<%if CheckAdminEdit("DownTS",admin) then Response.Write(" checked")%>>自定时间,连接数
最高评价<select size="1" name="admin">
<option value="DownHot3"<%if CheckAdminEdit("DownHot3",admin) then Response.Write(" selected")%>>3</option>
<option value="DownHot4"<%if CheckAdminEdit("DownHot4",admin) then Response.Write(" selected")%>>4</option>
<option value="DownHot5"<%if CheckAdminEdit("DownHot5",admin) then Response.Write(" selected")%>>5</option>
</select>星</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
笑话管理：<input type="checkbox" name="admin" value="InfoAdd"<%if CheckAdminEdit("InfoAdd",admin) then Response.Write(" checked")%>>添加
<input type="checkbox" name="admin" value="InfoAdmin"<%if CheckAdminEdit("InfoAdmin",admin) then Response.Write(" checked")%>>管理(自)
<input type="checkbox" name="admin" value="InfoAdminAll"<%if CheckAdminEdit("InfoAdminAll",admin) then Response.Write(" checked")%>>管理(他)
<input type="checkbox" name="admin" value="InfoType"<%if CheckAdminEdit("InfoType",admin) then Response.Write(" checked")%>>目录
<input type="checkbox" name="admin" value="InfoMake"<%if CheckAdminEdit("InfoMake",admin) then Response.Write(" checked")%>>生成
<input type="checkbox" name="admin" value="InfoMake"<%if CheckAdminEdit("InfoMake",admin) then Response.Write(" checked")%>>模板</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
留言管理：<input type="checkbox" name="admin" value="GbookDel"<%if CheckAdminEdit("GbookDel",admin) then Response.Write(" checked")%>>删除留言</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
会员管理：<input type="checkbox" name="admin" value="UserSee"<%if CheckAdminEdit("UserSee",admin) then Response.Write(" checked")%>>查看
<input type="checkbox" name="admin" value="UserMail"<%if CheckAdminEdit("UserMail",admin) then Response.Write(" checked")%>>邮件 <input type="checkbox" name="admin" value="UserMailList"<%if CheckAdminEdit("UserMailList",admin) then Response.Write(" checked")%>>导出邮件 <input type="checkbox" name="admin" value="UserAdmin"<%if CheckAdminEdit("UserAdmin",admin) then Response.Write(" checked")%>>管理<font color="#808080">(</font><font color="#4D9CC8">注意</font><font color="#808080">:开通"管理"权限即是给了该用户全部管理权限!)</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
系统数据：<input type="checkbox" name="admin" value="SysSee"<%if CheckAdminEdit("SysSee",admin) then Response.Write(" checked")%>>空间占用查看
<input type="checkbox" name="admin" value="SysMdbRC"<%if CheckAdminEdit("SysMdbRC",admin) then Response.Write(" checked")%>>数据库更名,备份
<input type="checkbox" name="admin" value="SysMdbCR"<%if CheckAdminEdit("SysMdbCR",admin) then Response.Write(" checked")%>>数据库压缩,恢复
<input type="checkbox" name="admin" value="System"<%if CheckAdminEdit("System",admin) then Response.Write(" checked")%>>系统设置</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<font color="#808080">
作 品管理权限说明：添加:进入本类的最底要求权限、能够查看列表和添加新作 品,管理(自):能够管理自己发布的作 品但不能删除,(他)能够管理全部作 品,批量修改移动,目录:能够加入、修改、删除目录,生成:能够生成所有页面(站长才可在生成首页时修改源文件),模板:能够修改网页模板,作 品评价设定是为了防址作 品作者乱设星级<br>
笑话管理权限说明：同作 品管理</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4">
<font color="#000080"><b>修改其它资料</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
性别：<select size="1" name="sex">
<option selected value="男">男</option>
<option<%if sex="女" then%> selected<%end if%> value="女">女</option>
</select></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
头像：<input name="face" size="15" style="border-style: solid; border-width: 1" value="<%=face%>">
<font color="#808080">代号请看:[</font><a target="_blank" href="face.asp">头像列表</a><font color="#808080">]</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
OICQ：<input name="oicq" size="15" style="border-style: solid; border-width: 1" value="<%=oicq%>"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
E-Mail：<input name="email" size="32" style="border-style: solid; border-width: 1" value="<%=email%>"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
个人主页：<input name="homepage" size="32" style="border-style: solid; border-width: 1" value="<%=homepage%>"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" valign="top">
个性签名：<textarea rows="3" name="qm" cols="59"><%=qm%></textarea><font color="#808080"><br>
250字符内,不支持HTML语言,支持<a target="_blank" href="../help/ubb.htm">ubb</a>语言.</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#DFDFDF">
<p align="center">
<input name="b1" type="submit" value="确认修改">
<input name="b2" type="reset" value="全部还原"></p>
</td>
</tr>
</table>
</center>
</div>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -