adminchange.asp

房屋中介系统

<!--#include file="conn.asp"-->
<%
if session("user")="" or session("pass")="" then
 response.write ("<a href=admin.asp target=_top>验证密码错误或超时，请登录</a>")
  conn.Close
  Set conn = Nothing
  response.end
end if
sql = "select * from admin"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
if request("B1")<>"" then
  rs("user")=request("admin")
  rs("pass")=request("pw")
  rs.update
  response.write "<center>"
  response.write "修改成功"
  response.end
end if
response.write "<center>"
%>
<form method="post" action="">
	<p align="center"><b><font style="font-size: 20pt">修改管理员帐号和密码</font></b></p>
	<table border="0" width="300" align="center">
		<tr>
			<td width="70" align="right">姓名</td>
			<td width="230">
			&nbsp;<input type="text" name="admin" size="29" value="<%=rs("user")%>" maxlength="20"></td>
		</tr>
		<tr>
			<td height="22" width="70" align="right">密码</td>
			<td height="22" width="230">
			&nbsp;<input type="text" name="pw" size="29" value="<%=rs("pass")%>" maxlength="20"></td>
		</tr>
	</table>
	<p align="center">
	<input type="submit" value="提交" name="B1">　　　
	<input type="reset" value="重置" name="B2">
	</p>
</form>