📄 admin_adminmodify.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加管理员</title>
<link href="../Style.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="../Inc/adovbs.asp"-->
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Admin_Check.asp"-->
<!--#include file="../Inc/MD5.asp"-->
<!--#include file="../inc/SQLCHK.asp"-->
<%
Dim RS
Set RS=Server.CreateObject("ADODB.RecordSet")
If Request.QueryString("Action")="Modify" Then
Dim AdminID, AdminPwd
AdminID = Request.Form("AdminID")
AdminPwd = MD5(Request.Form("AdminPwd"))
RS.Open "Select AdminPwd From [Admin] Where ID="&AdminID,Conn,adOpenKeyset,adLockOptimistic
RS("AdminPwd") = AdminPwd
RS.Update
RS.Close
ConnCLose()
Response.write "<script language='javascript'>" & chr(13)
Response.write "alert('修改成功!');" & Chr(13)
Response.write "window.document.location.href='Admin_System.asp';"&Chr(13)
Response.write "</script>" & Chr(13)
Response.End
End If
If Request.QueryString("ID")="" Then
Response.write "<script language='javascript'>" & chr(13)
Response.write "window.document.location.href='Admin_System.asp';"&Chr(13)
Response.write "</script>" & Chr(13)
Else
RS.Open "Select ID,AdminName From [Admin] Where ID="&Request.QueryString("ID"),Conn,adOpenKeyset,adLockReadOnly
If RS.EOF Then
Response.write "<script language='javascript'>" & chr(13)
Response.write "window.document.location.href='Admin_System.asp';"&Chr(13)
Response.write "</script>" & Chr(13)
Else
%>
<!--#include file="Inc/Head.asp"-->
<table width="772" height="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="11" background="../Image/LeftMargin.gif"></td>
<td width="750" height="400" align="center" valign="top" background="../Image/BGBlock.gif"><br>
<!--/////////////////////////////////////////////////////////////////////////////////////////////-->
<script LANGUAGE="JavaScript" SRC="../CheckForm.js"></script>
<form action="Admin_AdminModify.asp?Action=Modify" method="post" onSubmit="return CheckForm(this)">
<input name="AdminID" type="hidden" value="<%=RS("ID")%>">
<table width="400" border="0" cellspacing="0" cellpadding="0" align="center" class="TableInfo">
<tr>
<td height="40" colspan="2" align="center" class="TextTitle">管理员信息修改</td>
</tr>
<tr>
<td height="15" colspan="2" align="center"><hr width="92%" color="#BBBBBB" size="1"></td>
</tr>
<tr>
<td height="40" width="160" > 管理员登陆名:</td>
<td align="left"><input name="AdminName" disabled class="Input" id="AdminName" value="<%=RS("AdminName")%>" size="20" maxlength="14"></td>
</tr>
<tr>
<td height="40" width="160"> 密码:</td>
<td align="left"><INPUT NAME="AdminPwd" TYPE="Password" ID="Password" SIZE="20" maxLength="12" check="\S{8,}" warning="密码八位以上" class="Input"></td>
</tr>
<tr>
<td height="40" width="160" > 重复密码:</td>
<td align="left"><INPUT NAME="PwdConfirm" TYPE="Password" ID="PwdConfirm" size="20" maxLength="12" accord="AdminPwd" warning="两次输入的密码不一致" class="Input"></td>
</tr>
<tr>
<td height="30" colspan="2" align="center">
<input type="submit" name="Submit" value="提 交" class="Input">
<INPUT NAME="Reset" type=reset ID="Reset" VALUE="清 除" class="Input"></td>
</tr>
</table>
</form>
<%
End If
End If
RS.Close
RS=Nothing
ConnClose()
%>
<br>
<!--/////////////////////////////////////////////////////////////////////////////////////////////-->
</td>
<td width="11" background="../Image/RightMargin.gif"></td>
</tr>
</table>
<!--#include file="Inc/Trail.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -