📄 admin_usersetting.asp
字号:
<!--#include file="Config.asp" -->
<!--#include file="../inc/md5.asp" -->
<HTML><HEAD><TITLE>用户权限设置</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="安徽二手市场">
<link rel="stylesheet" href="admin.css" type="text/css">
</HEAD>
<BODY leftMargin=0 topMargin=2>
<%
if not isnull(UserName) and UserName<>"" then
if chkMaster(UserName) then
select case request("action")
case "add"
call SaveAdd()
case "modify"
call SaveModify()
case "edit"
isEdit=True
call myform(isEdit)
case else
isEdit=False
call myform(isEdit)
end select
else
msgtitle="用户权限设置"
msginfo="<li>操作错误，你不是系统管理员，没有权限进行此项操作！</li>"
call Sysmsg(msgtitle,msginfo)
end if
else
msgtitle="用户权限设置"
msginfo="<li>操作错误，你没有登录系统！<li><a href=""User.Asp"" class=""ArticleList"">点此登录系统</a><li><a href=""./"" class=""ArticleList"">返回频道首页</a></li>"
call Sysmsg(msgtitle,msginfo)
end if
sub SaveModify()
set rs=server.createobject("adodb.recordset")
sql="select * from Admin_UserInfo where UserID="&request.form("UserID")
rs.open sql,conn,1,3
if Trim(Request.Form("pubSubCateID"))<>"" then
rs("CatePub")=request.form("pubSubCateID")
else
rs("CatePub")=0
end if
if Trim(Request.Form("admSubCateID"))<>"" then
rs("CateAdm")=request.form("admSubCateID")
else
rs("CateAdm")=0
end if
rs("CategoryName")=CategoryName
if Trim(Request.Form("isActive"))<>"" then
rs("isActive")=1
else
rs("isActive")=0
end if
if Trim(Request.Form("isAdmin"))<>"" then
rs("isAdmin")=1
else
rs("isAdmin")=0
end if
rs.update
rs.close
set rs=nothing
msgtitle="保存设置"
msginfo="<li>用户设置成功!</li><li><a href='Admin_User.asp'>回到用户管理</a></li>"
call Sysmsg(msgtitle,msginfo)
end sub
sub SaveAdd()
set rs=server.createobject("adodb.recordset")
sql="select * from Admin_UserInfo where (UserID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("UserName")=request.form("UserName")
rs("PassWord")=md5(request.form("PassWord"))
if Trim(Request.Form("pubSubCateID"))<>"" then
rs("CatePub")=request.form("pubSubCateID")
else
rs("CatePub")=0
end if
if Trim(Request.Form("admSubCateID"))<>"" then
rs("CateAdm")=request.form("admSubCateID")
else
rs("CateAdm")=0
end if
rs("CategoryName")=CategoryName
rs("RegDate")=Now()
if Trim(Request.Form("isActive"))<>"" then
rs("isActive")=1
else
rs("isActive")=0
end if
if Trim(Request.Form("isAdmin"))<>"" then
rs("isAdmin")=1
else
rs("isAdmin")=0
end if
rs.update
rs.close
set rs=nothing
msgtitle="添加用户"
msginfo="<li>添加用户成功!</li><br><li><a href='Admin_UserSetting.asp'>继续添加新用户</a></li><br><li><a href='Admin_User.asp'>回到用户管理</a></li>"
call Sysmsg(msgtitle,msginfo)
end sub
sub myform(isEdit)
dim Rs,SubRs
set Rs=server.createobject("adodb.recordset")
set SubRs=server.createobject("adodb.recordset")
%>
<script language="JavaScript" type="text/JavaScript">
function SelectAllPub() {
for (var i=0;i<document.form1.pubSubCateID.length;i++) {
var e=document.form1.pubSubCateID[i];
e.checked=!e.checked;
}
}
function SelectAllAdm() {
for (var i=0;i<document.form1.admSubCateID.length;i++) {
var e=document.form1.admSubCateID[i];
e.checked=!e.checked;
}
}
</script>
<form name="form1" method="post" action="admin_usersetting.asp">
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
<tr align="center">
<th>
<input type="Hidden" name="action" value='<% If isedit then%>modify<% Else %>add<% End If %>'>
<%If isedit then
rs.open "select * from Admin_UserInfo where UserID=" & cstr(request("UserID")),conn,1,1
UserCatePub=rs("CatePub")
UserCateAdm=rs("CateAdm")
setUserName=rs("UserName")
Response.Write("<b>设置用户</b>")
%> <input type="Hidden" name="UserID" value='<%=cstr(request("UserID"))%>'>
<%else
Response.Write("<b>添加用户</b>")
End If %> </th>
</tr>
<tr>
<td class="forumRow">用户名：
<input name="UserName" type="text" id="UserName" size="16" value=<% if isedit then
response.write "'"&trim(rs("UserName"))&"' disabled"
end if %>>
密 码：
<input name="PassWord" type="text" id="UserName" size="16" value=<% if isedit then
response.write "'"&trim(rs("PassWord")) &"' disabled"
end if %>>
激活用户
<input name="isActive" type="checkbox" id="isActive" value="1" <% if isedit then
if rs("isActive")=true then response.write "checked"
end if %>> 超级管理员
<input name="isAdmin" type="checkbox" id="isAdmin" value="1" <% if isedit then
if rs("isAdmin")=true then response.write "checked"
rs.close
end if %>></td>
</tr>
<tr>
<td height="24" class="forumRowHighlight"><font color="#FF0000"><strong> <img src="images/dotdb.gif" width="10" height="10" align="absmiddle">
设置发布权限</strong></font>：全选/反选
<input type=checkbox name=chkall value=on onClick="javascript:SelectAllPub()"></td>
</tr>
<tr>
<td class="forumRow">
<% rs.open "select * from "&CategoryName&"_Cate order by CateID asc",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
response.write "没有添加大类"
else
do while not rs.eof %>
<table width="100%" border="0" align="center" cellspacing="0">
<tr>
<td class="forumRowHighlight"><b><%=rs("CateName")%></b></td>
</tr>
</table>
<table width="100%" border="0" align="center">
<tr>
<td class="forumRow">
<% SubRs.open "select * from "&CategoryName&"_SubCate where CateID="&Rs("CateID")&" order by SubCateID asc",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if SubRs.bof and SubRs.eof then
response.write "没有添加小类"
else
i=1
do while not SubRs.eof
%> <input type='checkbox' name='pubSubCateID' value='<%=SubRs("SubCateID")%>' <%
if isedit then
if chk_isPub(setUserName,SubRs("SubCateID"),UserCatePub) then Response.Write("checked")
end if
%>><%=SubRS("SubCateName")%> <%
if (i mod 7)=0 then response.write "<br>"
i=i+1
SubRs.movenext
loop
end if
end if
SubRs.close
%> </td>
</tr>
</table>
<% rs.movenext
loop
end if
end if
rs.close
%> </td>
</tr>
<tr>
<td height="24" class="forumRowHighlight"><font color="#FF0000"><strong> <img src="images/dotdb.gif" width="10" height="10" align="absmiddle">
设置管理权限</strong></font>：全选/反选
<input type=checkbox name=chkall2 value=on onClick="javascript:SelectAllAdm()">
(以下用户管理功能暂时没有应用) </td>
</tr>
<tr>
<td class="forumRow">
<% rs.open "select * from "&CategoryName&"_Cate order by CateID asc",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
response.write "没有添加大类"
else
do while not rs.eof %>
<table width="100%" border="0" align="center" cellspacing="0">
<tr>
<td class="forumRowHighlight"><b><%=rs("CateName")%></b></td>
</tr>
</table>
<table width="100%" border="0" align="center">
<tr>
<td> <% SubRs.open "select * from "&CategoryName&"_SubCate where CateID="&Rs("CateID")&" order by SubCateID asc",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if SubRs.bof and SubRs.eof then
response.write "没有添加小类"
else
i=1
do while not SubRs.eof
%> <input type='checkbox' name='admSubCateID' value='<%=SubRs("SubCateID")%>' <%
if isedit then
if chk_isPub(setUserName,SubRs("SubCateID"),UserCateAdm) then Response.Write("checked")
end if
%>><%=SubRS("SubCateName")%> <%
if (i mod 7)=0 then response.write "<br>"
i=i+1
SubRs.movenext
loop
end if
end if
SubRs.close
%> </td>
</tr>
</table>
<% rs.movenext
loop
end if
end if
rs.close
%> </td>
</tr>
<tr>
<td class="forumRow">
<input type="submit" name="Submit" value=" 确 定 ">
<input type=button name="Submit" value=" 取 消 " onClick="self.location='Admin_User.asp'" >
</td>
</tr>
</table>
</form>
<table width="98%" border="0" cellspacing="1" bgcolor="#CCCCCC">
</table>
<%
set rs=nothing
set Subrs=nothing
end sub
sub Sysmsg(msgtitle,msginfo)
%>
<br>
<table width="85%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder" >
<tr>
<th><%=msgtitle%></th>
</tr>
<tr>
<td class="forumRow"><%=msginfo%></td>
</tr>
<tr>
<td height="22" align="center" class="forumRowHighlight"><a href="javascript:history.go(-1)" ><<
返回上一页</a></td>
</tr>
</table>
<br>
<%end sub %>
</BODY></HTML>
<%
CloseDatabase
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -