?? admin_user.asp
字號:
<!--#include file="../Conn.asp"-->
<!--#include file="../Include/Md6.asp"-->
<%
If Session("AdminUserName") = "" Then
Response.Write "<script>window.open('Login.asp','_parent');</script>"
Response.End
End If
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<script>alert('警告！你正在從外部提交數(shù)據(jù)！！請立即終止！！');location.href='../index.htm';</script>"
Response.End
end If
Dim action,Id,Rs,Sql,UserName,PassWord
action = Request("action")
Id = Request("Id")
UserName = Request.Form("UserName")
PassWord = Request.Form("PassWord")
If Not IsNumeric(Id) Or Id = "" Then
Id = 0
End If
If action = "Add" Then
Call RegStr("^\s*[A-Za-z0-9_-]{3,15}\s*$",UserName,"用戶名必須是數(shù)字或字母，長度為3-15個字符！")
Call RegStr("^\s*[A-Za-z0-9_-]{3,15}\s*$",PassWord,"密碼必須是數(shù)字或字母，長度為3-15個字符！")
Set Rs = Conn.ExeCute("Select * From Admin where UserName='" & UserName & "'")
If Not (Rs.Eof Or Rs.Bof) Then
Response.Write "<script>alert('您要添加的管理員已存在！');location.href='admin_user.asp';</script>"
Response.End
End If
Set Rs = Nothing
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "Select * From Admin"
Rs.Open Sql,Conn,1,3
Rs.AddNew
Rs("UserName") = UserName
Rs("PassWord") = Md6(PassWord)
Rs.Update
Rs.Close
Set Rs = Nothing
Response.Write "<script>alert('管理員添加成功！');location.href='admin_user.asp';</script>"
Response.End
End If
If action = "Edit" Then
Set Rs = Conn.ExeCute("Select * From Admin where id=" & Id)
If Not (Rs.Eof Or Rs.Bof) Then
UserName = Rs("UserName")
Set Rs = Nothing
Else
Set Rs = Nothing
Response.Write "<script>alert('您要修改的管理員不存在！');location.href='admin_user.asp';</script>"
Response.End
End If
End If
If action = "Save" Then
Call RegStr("^\s*[A-Za-z0-9_-]{3,15}\s*$",PassWord,"密碼必須是數(shù)字或字母，長度為3-15個字符！")
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "Select * From Admin where id=" & Id
Rs.Open Sql,Conn,1,3
If Not (Rs.Eof Or Rs.Bof) Then
Rs("PassWord") = Md6(PassWord)
Rs.Update
Rs.Close
Set Rs = Nothing
Response.Write "<script>alert('密碼修改成功！');location.href='admin_user.asp';</script>"
Response.End
Else
Set Rs = Nothing
Response.Write "<script>alert('您要修改的管理員不存在！');location.href='admin_user.asp';</script>"
Response.End
End If
End If
If action = "Del" Then
Conn.Execute("Delete From Admin where id=" & Id)
Response.Write "<script>alert('管理員刪除成功！');location.href='admin_user.asp';</script>"
Response.End
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Name%>—后臺管理</title>
<link href="../images/text.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" height="32" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" background="../images/bj3.jpg">管理員賬戶管理</td>
</tr>
<tr>
<td></td>
</tr>
</table>
<br>
<form id="form1" name="form1" method="post" action="admin_user.asp">
<table width="400" border=0 align="center" cellPadding=3 cellSpacing=0 bordercolor="#999999" borderColorDark=#ffffff bgcolor="#F9F9F9">
<tr>
<td width="100" align="right" valign="middle"><span class="font_red">管理員帳戶：</span></td>
<td><input name="UserName" type="text" class="inp1" id="UserName" style="width:200px;" value="<%=UserName%>" /></td>
</tr>
<tr>
<td width="100" align="right" valign="middle"><span class="font_red">管理員密碼：</span></td>
<td><input name="PassWord" type="password" class="inp1" id="PassWord" style="width:200px;" /></td>
</tr>
<%
If action = "Edit" Then
Response.Write "<input name=""Id"" type=""hidden"" value=""" & Id & """ />"
Response.Write "<input name=""action"" type=""hidden"" value=""Save"" />"
Response.Write "<tr><td colspan=""2"" align=""center"" valign=""middle""><input class=btn type=""submit"" name=""submit"" value="" 修 改 管 理 員 ""></td></tr>"
Else
Response.Write "<input name=""action"" type=""hidden"" value=""Add"" />"
Response.Write "<tr><td colspan=""2"" align=""center"" valign=""middle""><input class=btn type=""submit"" name=""submit"" value="" 添 加 管 理 員 ""></td></tr>"
End If
%>
</table>
</form><br />
<table width="600" border=1 align="center" cellPadding=3 cellSpacing=0 bordercolor="#999999" borderColorDark=#ffffff bgcolor="#F9F9F9">
<tr bgcolor="#F5FBFE" align="center">
<td width="20%" align="center" valign="middle" class="td2">管理員帳戶</td>
<td width="20%" align="center" valign="middle" class="td2">上次登陸IP</td>
<td width="35%" align="center" valign="middle" class="td2">上次登陸時間</td>
<td width="12%" align="center" valign="middle" class="td2">修改</td>
<td width="13%" align="center" valign="middle" class="td2">刪除</td>
</tr>
<%
Set Rs = Conn.Execute("Select * From Admin Order By Id Asc")
Do While Not Rs.Eof
%>
<tr bgcolor="#FFFFFF" align="center">
<td align="left" valign="middle" class="td"> <%=Rs("UserName")%></td>
<td align="left" valign="middle" class="td"> <%=Rs("LoginIp")%></td>
<td align="center" valign="middle" class="td"> <%=Rs("LoginTime")%></td>
<td align="center" valign="middle" class="td"><a href="admin_user.asp?action=Edit&Id=<%=Rs("Id")%>">修改</a></td>
<td align="center" valign="middle" class="td"><a href="admin_user.asp?action=Del&Id=<%=Rs("Id")%>">刪除</a></td>
</tr>
<%
Rs.MoveNext
Loop
Set Rs = Nothing
%>
</table>
<br>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -