📄 cls.user.asp
字号:
<%
Class Cls_User
'u
Private uRs,uSQL,uRso,uSQLo,uSexSign,AgentAreaList
Private uGroupName,uGroupID,uPost,ui,uGroupPic,uUserFaith,uFaith,uFaithPic
Private Sub Class_Initialize()
'用户登录检查
If Request.Cookies(CacheName&"Member")("UserName") <> "" and IsNull(Request.Cookies(CacheName&"Member")("UserName")) = False and IsEmpty(Request.Cookies(CacheName&"Member")("UserName")) = False Then
'已登录
If IsEmpty(WRMPS.GetCookies("UserAtt")) Then
Call DBConnBegin()
Set uRs = Conn.Execute("Select WM_ID From WM_Member Where WM_ID="&Request.Cookies(CacheName&"Member")("ID")&" and WM_PassWord='"&Request.Cookies(CacheName&"Member")("PassWord")&"'")
If uRs.Eof Then
uRs.Close
Set uRs = Nothing
Call Logout()
Else
uRs.Close
Set uRs = Nothing
WRMPS.SCookies "UserAtt","True",0
End If
End If
If Cdate(Request.Cookies(CacheName&"Member")("FlagTime")) - Cdate(WRMPS.GetCache("FlagTime")) <> 0 Then
If Int(WR_Area(2)) > 0 Then Response.Cookies(CacheName&"Member").Domain = WR_Setting(1)
Select Case Int(Request.Cookies(CacheName&"Member")("Cookie"))
Case 1
Response.Cookies(CacheName&"Member").Expires=Date+7
Case 2
Response.Cookies(CacheName&"Member").Expires=Date+30
Case 3
Response.Cookies(CacheName&"Member").Expires=Date+365
End Select
Response.Cookies(CacheName&"Member")("UserName") = Request.Cookies(CacheName&"Member")("UserName")
Response.Cookies(CacheName&"Member")("ID") = Request.Cookies(CacheName&"Member")("ID")
Response.Cookies(CacheName&"Member")("GroupID") = Request.Cookies(CacheName&"Member")("GroupID")
Response.Cookies(CacheName&"Member")("PassWord") = Request.Cookies(CacheName&"Member")("PassWord")
Response.Cookies(CacheName&"Member")("Cookie") = Request.Cookies(CacheName&"Member")("Cookie")
Response.Cookies(CacheName&"Member")("Flag") = CacheUserFlag(Request.Cookies(CacheName&"Member")("GroupID"))
Response.Cookies(CacheName&"Member")("FlagTime") = WRMPS.GetCache("FlagTime")
Response.Cookies(CacheName&"Member")("Agent") = Agent()
End If
IsLogin() '取用户资料
Else
NotLogin() '取游客资料
End If
'取得会员权限
UserFlag = Split(Split(MemFlag,"§")(0),"|")
FlagCom = Split(Split(MemFlag,"§")(1),"|")
FlagArticle = Split(Split(MemFlag,"§")(2),"|")
FlagClass = Split(Split(MemFlag,"§")(3),"|")
FlagMsg = Split(Split(MemFlag,"§")(4),"|")
MemFlag = Empty
End Sub
Private Sub Class_Terminate()
DelAgent()
MemName = Empty
MemID = Empty
MemGroupID = Empty
FlagCom = Empty
FlagArticle = Empty
FlagClass = Empty
FlagMsg = Empty
'UserFlag = Empty
Set uRso = Nothing
Set uRs = Nothing
End Sub
'检测用户登录
Function ChkLogin()
ChkLogin = False
If Request.Cookies(CacheName&"Member")("UserName") <> "" and IsNUll(Request.Cookies(CacheName&"Member")("UserName")) = False and IsEmpty(Request.Cookies(CacheName&"Member")("UserName")) = False Then ChkLogin = True
End Function
'已登录
Private Sub IsLogin()
MemName = Request.Cookies(CacheName&"Member")("UserName")
MemID = Request.Cookies(CacheName&"Member")("ID")
MemGroupID = Request.Cookies(CacheName&"Member")("GroupID")
MemFlag = Request.Cookies(CacheName&"Member")("Flag")
AgentID = Int(Split(Request.Cookies(CacheName&"Member")("Agent"),"|")(0))
If AgentID = 0 Then DelAgent():Exit Sub
AgentList = Split(Request.Cookies(CacheName&"Member")("Agent"),"|")(1)
AgentAllList = Split(Request.Cookies(CacheName&"Member")("Agent"),"|")(2)
AgentCity = Split(Request.Cookies(CacheName&"Member")("Agent"),"|")(3)
AgentTime = Split(Request.Cookies(CacheName&"Member")("Agent"),"|")(4)
End Sub
'未登录
Private Sub NotLogin()
If IsEmpty(MemFlag) Then
MemFlag = CacheUserFlag(0)
WRMPS.SCookies "FlagTime",WRMPS.GetCache("FlagTime"),0
Else
If CDate(WRMPS.GetCookies("FlagTime")) <> CDate(WRMPS.GetCache("FlagTime")) Then
MemFlag = Empty
MemFlag = CacheUserFlag(0)
WRMPS.SCookies "FlagTime",WRMPS.GetCache("FlagTime"),0
End If
End If
End Sub
'得到实时代理权限
Private Function Agent()
Agent = "0||||"
If ChkLogin() = False Then Exit Function
Set uRs = Conn.Execute("Select WM_ID,WM_Name,WM_EndAgent From WM_Area where WM_Agent = '"&Request.Cookies(CacheName&"Member")("UserName")&"'")
If Not uRs.EOF Then
Agent = uRs(0)
AgentAreaList = uRs(0)
Dim uParentPath
Set uRso = Conn.Execute("Select WM_ID,WM_ParentPath,WM_Agent From WM_Area where WM_ParentID = "&Agent)
Do While not uRso.Eof
If Len(uRso(1))>2 Then
uParentPath = ","&Right(uRso(1),Len(uRso(1))-2)&","
If Instr(uParentPath,","&uRs(0)&",") > 0 Then
If uRso(2) = "" Or IsNull(uRso(2)) Then Agent = Agent&","&uRso(0)
AgentAreaList = AgentAreaList&","&uRso(0)
End If
End If
uRso.MoveNext
Loop
uRso.Close
Agent = uRs(0)&"|"&Agent&"|"&AgentAreaList&"|"&uRs(1)&"|"&uRs(2)
End If
uRs.CLose
AgentAreaList = Empty
End Function
'清除代理资料
Private Sub DelAgent()
AgentID = Empty
AgentList = Empty
AgentAllList = Empty
AgentCity = Empty
AgentTime = Empty
End Sub
'实时权限操作
'FlagID 0为游客
Private Function CacheUserFlag(FlagID)
CacheUserFlag = Null
Select Case FlagID
Case 0
uSQL = "Select WM_GroupFlag From WM_UserGroup where WM_GroupUser = "&FlagID
Case Else
uSQL = "Select WM_Flag From WM_Member where WM_ID = "&Request.Cookies(CacheName&"Member")("ID")
End Select
Call DBConnBegin()
Set uRs = Conn.Execute(uSQL)
If Not uRs.EOF Then
CacheUserFlag = uRs(0)
Else
Call Logout()
Exit Function
End If
uRs.CLose
End Function
'取得会员连接
Function DispUser(uType,UserName)
If UserName <> "" Then
Select Case Int(uType)
Case 0,3
DispUser = "<a href="&WRMPS.GetSpaceUrl(0,UserName)&" target=_blank>"&UserName&"</a>"
Case 1
DispUser = UserName
Case 2
DispUser = WRMPS.GetSpaceUrl(0,UserName)
End Select
Else
Select Case Int(uType)
Case 3
DispUser = ""
Case Else
DispUser = "游客"
End Select
End If
End Function
Function UserData(UserName)
If UserName <> "" Then UserData = "<script language=javascript src='"&WR_Setting(3)&"Member.asp?User="&UserName&"'></script>"
End Function
'替换会员数据
Function TempUser(uStr,uUser)
Set uRs = server.createobject("adodb.recordset")
uRs.Open "Select A.WM_LastLoginTime,A.WM_LastIP,A.WM_LoginNum,A.WM_Integral,A.WM_CountOut,A.WM_NowLoginTime,A.WM_NowIP,A.WM_Money,A.WM_Question,A.WM_QQ,A.WM_AddRess,A.WM_RegTime,A.WM_RegIP,A.WM_TrueName,A.WM_Tel,A.WM_Email,A.WM_GroupID,A.WM_CompanyReNum,A.WM_Sign,A.WM_Face,A.WM_Web,A.WM_Sex,A.WM_ClassNum,A.WM_ArticleNum,A.WM_Faith,A.WM_ComID,A.WM_RZEmail,A.WM_RZID,A.WM_CompanyNum,B.WM_GroupName,A.WM_CouponNum From WM_Member A Inner Join WM_UserGroup B on A.WM_GroupID = B.WM_ID Where A.WM_UserName = '"&uUser&"'",Conn,1,1
If Not uRs.Eof Then
If Int(WR_Mail(17)) < 1 Then uStr = WRMPS.GetReplace(uStr,"{$UserMsgSign}","") Else uStr = WRMPS.GetReplace(uStr,"{$UserMsgSign}","<a href="&WR_Setting(3)&"Member/User_Message.asp?Action=Send&Addressee="&uUser&" target=_blank><img src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/Message.gif' border=0></a>")
uStr = WRMPS.GetReplace(uStr,"{$UserUrl}",DispUser(2,uUser))
uStr = WRMPS.GetReplace(uStr,"{$Integral}",uRs(3))
uStr = WRMPS.GetReplace(uStr,"{$CountOut}",uRs(4))
uStr = WRMPS.GetReplace(uStr,"{$LastTime}",uRs(0))
uStr = WRMPS.GetReplace(uStr,"{$LastIP}",uRs(1))
uStr = WRMPS.GetReplace(uStr,"{$NowTime}",uRs(5))
uStr = WRMPS.GetReplace(uStr,"{$NowIP}",uRs(6))
uStr = WRMPS.GetReplace(uStr,"{$LoginNum}",uRs(2))
uStr = WRMPS.GetReplace(uStr,"{$Money}",WRMPS.GetFormatNumber(uRs(7),2))
uStr = WRMPS.GetReplace(uStr,"{$Question}",uRs(8))
uStr = WRMPS.GetReplace(uStr,"{$QQ}",uRs(9))
uStr = WRMPS.GetReplace(uStr,"{$Address}",uRs(10))
uStr = WRMPS.GetReplace(uStr,"{$RegTime}",uRs(11))
uStr = WRMPS.GetReplace(uStr,"{$RegIP}",uRs(12))
uStr = WRMPS.GetReplace(uStr,"{$TrueName}",uRs(13))
uStr = WRMPS.GetReplace(uStr,"{$Tel}",uRs(14))
uStr = WRMPS.GetReplace(uStr,"{$Email}",uRs(15))
uStr = WRMPS.GetReplace(uStr,"{$UserSign}",uRs(18))
uStr = WRMPS.GetReplace(uStr,"{$UserFace}",WR_Setting(3)&uRs(19))
uStr = WRMPS.GetReplace(uStr,"{$Web}",uRs(20))
uStr = WRMPS.GetReplace(uStr,"{$Sex}",WRMPS.GetReplace(WRMPS.GetReplace(uRs(21),1,"男孩"),0,"女孩"))
uSexSign = WRMPS.GetReplace(WRMPS.GetReplace(uRs(21),"1",UrlPath&"Skins/"&WR_Setting(5)&"/boy.gif"),"0",UrlPath&"Skins/"&WR_Setting(5)&"/girl.gif")
If uSexSign = "" Then uSexSign = UrlPath&"Skins/"&WR_Setting(5)&"/renyao.gif"
uStr = WRMPS.GetReplace(uStr,"{$SexSign}",uSexSign)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -