📄 add_admin.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="setting.asp"-->
<!--#include file="md5.asp"-->
<%
function GernerateHtml(str)
if str <> "" then
str = Replace(str,"&","&")
str = Replace(str,"<","<")
str = Replace(str,">",">")
str = Replace(str," "," ")
str = Replace(str," "," ")
str = Replace(str,vbCrLf,"<br>")
GernerateHtml = str
else
GernerateHtml = ""
end if
end function
%>
<%
if session("quanxian")<>"超级管理员" then
response.Redirect("admin_wrong.asp?url=admin_center.asp&reason=你可能没权限使用此功能,请联系超级管理员!")
end if
if request("action")="add" then
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from admin "
rs.Open sql,conn,1,3
name1=GernerateHtml(request("admin_name"))
password=GernerateHtml(request("admin_password"))
quanxian=request("select")
if name1="" then
response.Redirect("admin_wrong.asp?url=add_admin.asp&reason=请填写管理员用户名!")
end if
if password="" then
response.Redirect("admin_wrong.asp?url=add_admin.asp&reason=请填写管理员密码!")
end if
rs.addnew
rs("name")=name1
rs("password")=md5(password)
rs("quanxian")=quanxian
rs.update
rs.close
end if
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from admin "
rs.Open sql,conn,1,1
do while not rs.eof
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<link href="css/css.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
body {
background-image: url();
}
-->
</style></head>
<body>
<div>
<div align="center">
<table width="861" border="0" bgcolor="#FFFFFF" class="tb1">
<tr>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="center"><span class="STYLE2">管理员信息</span></div></td>
</tr>
<tr>
<td><table width="861" border="0">
<tr>
<td background="image/bg.png" class="STYLE3"><div align="center">管理员名称</div></td>
<td background="image/bg.png" class="STYLE3"><div align="center">管理员密码</div></td>
<td background="image/bg.png" class="STYLE3"><div align="center">管理员权限</div></td>
</tr>
<tr>
<td class="STYLE3"><div align="center"><%=rs("name")%></div></td>
<td class="STYLE3"><div align="center"><%=rs("password")%> </div></td>
<td class="STYLE3"><div align="center" class="STYLE8"><%=rs("quanxian")%> </div></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><form name="form1" method="post" action="add_admin.asp?action=add">
<label>
管理员用户名:
<input name="admin_name" type="text" class="tb1" id="admin_name">
</label>
管理员密码:
<input name="admin_password" type="password" class="tb1" id="admin_password">
管理员权限:
<label>
<select name="select" class="tb1">
<option value="管理员">管理员</option>
<option value="超级管理员">超级管理员</option>
</select>
</label>
<p>
<label>
<div align="center">
<input name="Submit" type="submit" class="STYLE3" value="添加新的管理员">
</div>
</label>
</p>
</form> </td>
</tr>
<tr>
<td><p>超级管理员权限可以<span class="STYLE8">刷新和自定义模板</span>而管理员不行.</p>
<p class="STYLE8">友情提示，为了你的网站安全性，请勿添加过多管理员.同时，为防止非法管理员恶意删除，本系统不提供删除管理员功能，若想删除管理员直接到数据库里删除！</p></td>
</tr>
<tr>
<td background="image/bg.png"> </td>
</tr>
</table>
</div>
</div>
</body>
<%
rs.movenext
loop
%>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -