checkpass.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 35 行

<!--#include file="../inc/conn.asp"-->
<!--#include file="../top.Asp" -->
<%
Sub ShowErrMsg(ErrMsg)
 Response.Write("<script language='javascript'>")
 Response.Write("alert('"&ErrMsg&"');window.location='login.asp';")
 Response.Write("</script>")
 Response.End
End Sub
  userid=Trim(Request("reg_user"))
  pwd=Trim(Request("reg_pwd"))
  
 OpenDataConn
Dim ErrMsg,Rs,userid,pwd,usertype

  usertype=Trim(Request("reg_type"))
  Set Rs=Server.CreateObject("ADODB.Recordset") 
   Rs.Open"select * from company where userid='"&userid&"'",conn,1,1
    If Rs.Eof Then
	 ErrMsg="此用户不存在！"
	 Call ShowErrMsg(ErrMsg)
	ElseIf Trim(Rs("pwd"))<>pwd or Trim(Rs("reg_type"))<>usertype Then
	 ErrMsg="您输入的密码错误或用户类型不对！"
	 Call ShowErrMsg(ErrMsg)
	ElseIf Trim(Rs("ismember"))<>1 Then
	 ErrMsg="您还没有正式成为我们的会员，正在审批中！"
	 Call ShowErrMsg(ErrMsg)
	Else
	 Session("loginid")=userid
	 Session("reg_type")=Trim(Rs("reg_type"))
	 Response.Redirect("house_fabu.asp")
	End If
   Rs.Close
  Set Rs=Nothing
CloseDataConn%>