mod_admin1.asp

评价系统 有多个登陆选择

<!--#include file="conn.asp"-->
<%
dim admin_pwd
admin_name="admin"
admin_pwd=trim(request("admin_pwd"))

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

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>"
else
	Response.Write "<script language='javascript'>window.confirm('用户名不正确！！');</script>"
	Response.Write "<script language='javascript'>parent.window.history.go(-1);</script>"
end if
%>