📄 cls_user.asp
字号:
End if
End if
If Instr(1,f_strUserNumberarr(1),"m",1)<>0 then
If Len(Cstr(Month(Now()))) < 2 then
if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
strUserNumberRule = strUserNumberRule & "0"&month(now)&f_strUserNumberarr(3)
Else
strUserNumberRule = strUserNumberRule& "0"&month(now)&f_strUserNumberarr(3)
End if
Else
if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
strUserNumberRule = strUserNumberRule & month(now)&f_strUserNumberarr(3)
Else
strUserNumberRule = strUserNumberRule& month(now)&f_strUserNumberarr(3)
End if
End if
End if
If Instr(1,f_strUserNumberarr(1),"d",1)<>0 then
If Len(Cstr(day(Now))) < 2 then
if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
strUserNumberRule = strUserNumberRule & "0"&day(now)&f_strUserNumberarr(3)
Else
strUserNumberRule = strUserNumberRule& "0"&day(now)&f_strUserNumberarr(3)
End if
Else
if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
strUserNumberRule = strUserNumberRule & day(now)&f_strUserNumberarr(3)
Else
strUserNumberRule = strUserNumberRule& day(now)&f_strUserNumberarr(3)
End if
End if
End if
If Instr(1,f_strUserNumberarr(1),"h",1)<>0 then
If Len(Cstr(hour(Now))) < 2 then
if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
strUserNumberRule = strUserNumberRule & "0"&hour(now)&f_strUserNumberarr(3)
Else
strUserNumberRule = strUserNumberRule& "0"&hour(now)&f_strUserNumberarr(3)
End if
Else
if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
strUserNumberRule = strUserNumberRule & hour(now)&f_strUserNumberarr(3)
Else
strUserNumberRule = strUserNumberRule& hour(now)&f_strUserNumberarr(3)
End if
End if
End if
If Instr(1,f_strUserNumberarr(1),"i",1)<>0 then
If Len(Cstr(minute(Now))) < 2 then
if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
strUserNumberRule = strUserNumberRule & "0"&minute(now)&f_strUserNumberarr(3)
Else
strUserNumberRule = strUserNumberRule& "0"&minute(now)&f_strUserNumberarr(3)
End if
Else
if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
strUserNumberRule = strUserNumberRule & minute(now)&f_strUserNumberarr(3)
Else
strUserNumberRule = strUserNumberRule& minute(now)&f_strUserNumberarr(3)
End if
End if
End if
If Instr(1,f_strUserNumberarr(1),"s",1)<>0 then
If Len(Cstr(second(Now))) < 2 then
if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
strUserNumberRule = strUserNumberRule & "0"&second(now)&f_strUserNumberarr(3)
Else
strUserNumberRule = strUserNumberRule& "0"&second(now)&f_strUserNumberarr(3)
End if
Else
if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
strUserNumberRule = strUserNumberRule & second(now)&f_strUserNumberarr(3)
Else
strUserNumberRule = strUserNumberRule& second(now)&f_strUserNumberarr(3)
End if
End if
End if
Randomize
Dim f_Randchar,f_Randchararr,f_RandLen,f_iR,f_Randomizecode
f_Randchar="0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
f_Randchararr=split(f_Randchar,",")
If f_strUserNumberarr(2)="2" then
if f_strUserNumberarr(4)="w" then
f_RandLen=2
for f_iR=1 to f_RandLen
f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
next
strUserNumberRule = strUserNumberRule & f_Randomizecode
Else
strUserNumberRule = strUserNumberRule & CStr(Int((99 * Rnd) + 1))
End if
Elseif f_strUserNumberarr(2)="3" then
if f_strUserNumberarr(4)="w" then
f_RandLen=3
for f_iR=1 to f_RandLen
f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
next
strUserNumberRule = strUserNumberRule & f_Randomizecode
Else
strUserNumberRule = strUserNumberRule & CStr(Int((999* Rnd) + 1))
End if
Elseif f_strUserNumberarr(2)="4" then
if f_strUserNumberarr(4)="w" then
f_RandLen=4
for f_iR=1 to f_RandLen
f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
next
strUserNumberRule = strUserNumberRule & f_Randomizecode
Else
strUserNumberRule = strUserNumberRule & CStr(Int((9999* Rnd) + 1))
End if
Elseif f_strUserNumberarr(2)="5" then
if f_strUserNumberarr(4)="w" then
f_RandLen=5
for f_iR=1 to f_RandLen
f_Randomizecode=f_Randomizecode&f_Randchararr(Int((21*Rnd)))
next
strUserNumberRule = strUserNumberRule & f_Randomizecode
Else
strUserNumberRule = strUserNumberRule & CStr(Int((99999* Rnd) + 1))
End if
End if
strUserNumberRule = strUserNumberRule
End Function
Public Function Login(f_StrName,f_StrPWD,f_Logintye,p_vercode)
Login = True
'Response.Cookies("FoosunMFCookies")("FoosunMFDomain")
if request.Cookies("FoosunUserlCookies")("FS_User_Login_Number")="" or request.Cookies("FoosunUserlCookies")("FS_User_Login_Number")=0 then
p_LoginLockNum = 0
Else
p_LoginLockNum = cint(request.Cookies("FoosunUserlCookies")("FS_User_Login_Number"))
End if
if LoginLockNum<>0 then
if p_LoginLockNum > LoginLockNum then
Login = false
strShowErr = "<li>您已经连续登陆了"& p_LoginLockNum -1 &"次</li><li> 此帐户已经临时被锁定，今天不能登陆了!!!</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End if
End if
if p_UserName = "" or p_UserPassword = "" then
Login = false
strShowErr = "<li>请填写您的用户名</li><li> 请填写您的密码!</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
Else
dim f_RsLoginobj,f_RsLoginSQL
if f_Logintye = "0" then
f_RsLoginSQL = "Select UserName,UserNumber,NickName,UserPassword,Email,isLock,IsCorporation,GroupID,MySkin,TempLastLoginTime From FS_ME_Users Where UserName = '"& f_StrName &"' and UserPassword = '"& f_StrPWD &"'"
Elseif f_Logintye = "1" then
f_RsLoginSQL = "Select UserName,UserNumber,NickName,UserPassword,Email,isLock,IsCorporation,GroupID,MySkin,TempLastLoginTime From FS_ME_Users Where UserNumber = '"& f_StrName &"' and UserPassword = '"& f_StrPWD &"'"
Elseif f_Logintye = "2" then
f_RsLoginSQL = "Select UserName,UserNumber,NickName,UserPassword,Email,isLock,IsCorporation,GroupID,MySkin,TempLastLoginTime From FS_ME_Users Where Email = '"& f_StrName &"' and UserPassword = '"& f_StrPWD &"'"
Else
Login = false
strShowErr = "<li>错误的参数</li><li> 请选择登陆方式!</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
End if
Set f_RsLoginobj = server.CreateObject(G_FS_RS)
f_RsLoginobj.open f_RsLoginSQL,User_Conn,1,1
If Not f_RsLoginobj.eof then
If f_RsLoginobj(5)<>0 then
f_RsLoginobj.close
set f_RsLoginobj = nothing
Login = false
strShowErr = "<li>用户已经被锁定</li><li> 此用户注册没有审核!</li>"
Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
Response.end
Else
'更新数据
Dim f_RsUpdateobj,f_RsUpdateSQL
Set f_RsUpdateobj = server.CreateObject(G_FS_RS)
if f_Logintye = "0" then
f_RsUpdateSQL = "Select UserNumber,LoginNum,LastLoginTime,FS_Money,Integral,UserLoginCode,TempLastLoginTime,TempLastLoginTime_1,LastLoginIP,GroupID From FS_ME_Users Where UserName = '"& f_StrName &"' and UserPassword = '"& f_StrPWD &"'"
Elseif f_Logintye = "1" then
f_RsUpdateSQL = "Select UserNumber,LoginNum,LastLoginTime,FS_Money,Integral,UserLoginCode,TempLastLoginTime,TempLastLoginTime_1,LastLoginIP,GroupID From FS_ME_Users Where UserNumber = '"& f_StrName &"' and UserPassword = '"& f_StrPWD &"'"
Elseif f_Logintye = "2" then
f_RsUpdateSQL = "Select UserNumber,LoginNum,LastLoginTime,FS_Money,Integral,UserLoginCode,TempLastLoginTime,TempLastLoginTime_1,LastLoginIP,GroupID From FS_ME_Users Where Email = '"& f_StrName &"' and UserPassword = '"& f_StrPWD &"'"
End if
f_RsUpdateobj.open f_RsUpdateSQL,User_Conn,3,3
f_RsUpdateobj("LoginNum")=f_RsUpdateobj("LoginNum")+1
f_RsUpdateobj("LastLoginTime")=now
if isnull(f_RsUpdateobj("GroupID")) then
f_RsUpdateobj("GroupID")=DefaultGroupID
end if
f_RsUpdateobj("LastLoginIP")=Request.ServerVariables("Remote_Addr")
Dim f_DateArr,f_DateArryear,f_DateArrmonth,f_DateArrday,f_DateArr_1,f_strmonth,f_strday,f_strhour,f_strminute
Dim f_Randchars,f_Randchararrs,f_RandLens,f_Randomizecodes,f_iRs
dim f_strmonth_DateArr_1,f_strday_DateArr_1,f_strhour_DateArr_1,f_strminute_DateArr_1,f_strmonth_DateArr,f_strday_DateArr
f_DateArr=f_RsUpdateobj("TempLastLoginTime")
f_DateArr_1=f_RsUpdateobj("TempLastLoginTime_1")
f_Randomizecodes=GetRamCode(8)
f_RsUpdateobj("UserLoginCode") = f_Randomizecodes
if p_LoginGetMoney <> 0 Then
If Not IsNull(f_DateArr) then
if clng(date-dateValue(f_DateArr))>=p_LoginGetMoney then
f_RsUpdateobj("FS_Money")=f_RsUpdateobj("FS_Money")+p_LoginPointmoneyarr_2
f_RsUpdateobj("TempLastLoginTime")=now
End If
End if
Else
f_RsUpdateobj("TempLastLoginTime")=now
End if
if p_LoginGetIntegral <>0 then
if DateDiff("h",f_DateArr_1,now)>=p_LoginGetIntegral Or DateDiff("d",now,f_DateArr_1)<>0 then
f_RsUpdateobj("Integral")=f_RsUpdateobj("Integral")+p_LoginPointmoneyarr_1
f_RsUpdateobj("TempLastLoginTime_1")=now
End if
Else
f_RsUpdateobj("TempLastLoginTime_1")=now
End if
f_RsUpdateobj.Update
f_RsUpdateobj.close:set f_RsUpdateobj=nothing
session("FS_UserName") = f_RsLoginobj(0)
session("FS_UserNumber") = f_RsLoginobj(1)
session("FS_UserPassword") = f_RsLoginobj(3)
session("FS_UserEmail") = f_RsLoginobj(4)'改为Cookies
If Not IsNull(f_RsLoginobj(8)) then
Response.Cookies("FoosunUserCookies")("UserLogin_Style_Num") = f_RsLoginobj(8)'改为Cookies
Else
Response.Cookies("FoosunUserCookies")("UserLogin_Style_Num") =1'改为Cookies
End if
session("UserLoginCode") = f_Randomizecodes'改为Cookies
f_RsLoginobj.close: set f_RsLoginobj = nothing
If CBool(Request.Form("AutoGet")) or Request.Form("AutoGet")<>"" Then
Response.Cookies("FoosunUserCookie")("FS_UserName")=Session("FS_UserName")
Response.Cookies("FoosunUserCookie").Expires=Date()+365
Else
Response.Cookies("FoosunUserCookie")("FS_UserName")=""
Response.Cookies("FoosunUserCookie").Expires=Date()-1
End If
Response.Cookies("FoosunUserlCookies")("FS_User_Login_Number")=0
Login = True
End if
Else
Response.Cookies("FoosunUserlCookies")("FS_User_Login_Number")=p_LoginLockNum+1
Response.Cookies("FoosunUserlCookies").Expires =Date()+1
Login = false
End if
End if
End Function
Public Function checkName(f_StrName)
Dim CheckNameTF,CheckArr,CheckNum,InstrNum,Str_Limit
If Instr(f_StrName,".") > 0 Then
checkName = False
Exit Function
End If
m_RsUser.open "select UserName from FS_ME_Users where UserName ='"&f_StrName&"'",User_Conn,1,1
If m_RsUser.EOF Then
Set CheckNameTF = User_Conn.ExeCute("Select Top 1 LimitUserName From FS_ME_SysPara Where SysID > 0 Order By SysID")
If CheckNameTF.Eof Then
checkName = True
Else
Str_Limit = CheckNameTF("LimitUserName")
If Str_Limit = "" Or Isnull(Str_Limit) Then
checkName = True
Else
If Instr(Str_Limit,",") > 0 Then
CheckArr = Split(Str_Limit,",")
checkName = True
For CheckNum = LBound(CheckArr) To UBound(CheckArr)
If CheckArr(CheckNum) <> "" Then
If f_StrName = CheckArr(CheckNum) Or Instr(f_StrName,CheckArr(CheckNum)) > 0 Then
checkName = False
Exit For
End If
End If
Next
Else
If f_StrName <> Str_Limit And Instr(f_StrName,Str_Limit) = 0 Then
checkName = True
Else
checkName = False
End if
End If
End If
End If
CheckNameTF.Close : Set CheckNameTF = Nothing
Else
checkName = False
End If
m_RsUser.close
End Function
Public Function checkEmail(f_StrEmail)
Dim CheckRs
m_RsUser.open "select UserID from FS_Me_Users where Email ='"&f_StrEmail&"'",User_Conn,1,1
If m_RsUser.EOF Then
Set CheckRs = Server.CreateObject (G_FS_RS)
checkEmail = True
Else
checkEmail = False
End If
m_RsUser.close
End Function
Public Function chk_regname(regname,strUserName)
Dim regbadstr, i
regbadstr = Split(regname, ",")
chk_regname = True
For i = 0 To UBound(regbadstr)
If Trim(regbadstr(i)) <> "" Then
If Trim(strUserName) = Trim(regbadstr(i)) Then
chk_regname = false
End If
End If
If chk_regname = false Then Exit For
Next
End Function
Public Function UserExist(f_StrName)
UserExist = True
If f_StrName="" Or IsNull(f_StrName) Then
UserExist = False
Else
Dim f_RsMemObj
set f_RsMemObj = Server.CreateObject (G_FS_RS)
f_RsMemObj.Open "select isLock from FS_ME_Users where UserNumber='"& f_StrName &"'",User_Conn,1,1
if not f_RsMemObj.EOF then
if cint(f_RsMemObj("isLock"))=1 Then UserExist = False
else
UserExist = False
End If
f_RsMemObj.Close
set f_RsMemObj = Nothing
End If
End Function
Public Function checkStat(f_StrName,f_StrPWD)
checkStat = True
If f_StrName="" Or Len(f_StrPWD)<>16 Or IsNull(f_StrName) Or IsNull(f_StrPWD) Then
checkStat = False
Else
Dim f_RsUserObj
set f_RsUserObj = Server.CreateObject (G_FS_RS)
f_RsUserObj.Open "select isLock,UserName,RealName,GroupID,Integral,LoginNum,RegTime, LastLoginTime,LastLoginIP,UserNumber,FS_Money,ConNumber,UserID,HomePage,BothYear,Tel,MSN,QQ,Corner,Province,City,Address,PostCode,PassQuestion,SelfIntro,isOpen,Certificate,CertificateCode,Vocation,HeadPic,NickName,Mobile,CloseTime,IsCorporation,isMessage,Email,sex,safeCode,UserLoginCode,HeadPicsize,OnlyLogin,UserFavor,IsMarray,PassAnswer from FS_ME_Users where UserName='"& f_StrName &"' and UserPassword='"& f_StrPWD &"'",User_Conn,1,1
if not f_RsUserObj.EOF then
if cint(f_RsUserObj("isLock"))<>0 Then
checkStat = False
Else
m_StrUserName = f_RsUserObj("UserName")
m_StrRealName = f_RsUserObj("RealName")
m_NumGroupID = f_RsUserObj("GroupID")
m_NumIntegral = f_RsUserObj("Integral")
m_NumLoginNum = f_RsUserObj("LoginNum")
m_StrRegTime = f_RsUserObj("RegTime")
m_Paper = f_RsUserObj("Certificate")
m_Papercode = f_RsUserObj("Certificatecode")
m_OnlyLogin = f_RsUserObj("OnlyLogin")
m_PassAnswer = f_RsUserObj("PassAnswer")
m_IsMarray = f_RsUserObj("IsMarray")
m_StrLastLoginTime = f_RsUserObj("LastLoginTime")
m_StrLastLoginIP = f_RsUserObj("LastLoginIP")
m_StrUserNumber = f_RsUserObj("UserNumber")
m_NumFS_Money = f_RsUserObj("FS_Money")
m_NumConNumber = f_RsUserObj("ConNumber")
m_UserID = f_RsUserObj("UserID")
m_StrHomePage = f_RsUserObj("HomePage")
m_StrBothYear = f_RsUserObj("BothYear")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -