📄 admin.asp

📁 这个论坛也不错．适合做毕业设计的
💻 ASP
字号:
<!--#INCLUDE FILE="../config.asp" -->
<html>
<head>
<!--#include file="../styles.css" -->
</head>
<body bgcolor="#FFFFFF" class="sft">
<br><br><br>
<%
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString

if Request.Form("user")<>"" then
if Request.Form("new_pass")<>Request.Form("new_pass2") then
Response.Write "<P align=center>新管理员密码两次的输入不同,无法更新!<br><br>"
Response.Write "<a href=""admin.asp"">退回</a></p>"
Response.End
end if
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
strsql = "select SFAdmin_Name, SFAdmin_Password from SFAdmin"
set rs = my_conn.Execute (strSQL)
if Request.Form("user")=rs("SFAdmin_Name") and Request.Form("pass")=rs("SFAdmin_password") then
strsql = "update sfadmin set sfadmin_name = '" &Request.Form("new_user") & "', sfadmin_password = '" & Request.Form("new_pass") &"'"
my_conn.Execute (strsql)
Response.Write "<br><br><br><center>已经更新了管理员名称和密码!</center>"
else
Response.Write "<P align=center>原管理员名称或密码错误! 请正确输入!<br><br>"
Response.Write "<a href=""admin.asp"">退回</a></p>"
end if



else
%>
<form action="admin.asp" method=post>
<input type=hidden name="topic_id" value="<%=Request.QueryString("topic_id") %>">
<table align="center"  bgcolor=<%=TableColor%> border="0" width=400 cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor="<% =HeadColor %>" colspan=2 class="sfh" align="center">更换管理员密码</td></tr>                
<TR><TD bgcolor="<% =CellColor1 %>" width="40%" align="right">原管理员名称:</td>
<TD bgcolor="<% =CellColor1 %>" width="60%"><input type=text name="user" size=20></td>
<TR><TD bgcolor="<% =CellColor1 %>" align="right">原管理员密码:</td>
<TD bgcolor="<% =CellColor1 %>"><input type=password name="pass" size=18></td></tr>
<TR><TD bgcolor="<% =CellColor1 %>" align="right">新管理员名称:</td>
<TD bgcolor="<% =CellColor1 %>"><input type=text name="new_user" size=20></td>
<TR><TD bgcolor="<% =CellColor1 %>" align="right">新管理员密码:</td>
<TD bgcolor="<% =CellColor1 %>"><input type=password name="new_pass" size=18></td></tr>
<TR><TD bgcolor="<% =CellColor1 %>" align="right">重复输入新管理员密码:</td>
<TD bgcolor="<% =CellColor1 %>"><input type=password name="new_pass2" size=18></td></tr>
<TR><TD bgcolor="<% =CellColor1 %>" colspan=2 align=center><Input type=submit value="确定"></td></TR>
</form></TABLE>
<%end if

my_conn.Close
set my_Conn = nothing
set rs = nothing
%>
</body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -