📄 add_admin_sav.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim conn
dim connstr
connstr="Driver={Microsoft ODBC for Oracle};server=mylink;uid=system;pwd=system;"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理员添加成功</title>
<style type="text/css">
<!--
.style1 {
font-family: "黑体";
font-size: 24px;
font-weight: bold;
}
body {
background-color: #435167;
}
-->
</style>
<link href="../../Css/bd_font_size.css" rel="stylesheet" type="text/css">
</head>
<body>
<div align="center">
<%
dim id,pw,pw2,remark,date1,sql,founderr
Set conn=Server.CreateObject("ADODB.Connection")
set rs=server.createobject("adodb.recordset")
if trim(request("id"))="" then
errmsg=errmsg+"<br>"+"<li>管理员帐号不能为空"
founderr=true
else
id=lcase(trim(request("id")))
end if
if trim(request("pw"))="" or trim(request("pw2"))="" then
errmsg=errmsg+"<br>"+"<li>输入密码或确认密码不能为空"
founderr=true
else
pw=lcase(trim(request("pw")))
pw2=lcase(trim(request("pw2")))
if pw <> pw2 then
errmsg=errmsg+"<br>"+"<li>输入密码与确认密码不同"
founderr=true
else if len(trim(request("pw")))<6 then
errmsg=errmsg+"<br>"+"<li>您输入的密码少于6位"
founderr=true
remark=trim(request("remark1"))
end if
end if
end if
sql="select ADMIN_ID from GSCOTT.ADMIN_TABLE where ADMIN_ID='"&id&"'"
rs.open sql,connstr
if not rs.eof then
errmsg=errmsg+"<br>"+"<li>管理员帐号已被别人注册"
founderr=true
end if
rs.close
%>
<table width="593" border="0" cellpadding="0" cellspacing="0">
<%
if founderr=false then
date1=cstr(now)
sql="select * from GSCOTT.ADMIN_TABLE"
rs.open sql,connstr,3,3
rs.addnew
rs("ADMIN_ID")=id
rs("ADMIN_PW")=pw
rs("ADMIN_TIME")=date1
rs("ADMIN_REMARK")=remark
rs.update
rs.close
set rs=nothing
%>
<tr>
<td width="593" height="73" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="593" height="73" align="center" valign="middle" bgcolor="#435167"><span class="style1">管理员账号添加成功</span></td>
</tr>
</table></td>
</tr>
<tr>
<td height="196" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoustTable-->
<tr>
<td height="27" colspan="2" align="right" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">管理员账号：</td>
<td colspan="2" align="center" valign="middle" bgcolor="#CDCDCD"><%=id%></td>
</tr>
<tr>
<td height="27" colspan="2" align="right" valign="middle" bgcolor="#9E9E9E" class="bd_font_size">密码：</td>
<td colspan="2" align="center" valign="middle" bgcolor="#9E9E9E" class="bd_font_size">请牢记您的密码！！<%=pw%></td>
</tr>
<tr>
<td height="27" colspan="2" align="right" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">创建时间：</td>
<td colspan="2" align="center" valign="middle" bgcolor="#CDCDCD"><%=date1%></td>
</tr>
<tr>
<td height="26" colspan="2" align="right" valign="middle" bgcolor="#9E9E9E">备注：</td>
<td colspan="2" align="center" valign="middle" bgcolor="#9E9E9E"><%=remark%></td>
</tr>
<tr>
<td width="190" height="27" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size"><a href="update_pw.asp">修改密码</a></td>
<td colspan="2" align="center" valign="middle" bgcolor="#9E9E9E" class="bd_font_size"><a href="add_admin.asp" target="_self">继续输入</a></td>
<td width="193" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size"><a href="../index.asp">返回首页</a></td>
</tr>
<%else%>
<meta http-equiv="refresh" content="3;url=javascript:history.go(-1)">
<tr>
<td height="27" colspan="2" align="right" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">管理员信息有问题：</td>
<td colspan="2" valign="top" bgcolor="#CDCDCD" class="bd_font_size"><%=errmsg%></td>
</tr>
<tr>
<td height="35" colspan="4" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="593" height="35" align="center" valign="middle" bgcolor="#9E9E9E" class="bd_font_size"><a href="javascript:history.go(-1)"><font size="-1">三秒钟后自动返回到上一页，如果您的浏览器没有返回，请单击此处</a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="1"></td>
<td width="14"></td>
<td width="196"></td>
<td></td>
</tr>
</table></td>
</tr>
<%end if%>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -