password.asp

网吧影印系统！很详细！可直接使用！请大家指点！

<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<%
If Request.QueryString("style")="chk" Then
   user    =Replace(Trim(Request.Form("user")),"'","''")
   pass    =Replace(Trim(Request.Form("pass")),"'","''")
   new_pass=Replace(Trim(Request.Form("new_pass")),"'","''")
sql="select * from goip where mbname='"&user&"' and mbpass='"&pass&"' and mbname='"&session("admin")&"'"
   set rs=conn.execute(sql)
   if rs.Bof Then
	   Response.Write("<script language=javascript>alert('密码错误！！！');history.back();</script>")
	   Response.End
   End If
   sql="update goip set mbpass='"&new_pass&"' where mbname='"&session("admin")&"'"
   conn.execute(sql)
   Response.Write("<script language=javascript>alert('更改密码成功！！！');history.back();</script>")
   connclose()
End If
%>