📄 admin_manager.asp
字号:
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLAdmin.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockAdmin.asp"-->
<!--#include file="Include/MD5.asp"-->
<%dim Admin_Purview:Admin_Purview="3"%>
<html>
<head>
<title>网站用户设置</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="">
<meta name="Description" Content="">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
<Script Language="JavaScript" src="Include/Function.js"></Script>
<Script Language="JavaScript" src="Include/PopText.js"></Script>
</head>
<body leftmargin="10" topmargin="10" bgcolor="#FFFFFF">
<!--#include file="Include/Session.asp"-->
<%
if Trim(Request.Form("GuComm"))<>"" then
dim GuSystemError,GuSystemCode,GuSystemMessage,GuSystemURL
dim Ma_Username,Ma_Password,Ma_Purview,Ma_AddDate,Ma_LoginNumber,Ma_LastLoginDate,Ma_LastLoginIP
dim ManagerID,GuResourceID
if Trim(Request.Form("GuComm"))="AdMo" and Trim(Request.Form("Ma_Option"))<>"" then
GuSystemError=false
if Trim(Request.Form("Ma_Option"))="Ad" and Trim(Request.Form("GuUsername"))="" then
GuSystemError=true
GuSystemCode=3
GuSystemMessage="没有填写用户账号"
else
Ma_Username=Trim(Request.Form("GuUsername"))
end if
dim rsMa1
set rsMa1=Server.CreateObject("Adodb.RecordSet")
if Trim(Request.Form("Ma_Option"))="Ad" then
GuSQL="select * from "&GuTablePrefix&"_Manager where Ma_Username='"&Ma_Username&"'"
rsMa1.open GuSQL,GuConn,1,1
if not rsMa1.EOF then
GuSystemError=true
GuSystemCode=3
GuSystemMessage="相同名称的用户账号已经存在"
end if
rsMa1.close
set rsMa1=Nothing
end if
if Trim(Request.Form("GuPassword"))="" then
GuSystemError=true
GuSystemCode=3
GuSystemMessage="没有填写登录密码"
end if
if GuSystemError=false then
Ma_Password=MD5(MD5(Trim(Request.Form("GuPassword"))))
Ma_Purview=Trim(Request.Form("Ma_Purview"))
GuTablePrefix=GuTablePrefix
if Trim(Request.Form("Ma_Option"))="Ad" then
Call ManagerAdd()
else
Call ManagerModify()
end if
end if
elseif Trim(Request.Form("GuComm"))="De" then
if Trim(Request.Form("ManagerID"))="" then
GuSystemError=true
GuSystemCode=3
GuSystemMessage="没有选择要删除的用户账号"
else
ManagerID=Trim(Request.Form("ManagerID"))
Call ManagerDelete()
end if
elseif Request("GuComm")="LD" then
dim rsMa2,LogPasswordT,LogPasswordF
set rsMa2=Server.CreateObject("Adodb.RecordSet")
GuSQL="select Co_LogPassword from "&GuTablePrefix&"_Config where Co_ID=1"
rsMa2.open GuSQL,GuConn,1,1
LogPasswordT=rsMa2("Co_LogPassword")
rsMa2.close
set rsMa2=Nothing
LogPasswordF=MD5(MD5(Request.Form("LogPassword")))
if Trim(Request.Form("GuResourceID"))="" or LogPasswordT<>LogPasswordF then
GuSystemError=true
GuSystemCode=3
GuSystemMessage="没有选择要删除的日志或密码错误"
else
GuResourceID=Trim(Request.Form("GuResourceID"))
Call LoginLogDelete()
end if
else
GuSystemError=true
GuSystemMessage="？"
end if
Sub ManagerAdd()
dim rsMa3
set rsMa3=Server.CreateObject("Adodb.RecordSet")
rsMa3.open "select * from "&GuTablePrefix&"_Manager where Ma_Username='"&Ma_Username&"'",GuConn,1,3
GuSQL="select * from "&GuTablePrefix&"_Manager where (Ma_ID is null)"
rsMa3.addnew
rsMa3("Ma_Username")=Ma_Username
rsMa3("Ma_Password")=Ma_Password
rsMa3("Ma_Purview")=Ma_Purview
rsMa3("Ma_TablePrefix")=GuTablePrefix
rsMa3("Ma_AddDate")=date()
rsMa3("Ma_LoginNumber")=0
rsMa3("Ma_LastLoginDate")=date()
rsMa3("Ma_LastLoginIP")="0.0.0.0"
rsMa3.update
rsMa3.close
set rsMa3=Nothing
GuSystemCode=00
GuSystemMessage="用户账号已添加完成"
GuSystemURL="<a href=""Admin_Manager.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
end sub
Sub ManagerModify()
dim rsMa4
set rsMa4=Server.CreateObject("Adodb.RecordSet")
GuSQL="select * from "&GuTablePrefix&"_Manager where Ma_Username='"&GuAdminUsername&"'"
rsMa4.open GuSQL,GuConn,1,3
rsMa4("Ma_Password")=Ma_Password
rsMa4("Ma_Purview")=Ma_Purview
rsMa4.update
rsMa4.close
set rsMa4=Nothing
GuSystemCode=00
GuSystemMessage="用户账号["&GuAdminUsername&"]的密码已修改完成"
GuSystemURL="<a href=""Admin_Manager.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
end sub
Sub ManagerDelete()
GuConn.execute("delete from "&GuTablePrefix&"_Manager where Ma_ID in ("&ManagerID&")")
GuSystemCode=00
GuSystemMessage="用户账号已删除完成"
GuSystemURL="<a href=""Admin_Manager.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
end sub
Sub LoginLogDelete()
GuConn.execute("delete from "&GuTablePrefix&"_LoginLog where LL_ID in ("&GuResourceID&")")
GuSystemCode=00
GuSystemMessage="用户登录日志已删除完成"
GuSystemURL="<a href=""Admin_Manager.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
end sub
call GuMessage()
else
%>
<table border="0" cellpadding="0" cellspacing="1" width="600" height="10" bgcolor="#CEEFE7">
<form name="Admin_Manager" method="post" action="Admin_Manager.asp">
<tr>
<td width="600" height="30" background="Images/Admin_T_Bg1.gif" align="center" colspan="4"><font class="BlackS12"><b>网 站 用 户 管 理</b></font></td>
</tr>
<tr>
<td width="600" height="10" bgcolor="#FFFFFF" colspan="4"></td>
</tr>
<tr>
<td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">用户账号</font></td>
<td width="218" height="28" bgcolor="#FFFFFF"> <input type="text" name="GuUsername" Maxlength="20" value="<%=GuAdminUsername%>" class="Admin_InputText" style="width:170;background-color:#EAFBF5;"></td>
<td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">操作选项</font></td>
<td width="218" height="28" bgcolor="#FFFFFF"> <font class="BlackS12"><input type="radio" name="Ma_Option" value="Ad" id="LabelMa_OptionA"><label for="LabelMa_OptionA">创建账号</label> <input type="radio" name="Ma_Option" value="Mo" id="LabelMa_OptionE" checked><label for="LabelMa_OptionE">修改密码</label></font></td>
</tr>
<tr>
<td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">登录密码</font></td>
<td width="218" height="28" bgcolor="#FFFFFF"> <input type="password" name="GuPassword" Maxlength="20" size="20" value class="Admin_InputText" style="width:170;background-color:#EAFBF5;"></td>
<td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">账号权限</font></td>
<td width="218" height="28" bgcolor="#FFFFFF"> <font class="BlackS12"><input type="radio" name="Ma_Purview" value="1" id="LabelMa_Purview1"><label for="LabelMa_Purview1">普通账号</label> <input type="radio" name="Ma_Purview" value="3" id="LabelMa_Purview3" checked><label for="LabelMa_Purview3">超级账号</label></font></td>
</tr>
<tr>
<td width="80" height="38" bgcolor="#FFFFFF"></td>
<td width="518" height="38" bgcolor="#FFFFFF" colspan="3"> <input type="hidden" name="GuComm" value="AdMo"><input type="submit" name="Submit" value="" class="Admin_Button_ok"> <input type="Reset" value="" name="Admin_Button_Reset" class="Admin_Button_Reset"> </td>
</tr>
</form>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="1" width="600" height="10" bgcolor="#CEEFE7">
<form name="Admin_Manager_Delete" method="post" action="Admin_Manager.asp">
<tr>
<td width="41" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">编号</font></td>
<td width="38" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">选择</font></td>
<td width="140" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">用户账号</font></td>
<td width="44" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">权限</font></td>
<td width="76" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">创建日期</font></td>
<td width="68" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">登录次数</font></td>
<td width="76" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">最后登录</font></td>
<td width="108" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">最后登录IP地址</font></td>
</tr>
<%
dim rsMa5
set rsMa5=Server.CreateObject("Adodb.RecordSet")
GuSQL="select top 100 Ma_ID,Ma_Username,Ma_Purview,Ma_AddDate,Ma_LoginNumber,Ma_LastLoginDate,Ma_LastLoginIP from "&GuTablePrefix&"_Manager order by Ma_ID asc"
rsMa5.open GuSQL,GuConn,1,1
if err.number<>0 then
Response.write "<tr><td width=""600"" height=""40"" colspan=""8"" bgcolor=""#FFFFFF""> <font class=""RedS12"">数据库查询出错</font></td></tr>"
else
if rsMa5.bof and rsMa5.eof then
Response.write "<tr><td width=""600"" height=""40"" colspan=""8"" bgcolor=""#FFFFFF""> <font class=""SilverS12"">没有找到相关数据</font></td></tr>"
else
do while not rsMa5.eof
%><tr bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#EAFBF5'" onMouseOut="this.style.backgroundColor='#FFFFFF'">
<td width="41" height="26" align="center"><font class="BlackS12"><%=rsMa5("Ma_ID")%></font></td>
<td width="38" height="26" align="center"><input type="checkbox" name="ManagerID" value="<%=rsMa5("Ma_ID")%>"></td>
<td width="140" height="26"> <font class="BlackV12"><%=rsMa5("Ma_Username")%></font></td>
<td width="44" height="26" align="center"><font class="BlackS12"><%if rsMa5("Ma_Purview")=3 then%>超级<%else%>普通<%end if%></font></td>
<td width="76" height="26" align="center"><font class="BlackS12"><%=rsMa5("Ma_AddDate")%></font></td>
<td width="68" height="26" align="center"><font class="BlackS12"><%=rsMa5("Ma_LoginNumber")%></font></td>
<td width="76" height="26" align="center"><font class="BlackS12"><%=rsMa5("Ma_LastLoginDate")%></font></td>
<td width="108" height="26" align="center"><a href="<%=GuestbookUserIP%><%=rsMa5("Ma_LastLoginIP")%>" target="_blank" class="BlackS12"><%=rsMa5("Ma_LastLoginIP")%></a></td>
</tr>
<%
rsMa5.MoveNext
Loop
rsMa5.close
set rsMa5=Nothing
%>
<tr>
<td width="600" height="38" bgcolor="#FFFFFF" colspan="8" align="right"><input type="hidden" name="GuComm" value="De"><input type="submit" name="Submit" value="" class="Admin_Button_Delete"> </td>
</tr>
<%
end if
end if
%>
</form>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="1" width="600" height="10" bgcolor="#CEEFE7">
<form name="Admin_Manager_Log" method="post" action="Admin_Manager.asp">
<tr>
<td width="600" height="30" background="Images/Admin_T_Bg1.gif" align="center" colspan="6"><font class="BlackS12"><b>用 户 登 录 日 志</b></font></td>
</tr>
<tr>
<td width="600" height="10" bgcolor="#FFFFFF" colspan="6"></td>
</tr>
<tr>
<td width="41" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">编号</font></td>
<td width="38" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">选择</font></td>
<td width="140" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">用户账号</font></td>
<td width="108" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">登录IP地址</font></td>
<td width="140" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">登录时间</font></td>
<td width="126" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">备注</font></td>
</tr>
<%
dim rsMa6
set rsMa6=Server.CreateObject("Adodb.RecordSet")
GuSQL="select top 100 LL_ID,LL_Username,LL_IP,LL_Code,LL_DateTime from "&GuTablePrefix&"_LoginLog order by LL_ID asc"
rsMa6.open GuSQL,GuConn,1,1
if err.number<>0 then
Response.write "<tr><td width=""600"" height=""40"" colspan=""6"" bgcolor=""#FFFFFF""> <font class=""RedS12"">数据库查询出错</font></td></tr>"
else
if rsMa6.bof and rsMa6.eof then
Response.write "<tr><td width=""600"" height=""40"" colspan=""6"" bgcolor=""#FFFFFF""> <font class=""SilverS12"">没有找到相关数据</font></td></tr>"
else
do while not rsMa6.eof
%>
<tr bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#EAFBF5'" onMouseOut="this.style.backgroundColor='#FFFFFF'">
<td width="41" height="26" align="center"><font class="BlackS12"><%=rsMa6("LL_ID")%></font></td>
<td width="38" height="26" align="center"><input type="checkbox" name="GuResourceID" value="<%=rsMa6("LL_ID")%>"></td>
<td width="140" height="26"> <font class="BlackV12"><%=rsMa6("LL_Username")%></font></td>
<td width="108" height="26" align="center"><a href="<%=GuestbookUserIP%><%=rsMa6("LL_IP")%>" target="_blank" class="BlackS12"><%=rsMa6("LL_IP")%></a></td>
<td width="140" height="26" align="center"><font class="BlackS12"><%=rsMa6("LL_DateTime")%></font></td>
<td width="126" height="26"> <%if rsMa6("LL_Code")="0" then%><font class="BlackS12">登录成功<%elseif rsMa6("LL_Code")="2" then%><font class="BlackS12">登录失败，密码错误<%elseif rsMa6("LL_Code")="3" then Response.write "<font class=""BlackS12"">登录失败，验证错误" else Response.write "<font class=""BlackS12"">未知代码" end if%></font></td>
</tr>
<%
rsMa6.MoveNext
Loop
rsMa6.close
set rsMa6=Nothing
%>
<tr>
<td width="600" height="38" bgcolor="#FFFFFF" colspan="6" align="right"><input type="hidden" name="GuComm" value="LD"><input type="password" name="LogPassword" maxlength="20" class="Admin_InputText" value="" style="width:81;background-color:#FFFFFF;" title="日志密码"> <input type="submit" name="Submit" value class="Admin_Button_Delete"> <input type="button" name="Admin_Button_SelectAll" onclick="JavaScript:GuSelectAll(document.Admin_Manager_Log.GuResourceID);" class="Admin_Button_SelectAll"> <input type="button" name="Admin_Button_SelectReverse" class="Admin_Button_SelectReverse" onclick="JavaScript:GuSelectReverse(document.Admin_Manager_Log.GuResourceID);"> <input type="button" name="Admin_Button_SelectClear" class="Admin_Button_SelectClear" onclick="JavaScript:GuSelectClear(document.Admin_Manager_Log.GuResourceID);"> </td>
</tr>
<%
end if
end if
%>
</form>
</table>
<br>
<%end if%>
<!--#include file="Include/Message.asp"-->
</body>
</html>
<%CloseDatabase%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -