login.asp

适适合做个人、学校、公司、政府等站点 一个灵活性很好的网站原代码

<!--#include file="Gaobei_head.asp" -->
<!--#include file="Include/check.asp"-->
<% 
    response.expires = 0
    If Not post_chk() Then Response.write "不许外部提交数据!"
    if request("Action")="ChkLogin" Or request("Action")="" then
    UserName=Checkin(Request.form("UserName"))
    UserPassword=Checkin(Request.form("UserPassword"))
    UserPassword=Md5(UserPassword)
    CookieDate=Trim(request("CookieDate"))
    if UserName="" or UserPassword="" then Response.Redirect ("Index.asp")
    set rs=server.createobject("adodb.recordset")
    sql="select * from "&Gaobei_DBTable&" where "&Gaobei_UserName&"='"&Username&"' and "&Gaobei_UserPassword&"='"&UserPassword&"'"
    rs.open sql,conn_user,3,3
    if not rs.EOF then
	if rs("IsActive")=True then
	rs(Gaobei_LoginNum)=rs(Gaobei_LoginNum)+1
	rs(Gaobei_LastLogin)=Now()
	rs(Gaobei_UserIP)=Request.ServerVariables("REMOTE_ADDR")
	rs.Update
    '写入系统COOKIES
    Call DealCookie_Gaobei_Sys()
    'Session("Pw_UserID")=rs("UserID")
    'Session("Pw_Sys_User")=rs("Username")
    'Session("Grade")=rs("Grade")
    'Session("Pw_Money")=rs("Money")
    'Session("UserEmail")=rs("UserEmail")
    'Fin
	Gaobei_ToUrl=Request("Gaobei_ToUrl")
	If Gaobei_ToUrl<>"" Then
	Response.Redirect (Gaobei_ToUrl)
	Else
	Response.Redirect (request.servervariables("HTTP_REFERER"))
	End If
	else
		response.write"<script>alert('您还没有通过验证!\n管理员会尽快通过验证的！ ');location.replace('"&request.servervariables("HTTP_REFERER")&"')</script>"	
	response.End()
	end if
    else
	Response.write"<script>alert('请输入正确的用户名和密码！！ ');location.replace('index.asp')</script>"	
    'Response.Redirect ("Login.htm")
    'errmsg="请输入正确的用户名和密码！"
    'call error()
	Response.End 
    end if
    rs.close
    set rs=nothing
    conn_user.close
    set conn_user=nothing
    end if 
    If request("Action")="LoginOut" then
    Call ClearGaobei_SysCookie()
    Response.Redirect (request.servervariables("HTTP_REFERER"))
    End if
    Sub DealCookie_Gaobei_Sys()
	Response.Cookies(Gaobei_Sys)("UserID")=rs(Gaobei_UserID)
	Response.Cookies(Gaobei_Sys)("Username")=rs(Gaobei_Username)
	Response.Cookies(Gaobei_Sys)("Grade") =rs("UserGrade")
	Response.Cookies(Gaobei_Sys)("Money")=rs(Gaobei_UserMoney)
	Response.Cookies(Gaobei_Sys)("UserEmail")=rs(Gaobei_UserEmail)
	If CookieDate="" Then
	   CookieDate=0
	End If
	Response.Cookies(Gaobei_Sys)("CookieDate") = CookieDate
	Select case CookieDate
    case 0
    'Not Save
    case 1
    Response.Cookies(Gaobei_Sys).Expires=Date+1
    case 2
    Response.Cookies(Gaobei_Sys).Expires=Date+31
    case 3
    Response.Cookies(Gaobei_Sys).Expires=Date+365
    End select
    End sub
    Sub ClearGaobei_SysCookie()
	Response.Cookies(Gaobei_Sys)("UserID")=""
	Response.Cookies(Gaobei_Sys)("Username")=""
	Response.Cookies(Gaobei_Sys)("Grade") =""
	Response.Cookies(Gaobei_Sys)("Money")=""
	Response.Cookies(Gaobei_Sys)("UserEmail")=""
	Response.Cookies(Gaobei_Sys)("CookieDate")=""
    End sub
%>