📄 adminaddadminsave.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
%>
<%
username=trim(request("username"))
pwd=trim(request("pwd"))
pwd1=trim(request("pwd1"))
tname=trim(request("tname"))
email=trim(request("email"))
function symbol_name(sn_var)
dim safety_char:symbol_name="yes":sn_var=trim(sn_var)
if sn_var="" or isnull(sn_var) or len(sn_var)>20 or instr(sn_var,"|")>0 or instr(sn_var,":")>0 or instr(sn_var,chr(9))>0 or instr(sn_var,chr(32))>0 or instr(sn_var,"'")>0 or instr(sn_var,"""")>0 then symbol_name="no":exit function
safety_char="$%#*@&=<>'`~!^()+\|:;,./?"
for i=1 to len(sn_var)
if instr(1,safety_char,mid(sn_var,i,1))>0 then symbol_name="no":exit function
next
end function
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统管理 | 综合管理 | 管理员管理 | 添加管理员</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<div align="center">
<center>
<table cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="400" id="AutoNumber2" border="1">
<form method="POST" action="adminaddadminsave1.asp"><tr>
<td width="100%" height="25" bgcolor="#6699CC" background="images/admin_bg_1.gif" bordercolor="#799AE1">
<p align="center"><b> <font color="#FFFFFF">添加管理员信息确认</font></b></td>
</tr>
<tr>
<td width="100%" height="160" bgcolor="#FFFDE8" bordercolor="#799AE1">
<p align="center"> </p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="174">
<tr>
<td width="45%" height="34">
<p align="right">用 户 名：</td>
<td width="55%" height="34"><%
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select * from tbadmin where username='"&username&"'",conn
if not rs.EOF then
Response.Write "<font color=red>该用户名已经存在</font>"
founder="false"
else
if symbol_name(username)<>"yes" then
founder="false"
Response.Write "<font color=red>该用户名不符合相关规则！</font>"
else
response.write username
end if
end if%> </td>
</tr>
<tr>
<td width="45%" height="35">
<p align="right">密 码：</td>
<td width="55%" height="35"><%if pwd<>pwd1 then
Response.Write "<font color=red>密码不一致</font>"
founder="false"
else
response.write pwd
end if
%></td>
</tr>
<tr>
<td width="45%" height="35">
<p align="right">姓 名：</td>
<td width="55%" height="35"><%=tname%></td>
</tr>
<tr>
<td width="45%" height="35">
<p align="right">电子邮箱：</td>
<td width="55%" height="35"><%if instr(email,"@")=0 then
Response.Write "<font color=red>格式不正确</font>"
founder="false"
else
if instr(email,".")=0 then
Response.Write "<font color=red>格式不正确</font>"
founder="false"
else
response.write email
end if
end if
%></td>
</tr>
<tr>
<td width="45%" height="35">
<p align="right"> 权限：</td>
<td width="55%" height="35"><%
powerid= request("power")
if instr(powerid,"-1")> 0 then
powerid=-1
response.write "最高管理员"
else
if instr(powerid,"0")> 0 then
powerid=0
response.write "一般管理员"
else
if not isempty(request("power")) then
idlist=request("power")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call power(id)
next
else
call power(clng(powerid))
end if
else
response.write "无"
powerid=-2
end if
end if
end if
sub power(id)
dim rs1,sql1
set rs1=server.createobject("adodb.recordset")
sql1="select * from tbkc where kcid="&id
rs1.open sql1,conn,3,2
response.write "<li>"&rs1("kcm")
End sub
%> </td>
</tr>
</table>
<p align="center"> </p>
</td>
</tr>
<tr>
<td width="100%" height="25" bgcolor="#FFFDE8" bordercolor="#799AE1">
<p align="center">
<% if founder<>"false" then %><input type="submit" value="确 认" name="B3" class="s02" > <%end if%>
<input type="button" value="返 回" name="B3" class="s02" onclick="window.location='adminaddadmin.asp?username1=<%=username%>&tname1=<%=tname%>&email1=<%=email%>'">
<input type="hidden" value="<%=username%>" name="username" >
<input type="hidden" value="<%=pwd%>" name="pwd" >
<input type="hidden" value="<%=tname%>" name="tname" >
<input type="hidden" value="<%=email%>" name="email" >
<input type="hidden" value="<%=powerid%>" name="powerid" >
</tr></form>
</table>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -