check2.asp

一个不错的asp程序

<!--#include file="my_conn.asp"-->
<%
  if request("username")="" or request("password")="" then
  	Response.Write "<script Language=Javascript>alert('请正确填写用户名和密码！');location.href = 'javascript:history.go(-1)';</script>"
	Response.End
  else
  uname=request("username")
  upass=request("password")
  end if

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
  if ErrMsg="" then'连接数据库成功
  set rs=server.CreateObject ("adodb.recordset")
      query="select * from Reg_User where UName='"&UName&"'"
      rs.Open query,conn,1,3
    if rs.RecordCount <=0 then
      	Response.Write "<script Language=Javascript>alert('你还不是会员，请注册！');location.href = 'javascript:history.go(-1)';</script>"
		Response.End
	else
          session("UName")=UName
		  session("UPass")=rs("UPass")   
		  session("UClass")=rs("UClass")
		  session("Scenes")=rs("Scenes")
		  session("EndTime")=rs("EndTime")
	  if rs("login")=True then
          if minute(now())-minute(rs("logintime"))>=5 or minute(now())-minute(rs("logintime"))<-5 then
		  rs("login")=false
		  rs.update
		  end if
		  Response.Write "<script Language=Javascript>alert('非法退出或已经有人在使用帐号，请稍后再试......');location.href = 'javascript:history.go(-1)';</script>"
		  Response.End
	  end if

      if session("UPass")<>UPass then
        Response.Write "<script Language=Javascript>alert('你输入的密码不正确！');location.href = 'javascript:history.go(-1)';</script>"
      elseif session("endtime")<now() then
        Response.Write "<script Language=Javascript>alert('你的帐户已过期！');location.href = 'javascript:history.go(-1)';</script>"
      elseif session("scenes")<=0 then
        Response.Write "<script Language=Javascript>alert('你的点值已用完！');location.href = 'javascript:history.go(-1)';</script>"
 elseif session("uclass")<>"理财会员" then
        Response.Write "<script Language=Javascript>alert('你不是理财会员！');location.href = 'javascript:history.go(-1)';</script>"
      end if      

	  '通过验证,正式登录
	  if session("Uclass")="理财会员" and session("UPass")=UPass and session("endtime")>now() and session("scenes")>0 then
      rs("login")=true
	  rs("logintime")=now()
	  rs.update
      'set rs2=server.CreateObject ("adodb.recordset")
      'sql="update Reg_User set scenes=scenes-1 where UName='"&UName&"'"
      'rs2.open sql,conn,1,3
      'set rs2=nothing	
      response.redirect "../../licai2.asp"
      end if   


    end if
  rs.Close
  set rs=nothing
  end if

%>