login.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Cl_Const.asp"-->
<!--#include file="../Inc/Cl_ClsCount.asp"-->
<!--#include file="../Inc/Cl_Function_Public.asp"-->
<!--#include file="../Inc/Cl_Md5.asp"-->
<%
Const ChannelID=0
Dim Action,ComeUrl
Action=Trim(Request("Action"))
CurrentPath = Cl.Language.selectSingleNode("//CurrentPath").text & "<a href='" & Cl.Web_info(4) & "'>" & Cl.Web_info(0) & "</a>"
Cl.Title=Cl.Language.selectSingleNode("//Login/Title").text & "--" & Cl.Title
Cl.Path=CurrentPath & " &gt;&gt; " & Cl.LanguageNode("//Login/Title")
if Action="CheckLogin" then
	Call User_CheckLogin()
else
	Response.write Template.ReplaceAllFlag(User_ShowLogin())
end if

Function User_ShowLogin()
	if Cl.ChkUserLogin then response.Redirect "User_Index.asp"
	ComeUrl=Trim(request("ComeUrl"))
	if ComeUrl="" then
		ComeUrl=Request.ServerVariables("HTTP_REFERER")
		if ComeUrl="" or InStr(Lcase(ComeUrl),"showerr")>0 then ComeUrl="Index.asp"
	end If
	Call Template.Load(-2,1)
	TempStr = Template.Html
	'TempStr=Replace(TempStr,"{$loginaction}",BbsDir&"login.asp?action=chk")
	TempStr=Replace(TempStr,"{$loginaction}","Login.asp?Action=CheckLogin")
	TempStr=Replace(TempStr,"{$isshowcode}",LCase(Cl.Web_Setting(39)))
	if Cl.Web_Setting(39)="Yes" then
	TempStr=Replace(TempStr,"{$getcode}",Replace(Cl.GetCode("GetCode"),Chr(34),"\"&Chr(34)))
	Else
	TempStr=Replace(TempStr,"{$getcode}","")
	end if
	User_ShowLogin=Replace(TempStr,"{$comeurl}",ComeUrl)
End Function

Sub User_CheckLogin()
	Dim IsAjax  Rem 新变量
	Dim UserName,Password,CookieDate
	Dim TruePassWord,sValidDays,sUserInfo
	Dim RsLogin,RsGroup,sAddPoint,i,MsgInfo,sMewMsgN
	'TruePassWord	= Cl.Createpass(16)
	UserName		= Cl.CheckStr(Trim(Request("UserName")))
	Password		= Md5(Cl.CheckStr(Trim(Request("Password"))),16)
	CookieDate		= Cl.GetClng(Request("CookieDate"))
	ComeUrl			= Trim(Request("ComeUrl"))
	IsAjax			= Cl.GetClng(Request("Ajax"))
	'Response.write IsAjax
	'Response.end
	if ComeUrl="" then
		ComeUrl=Trim(Request.ServerVariables("HTTP_REFERER"))
		if ComeUrl="" then ComeUrl="User_Index.asp?Action=MyInfo"
	end if
	ComeUrl=LCase(ComeUrl)
	if instr(ComeUrl,"reg")>0 or instr(ComeUrl,"User_")>0 then ComeUrl="Index.asp"
	if instr(ComeUrl,"login")>0 or instr(ComeUrl,"reg")>0 or instr(ComeUrl,"User_")>0 then ComeUrl="Index.asp"
	If Cl.Web_Setting(39)="Yes" Then
		if Not Cl.CodeIsTrue(Request("CodeStr"),"GetCode") Then
			Call Cl.OutMsg(IsAjax,Cl.Language.selectSingleNode("//Login/CheckNum").text,"Login.asp?ComeUrl=" & ComeUrl)
		End if
	end if
	if UserName="" or Password="" then
		Call Cl.OutMsg(IsAjax,Cl.Language.selectSingleNode("//Login/IsEmpty").text,"Login.asp?ComeUrl=" & ComeUrl)
	end if
	SQL="Select " & Db.UserID & "," & Db.UserName & "," & Db.UserPassWord & "," & Db.UserEmail & "," & Db.UserSex & "," & Db.UserJoinDate & "," & Db.UserLastLogin & "," & Db.UserLogins & "," & Db.UserLastIP & "," & Db.DataCount & "," & Db.UserGroupID & "," & Db.UserPoint & "," & Db.UserMoney & "," & Db.ChargeType & "," & Db.BeginDate & "," & Db.ValidNum & "," & Db.UserMsg & "," & Db.UserLock & " From " & Db.UserTable & " where " & Db.UserName & "='" & UserName & "'"
	Set RsLogin=Cl.Execute_U(SQL)
	if RsLogin.bof and RsLogin.eof then
		RsLogin.close : set RsLogin=Nothing
		Call Cl.OutMsg(IsAjax,Cl.Language.selectSingleNode("//UserNoFind").text,"Login.asp?ComeUrl=" & ComeUrl)
	End if
	if Password<>RsLogin(2) then
		RsLogin.close : set RsLogin=Nothing
		Call Cl.OutMsg(IsAjax,Cl.Language.selectSingleNode("//Login/PassErr").text,"Login.asp?ComeUrl=" & ComeUrl)
	End if
	if RsLogin(10)=6 or RsLogin(10)=7 then
		RsLogin.close : set RsLogin=Nothing
		Call Cl.OutMsg(IsAjax,Cl.Language.selectSingleNode("//UserNoPass").text,"Index.asp") 
	End if
	if RsLogin(17)<>0 then
		RsLogin.close : set RsLogin=Nothing
		Call Cl.OutMsg(IsAjax,Cl.Language.selectSingleNode("//UserIsLock").text,"Index.asp") 
	end if
	sMewMsgN = Cl.newincept(UserName)
	If sMewMsgN>0 Then
		MsgInfo =sMewMsgN & "||" & Cl.inceptid(1,UserName) & "||" & Cl.inceptid(2,UserName)
	Else
		MsgInfo = "0||0||null"
	End If
	Cl.Execute_U("Update " & Db.UserTable & " Set " & Db.UserMsg & "='"&Cl.CheckStr(MsgInfo)&"' Where " & Db.UserID & "="&Clng(RsLogin(0))&"")
	if DateDiff("D",RsLogin(6),Now())>0 then
		'添加积分
		Cl.Execute_U("Update " & Db.UserTable & " Set " & Db.UserLastIP & "='" & Cl.UserTrueIP & "'," & Db.UserLastLogin & "='" & FormatDateTime(Now(),0) & "'," & Db.UserLogins & "=" & Db.UserLogins & "+1," & Db.UserPoint & "=" & Db.UserPoint & "+"&CLng(Application(Cl.CacheName & "_usergrouplist").DocumentElement.SelectSingleNode("usergroup[@id="&RsLogin(10)&"]/@loginpoint").text)&" Where "&Db.UserID&"=" & RsLogin(0) & "")
	else
		Cl.Execute_U("Update " & Db.UserTable & " Set " & Db.UserLastIP & "='" & Cl.UserTrueIP & "'," & Db.UserLastLogin & "='" & FormatDateTime(Now(),0) & "'," & Db.UserLogins & "=" & Db.UserLogins & "+1 Where "&Db.UserID&"=" & RsLogin(0) & "")
	end if
	if Cl.UserID=0 then
		Set Count = New Cls_Count
		Count.DelOnline 0, Cl.UserID, Session(Cl.CacheName & "UserID")(0)
		Set Count = Nothing
	end if
	'Response.Cookies(Web_Cookies).DoMain		= "aspoo.com"
	'Response.Cookies(Web_Cookies).path			= InstallDir
	Response.Cookies(Web_Cookies)("UserID")		= RsLogin(0)
	Response.Cookies(Web_Cookies)("UserName")	= RsLogin(1)
	Response.Cookies(Web_Cookies)("Password")	= PassWord
	'Response.Cookies(Web_Cookies)("TruePassWord")= TruePassWord
	Response.Cookies(Web_Cookies)("UserGroupID")= RsLogin(10)
	Select Case CookieDate
	Case 1 : Response.Cookies(Web_Cookies).Expires=Date+1
	Case 2 : Response.Cookies(Web_Cookies).Expires=Date+31
	Case 3 : Response.Cookies(Web_Cookies).Expires=Date+365
	End Select
	sValidDays=RsLogin(15)-DateDiff("D",RsLogin(14),now())
	if sValidDays<0 then sValidDays=0
	sUserInfo	= "ClCMS@@@"& FormatDateTime(Now(),0) & "@@@" & FormatDateTime(Now(),0) & "@@@" & Cl.ScriptName
	For i=0 to 17
	sUserInfo	= sUserInfo & "@@@" & RsLogin(i)
	Next
	sUserInfo	= sUserInfo & "@@@" & sValidDays & "@@@ClCMS"
	Cl.User_Info=Split(sUserInfo,"@@@")
	Session(Cl.CacheName & "UserID") = Cl.User_Info
	RsLogin.Close : Set RsLogin = Nothing
	if UserTableType = "Dvbbs" then
		if request("CLCMS")<>"Y" then
		Response.Write "<meta http-equiv=""refresh"" content=""3;URL=" & ComeUrl & """>" & vbCrLf
		Response.Write "<iframe id='LoginUser' width='100%' height='0' frameborder='0' src='" & BbsDir & "Login.asp?action=chk&Username=" & UserName & "&password=" & Request("Password") & "&CookieDate=" & CookieDate & "&CLCMS=Y'></iframe>" & vbCrLf
		Response.Write Replace(Cl.Language.selectSingleNode("//Login/LoginIng").text,"{$ComeUrl}",ComeUrl) & vbCrLf
		end If
		If IsAjax=1 Then Cl.WriteAjax("OK")
		Response.End
	end If
	If IsAjax=1 then
		Cl.WriteAjax("OK")
	Else 
		response.redirect ComeUrl
	End if
End Sub
%>
<%
'===================================================
' CreateLive CMS Version 4.0
'							Powered by Aspoo.CoM
'===================================================
' Mail: [e-mail], [e-mail]
' Q  Q: 3315263, 596197794
' Msn : [e-mail], [e-mail]
' Web : http://www.aspoo.com, http://www.aspoo.net
' Bbs : http://bbs.aspoo.com, http://bbs.aspoo.net
' Copyright (C) 2005-2007 Aspoo.CoM All Rights Reserved.
'===================================================
%>