?? admin_manager.asp
字號:
<!--#include file="Include/Tyi86_setup.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="include/char.asp" -->
<!--#include file="Include/check.asp"-->
<!--#include FILE="Include/Admin_Function.asp"-->
<!--#include file="other/Tyi86_md5.asp" -->
<link href="other/Admin.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function doSubmit(){
if (document.Manage_add.username.value==""){
alert("用戶名不能為空！");
return false;
}
if (document.Manage_add.password.value==""){
alert("密碼不能為空！");
return false;
}
return true;
}
//-->
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="23"><div align="center"><a href="Admin_Manager.asp">所有管理員信息</a></div></td>
</tr>
</table>
<%
CheckAdmin3
if Request.QueryString("Action")="Modify" then
UserName=request("UserName")
password=request("Password")
Md5_Pass=md5(password)
If UserName="" Then
Response.Write "<script>alert(""請輸入用戶名!"");location.href=""javascript:history.back()"";</script>"
Response.end()
end if
ID=Request("ID")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Admin where ID="&ID&""
rs.open sql,conn,1,3
rs("Username")=UserName
rs("oskey")=request("oskey")
If password<>"" Then
rs("Password")=Md5_Pass
end if
rs.update
rs.close
response.redirect "Admin_Manager.asp"
end if
'del----------------------
if request("Action")="Del" then
id=Request.QueryString("id")
delsql="delete from admin where id="&id
conn.execute(delsql)
conn.close
response.redirect"Admin_Manager.asp"
end if
'add----------------------
if request("Action")="Add" then
UserName=request("UserName")
password=request("Password")
Md5_Pass=md5(password)
If UserName="" Then
Response.Write "<script>alert(""請輸入用戶名!"");location.href=""javascript:history.back()"";</script>"
Response.end()
end if
If password="" Then
Response.Write "<script>alert(""請輸入密碼!"");location.href=""javascript:history.back()"";</script>"
Response.end()
end if
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'"
rs.open sql,conn,1,3
if (rs.eof and rs.bof) then
rs.addnew
rs("oskey")=request("oskey")
rs("Username")=UserName
rs("Password")=Md5_Pass
rs.update
rs.close
else
response.Write("<script>alert(""用戶已存在！"");location.href=""Admin_Manager.asp"";</script>")
end if
end if
if request("Action")="Edit" then
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where id="&id
rs.open sql,conn,1,1
Username=rs("Username")
Password=rs("Password")
oskey=rs("oskey")
%>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form method="POST" action="Admin_Manager.asp?Action=Modify" id="Manage" name="Manage">
<tr bgcolor="#EAEAEA">
<td width="100%" height="24" colspan=2 align=center><b>修 改 管 理 員 資 料</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="30%" height="22" align="right">用戶名：</td>
<td width="70%">
<input type="text" name="username" value="<%=Username%>" size="20" class=input></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="30%" height="22" align="right">密碼：</td>
<td width="70%">
<input type="password" name="password" size="20" class=input>
不修改時保留 </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="30%" height="22" align="right">權限：</td>
<td width="70%" height="22">
<select name="oskey" style="font-size:9pt">
<option value=super<%if oskey="super" then%> selected<%end if%>>高級管理員</option>
<option value=check<%if oskey="check" then%> selected<%end if%>>中級管理員</option>
<option value=input<%if oskey="input" then%> selected<%end if%>>初級管理員</option>
</select>
</td>
</tr>
<tr align="center" bgcolor="#EAEAEA" height="24">
<td height="24" colspan=2><input name="ID" type="hidden" id="ID" value="<%=ID%>">
<input type="submit" value=" 修 改 " name="cmdok2" class=input onClick="return doSubmit()">
<input type="reset" value=" 清 除 " name="cmdcance2l" class=input>
</td>
</tr>
</form>
</table>
<%
response.end
end if
%>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="100%" height="22" colspan=5 align=center><strong>管 理 員 列 表</strong></td>
</tr>
<tr bgcolor="#EAEAEA" height=22>
<td width="10%" height="21" align="center">ID號</td>
<td width="25%" height="21" align="center">名稱</td>
<td width="20%" height="21" align="center">權限</td>
<td width="10%" height="21" align="center">修改</td>
<td width="10%" height="21" align="center">刪除</td>
</tr>
<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from admin"
rs.open sql,conn,1
%>
<% if rs.EOF then %>
<tr bgcolor="#FFFFFF">
<td height="22" colspan=5 align=center>沒有用戶 :（</td>
</tr>
<%
else
do while NOT rs.EOF
if rs("oskey")="super" then oskey="高級管理員"
if rs("oskey")="check" then oskey="中級管理員"
if rs("oskey")="input" then oskey="初級管理員"
%>
<tr bgcolor="#FFFFFF" height="22">
<td width="10%" align="center"><%=rs("id")%> </td>
<td width="25%" align="center"><%=rs("Username")%></td>
<td width="20%" align="center"><%=oskey%> </td>
<td width="10%" align="center"><a href="Admin_Manager.asp?Action=Edit&id=<%=rs("id")%>">修改</a></td>
<td width="10%" align="center" bgcolor="#FFFFFF"><a href="Admin_Manager.asp?Action=Del&id=<%=rs("id")%>">刪 除</a></td>
</tr>
<%
rs.MoveNext
loop
end if
rs.close
%>
<%
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<br>
<table width="600" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC" style="border-collapse:collapse;">
<FORM METHOD=POST ACTION="Admin_Manager.asp?Action=Add" id="Manage_add" name="Manage_add">
<tr bgcolor="#EAEAEA">
<td height=24 colspan=2 align="center"><strong>添 加 管 理 員</strong></td>
</tr>
<tr bgcolor="#FFFFFF" height="22">
<td height="39" colspan="2" Valign="top"><p> 1."初級管理員"： 可以進行留言管理。</p>
<p> 2."中級管理員"： 可以對留言內容及新聞內容進行管理。</p>
<p>3."高極管理員"： 后臺管理的所有權限。</p>
</td>
</tr>
<tr bgcolor="#FFFFFF" height="22">
<td width="188" height="23" align="right">管 理 員 名：</td>
<td width="409" height="23"> <input name=username type=text class=input id="username" onfocus=this.select() onmouseover=this.focus() value="" size="15" maxlength="30"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="23" align="right">管 理 權 限：</td>
<td height="23"> <select name="oskey">
<option value=super selected>高極管理員</option>
<option value=check>中級管理員</option>
<option value=input>初級管理員</option>
</select> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="23" align="right">管 理 密 碼：</td>
<td height="23"> <input name=password type=password class=input id="password" onfocus=this.select() onmouseover=this.focus() value="" maxlength="30"></td>
</tr>
<tr bgcolor="#EAEAEA">
<td height="24" colspan=2 align="center"> <input type=hidden value="add" name="act">
<input type=submit value=增加 name="submit" class=input onClick="return doSubmit()">
<input type=reset name="Submit" value="取消" class=input> </td>
</tr>
</FORM>
</table>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -