📄 editadmin.asp
字号:
<!--#include file="conn.asp" -->
<%
if session("admin")<>"liyu" then
Response.Write("超出权限！请<a href=login.asp>登陆</a>或者<a href=index.asp>返回首页！</a>")
response.End()
end if
if Trim(Request.Form("admin"))<>"" then
admin=Trim(Request.Form("admin"))
psw=Trim(Request.Form("psw"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin"
rs.open sql,conn,1,3
rs("admin")=admin
rs("psw")=psw
rs.update
Response.Write("<script language='JavaScript'>alert('成功修改')</script>")
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin"
rs.open sql,conn,1,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=liyutitle%>密码修改</title>
<script language="JavaScript">
function CheckForm()
{
if (document.edit.admin.value.length == 0) {
alert("请输入用户名.");
document.edit.admin.focus();
return false;
}
if (document.edit.psw.value.length == 0) {
alert("请输入密码.");
document.edit.psw.focus();
return false;
}
return true;
}
</script>
<style type="text/css">
body {
border: thin none;
background-attachment: fixed
}
td {
font-size: 9pt;
color: #000000;
text-decoration: none;
}
a:link {
color: #999900;
}
a:visited {
color: #999900;
}
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" style="overflow:hidden"> <br>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" bordercolor="#FFFF99">
<div align="center">
<!--#include file="blinkinc.asp" -->
</div></td>
</tr>
<tr>
<td height="230" align="center" bordercolor="#FFFF99"><p>修改用户</p>
<form action="" method="post" name="edit" id="edit" onSubmit="return CheckForm()">
管理员：
<input name="admin" type="text" id="admin" value="<%=rs("admin")%>" size="12">
<br>
密 码：
<input name="psw" type="password" id="psw" value="<%=rs("psw")%>" size="12">
<br> <br> <br> <br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</form>
<p> </p></td>
</tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -