mod_admin.asp

来自「managerc.zip」· ASP 代码 · 共 28 行

<!--#include file="conn.asp"-->
<%
if session("user")="" then
	response.write "非法人员！" 
	response.end
end if
%>
<%
dim admin_name,admin_pwd
admin_name=trim(request("admin_name"))
admin_pwd=trim(request("pwd"))

set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin_name='"&admin_name&"'"
rs.open sql,conn,1,3
'response.write sql
%>

<%
if not rs.eof then
rs("admin_pwd")=admin_pwd
rs.update
rs.close
set rs=nothing
  response.write "<script language='javascript'>window.confirm('密码已经修改成功，请返回')</script>"
  response.write "<script language='javascript'>parent.window.history.go(-1);</script>"
end if
%>