📄 admin_modify.asp
字号:
<!--#include file="../cc/conn.asp"-->
<!--#include file="confirmadmin.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title><%=mc%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../cc/css/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="top.asp"-->
<%if request("modify")<>"yes" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from admin"
rs.open sql,conn,1,1%>
<br>
<br>
<br>
<table width="350" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><form name="form2" method="post" action="admin_modify.asp?modify=yes">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bordercolor="#CECFCE" bgcolor="#CECFCE">
<tr bgcolor="#CCCCCC">
<td colspan="2"><div align="center">修改资料</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="33%"><div align="right">管理员名称：</div></td>
<td width="67%"><input name="admin" type="text" id="admin" value="<%=rs("admin")%>" size="15"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">密码：</div></td>
<td><input name="password" type="password" id="password" value="<%=rs("password")%>" size="15"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">密码确认： </div></td>
<td><input name="password2" type="password" id="password2" value="<%=rs("password")%>" size="15"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">计数器系统名称：</div></td>
<td><input name="mc" type="text" id="mc" value="<%=rs("mc")%>" size="30"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">网友是否能申请计数器：</div></td>
<td> <input type="radio" name="regedit" value="是" <%if rs("regedit")="是" then%>checked<%end if%>>
是
<input name="regedit" type="radio" value="否" <%if rs("regedit")="否" then%>checked<%end if%>>
否<br> <%if rs("regedit")="否" then%>
<font color="#FF0000"><strong>警告：</strong></font>目前已经禁止申请计数器！
<%end if%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"> <div align="center">
<input type="submit" name="Submit3" value="修改">
<input type="submit" name="Submit523" value="取消" onClick="javascript:history.go(-1)">
</div></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%else
admin=request("admin")
password=request("password")
password2=request("password2")
mc=request("mc")
regedit=request("regedit")
if admin=""then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请填入管理员名称!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if
if password="" or password2=""then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请填入密码');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if
if password<>password2 then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('填入的密码不一致，请重新输入一遍!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from admin"
rs.open sql,conn,3,2
rs("admin")=admin
rs("password")=password
rs("mc")=mc
rs("regedit")=regedit
rs.update
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('修改管理员资料成功!');" & VbCrlf
response.write "location.href='admin_manage.asp';" & vbCrlf
response.write "</script>" & VbCRLF
end if%>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -