www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/user_edit.asp
<!--#include file="top.asp"-->
<!--#include file="md5.asp"-->
<%Admin="UserAdmin"%>
<!--#include file="check.asp"-->
<%
'==========================================
'
' 晓宇听幽新闻文章管理系统 2004
'
' 主页地址：http://www.xoYu.com
'
'==========================================
'程序名称：晓宇听幽新闻文章管理系统
'英文名称：xoYu News 2004 Professional
'程序创建时间：2003-7-10
'程序完成时间：2003-9-11
'最后修改时间：2003-10-10
'==========================================
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
xoYuStudioMsg="错误:个性签名多于250个字符!"
end if
if request("user")="" then
xoYuStudioMsg="错误:用户名不能为空!"
else
rs.open "select * from UserInfo where user='"&request("user")&"' and id<>"&request("id"),conn,1,1
if not rs.eof then
xoYuStudioMsg="错误:已经有相同的用户名了!"
end if
rs.close
end if
end if
rs.open "select * from UserInfo where dj<>4 and id="&request("id"),conn,1,2
if rs.eof then
xoYuStudioMsg="错误:没有 "&user&" 用户的资料!"
else
if request("type")="save" and xoYuStudioMsg="" then
if request.form("pwd")<>"" then
rs("pwd")=md5(trim(checkStr(request.form("pwd"))))
xoYuStudioMsg="成功:修改资料完成,同时密码已修改!"
else
xoYuStudioMsg="成功:修改资料完成,密码没被修改!"
end if
rs("user")=request.form("user")
rs("type")=request.form("xoYuType")
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")
xoYuType=rs("type")
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">
<meta copy="WWW.2KY.CN 共享世纪">
<title>共享世纪新闻文章管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</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 width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<td width="100%"><font color="#FF0000"><%=xoYuStudioMsg%></font>时间:<%=Now()%></td>
</tr>
</table>
<%end if%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<th width="100%">
<b>修改用户(<font color="#FFFFFF"><a target="_blank" href="user.asp?user=<%=user%>"><%=user%></a></font>)的资料</b></th>
</tr>
<tr>
<td width="100%" class=forumrow>
用户名：<input name="user" value="<%=user%>" size="15" >
<font color="#FF0000">*</font>
<font color="#FF0000"><input type="radio" value="0" name="lock"<%if lock<>"1" then%> checked<%end if%>></font>激活
<font color="#FF0000"><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>
<option value="3"<%if dj="3" then%> selected<%end if%>>④:系统管理员</option>
</select></td>
</tr>
<tr>
<td width="100%" class=forumrow>
登陆密码：<input name="pwd" size="15" type="password"> 不修改请留空</td>
</tr>
<tr>
<th width="100%">
<b>修改用户权限</b> (只对[超级管理员]有效)</th>
</tr>
<tr>
<td width="100%" class=forumrow>
栏目管理：<%if dj="2" then%><input type="text" name="xoYuType" size="20" value="<%=xoYuType%>">(请填入不同栏目的顶级类别，用","隔开各个类别)<%end if%>
<%if dj="3" then%>能管理所有的栏目（无需选择）<input type="hidden" name="xoYuType" size="20" value="all"><%end if%>
</td>
</tr>
<tr>
<td width="100%" class=forumrow>
文章管理：<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="InfoMb"<%if CheckAdminEdit("InfoMb",admin) then Response.Write(" checked")%>>模板
<input type="checkbox" name="admin" value="InfoSpecial"<%if CheckAdminEdit("InfoSpecial",admin) then Response.Write(" checked")%>>专题
<input type="checkbox" name="admin" value="InfoJS"<%if CheckAdminEdit("InfoJS",admin) then Response.Write(" checked")%>>js管理
<input type="checkbox" name="admin" value="InfoInsert"<%if CheckAdminEdit("InfoInsert",admin) then Response.Write(" checked")%>>插件
<input type="checkbox" name="admin" value="File"<%if CheckAdminEdit("File",admin) then Response.Write(" checked")%>>文件
<input type="checkbox" name="admin" value="log"<%if CheckAdminEdit("log",admin) then Response.Write(" checked")%>>日志</td>
</tr>
<tr>
<td width="100%" class=forumrow>
留言管理：<input type="checkbox" name="admin" value="GbookDel"<%if CheckAdminEdit("GbookDel",admin) then Response.Write(" checked")%>>删除留言</td>
</tr>
<tr>
<td width="100%" class=forumrow>
会员管理：<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="#FF0000">注意</font><font color="#808080">:开通"管理"权限即是给了该用户全部管理权限!)</font></td>
</tr>
<tr>
<td width="100%" class=forumrow>
系统数据：<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%" class=forumrow>
文章管理权限说明：添加:进入本类的最底要求权限、能够查看列表和添加文章,管理(自):能够管理自己添加的
文章但不能删除,(他)能够管理全部文章,批量修改移动,目录:能够加入、修改、删除目录,生成:能够生成所有页面(站长才可在生成首页时修改源文件),模板:能够
添加、修改网页模板,专题：管理专题的相关操作,JS管理：管理JS的相关操作,插件：管理插件的相关操作,文件：管理生成文件的相关操作,日志：管理日志
的相关操作</td>
</tr>
<tr>
<th width="100%">
<font color="#000080"><b>修改其它资料</b></font></th>
</tr>
<tr>
<td width="100%" class=forumrow>
性别：<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%" class=forumrow>
头像：<input name="face" size="15" value="<%=face%>">
<font color="#808080">代号请看:[</font><a target="_blank" href="face.asp">头像列表</a><font color="#808080">]</font></td>
</tr>
<tr>
<td width="100%" class=forumrow>
OICQ：<input name="oicq" size="15" value="<%=oicq%>"></td>
</tr>
<tr>
<td width="100%" class=forumrow>
E-Mail：<input name="email" size="32" value="<%=email%>"></td>
</tr>
<tr>
<td width="100%" class=forumrow>
个人主页：<input name="homepage" size="32" value="<%=homepage%>"></td>
</tr>
<tr>
<td width="100%" class=forumrow 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>
<th width="100%">
<p align="center">
<input name="b1" type="submit" value="确认修改">
<input name="b2" type="reset" value="全部还原"></p>
</th>
</tr>
</table>
</center>
</div>
</form>
</body>
</html>