<%
If CD_WebOffA=1 Then
Response.Write "
"& CD_WebOffB &"
"
Response.End
End If
If valid_ip(Request.ServerVariables("REMOTE_ADDR"))=False Then
Response.Write "
对不起，您的IP已被系统管理员锁定!
"
Response.End
End If
'=================================================
'过程名：无
'作 用：会员登陆判断
'参 数：无
'Web: http://www.7xiwl.com
'=================================================
Set CmsDjSession = New CmsDj_Com_Session
UserLoginTime=Fso.ReadFile(InstallDir&"Data/Cache/UserLogin.txt")
IF Datediff("n",UserLoginTime,Now())>CD_OnlinEhold Then
Call CmsDjSession.del("Datediff('n',LoginTime,Now())>""&CD_OnlinEhold&""")
Fso.CreateFile InstallDir&"Data/Cache/UserLogin.txt",True,Year(Now())&"-"&Month(Now())&"-"&Day(Now())&" "&Hour(Now())&":"&Minute(Now())&":"&Second(Now())
End IF
CmsDj_Com_UserID=0
CmsDj_Com_Grade=0
CmsDj_Com_Money=0
CmsDj_Com_Points=0
CmsDj_Com_WebLock=1
If Request.Cookies("CMSDJ_USER")("User_Name")<>"" or isnull(Request.Cookies("CMSDJ_USER")("User_Name")) or Request.Cookies("CMSDJ_USER")("User_Pwd")<>"" or isnull(Request.Cookies("CMSDJ_USER")("User_Pwd")) Then
UserID=clng(request.Cookies("CMSDJ_USER")("uid"))
UserName=ReplaceBadChar(request.Cookies("CMSDJ_USER")("User_Name"))
PassWord=ReplaceBadChar(request.Cookies("CMSDJ_USER")("User_Pwd"))
Set Rss=CmsDjSession.GetRs("",0,"UserName='" & UserName & "' and PassWord='" & PassWord &"'")
If Rss.bof and Rss.eof Then
Arr1=Array("UserID","UserName","PassWord","UserLock","LoginTime")
Arr2=Array(UserID,UserName,PassWord,0,Now())
Call CmsDjSession.add(Arr1,Arr2)
Else
Arr1=Array("LoginTime")
Arr2=Array(Now())
Call CmsDjSession.update(Arr1,Arr2,"UserID="&UserID)
End IF
Rss.Close
Set Rss=Nothing
Set CmsDjUser = New CmsDj_Com_User
Set Rs0=CmsDjUser.GetRs("",0,"UserID=" & UserID &" and UserName='" & UserName & "' and PassWord='" & PassWord & "'")
IF Rs0.eof Then
Response.Cookies("CMSDJ_USER")("User_Name")=""
Response.Cookies("CMSDJ_USER")("User_Pwd")=""
Response.Cookies("CMSDJ_USER")("uid")=""
Response.Cookies("CMSDJ_USER")("Grade")=""
Response.Cookies("CMSDJ_USER")("LoginTimes")=""
Else
UserLogined=True
CmsDj_Com_UserID=rs0("UserID")
CmsDj_Com_UserName=rs0("UserName")
CmsDj_Com_Password=rs0("Password")
CmsDj_Com_Question=rs0("Question")
CmsDj_Com_Answer=rs0("Answer")
CmsDj_Com_Email=rs0("Email")
CmsDj_Com_Sex=rs0("sex")
CmsDj_Com_RegDate=rs0("RegDate")
CmsDj_Com_LoginTimes=rs0("LoginTimes")
CmsDj_Com_QQ=rs0("QQ")
CmsDj_Com_LastLoginTime=rs0("LastLoginTime")
CmsDj_Com_Grade=rs0("UserGrade")
CmsDj_Com_Points=rs0("points")
CmsDj_Com_UserSign=rs0("UserSign")
CmsDj_Com_hidden=rs0("hidden")
CmsDj_Com_whe=rs0("whe")
CmsDj_Com_birthday=rs0("birthday")
CmsDj_Com_Photo=rs0("UserPhoto")
CmsDj_Com_address=rs0("address")
CmsDj_Com_vipin=rs0("vipindate")
CmsDj_Com_vipend=rs0("vipenddate")
CmsDj_Com_Money=rs0("Money")
CmsDj_Com_weblock=rs0("weblock")
CmsDj_Com_NiCheng=rs0("NiCheng")
CmsDj_Com_userskin=rs0("userskin")
CmsDj_Com_Hits=rs0("Hits")
CmsDj_Com_MessageNum=rs0("MessageNum")
CmsDj_Com_FriendNum=rs0("FriendNum")
CmsDj_Com_UserRank=rs0("UserRank")
rs0.close
set rs0=nothing
End IF
IF CmsDj_Com_Grade=1 and CmsDj_Com_Vipend-Date()<=0 Then Conn.DB "insert into CMSDJ_Message (incept,sender,title,content,sendtime,flag,delR,delS) values ('"&CmsDj_Com_UserName&"','系统消息','系统消息--VIP资格到期','亲爱的用户"&CmsDj_Com_UserName&"，您的VIP资格有效期已到，非常感谢你对本站的支持。','"&Now()&"',0,0,0)","exe"
IF CmsDj_Com_Grade=1 and CmsDj_Com_Vipend-Date()<=0 Then Conn.DB "update [CMSDJ_USER] set UserGrade=0 where UserID="&UserID,"exe"
End IF
%>