?? cls_user.asp
字號:
<%
Class Cls_User
Private m_StrEmail,m_NumSex,m_NumIntegral,m_StrQuesion,m_StrAnswer,m_NumLoginNum,m_Paper,m_OnlyLogin,m_Papercode,m_NumConNumber
Private m_StrRegTime,m_StrLastLoginTime,m_StrLastLoginIP,m_StrUserNumber,m_NumFS_Money,m_PassAnswer
Private m_StrUserName,m_RealName,m_StrRealName,m_StrNickName,m_StrPWD,m_NumID,m_RsUser,m_UserID,m_StrHomePage,m_StrBothYear
Private m_StrTel,m_StrMSN,m_StrQQ,m_StrCorner,m_StrProvince,m_StrCity,m_StrAddress,m_StrPostCode,m_isCorporation
Private m_PassQuestion,m_isOpen,m_OpenInfoTF,m_Vocation,m_NumGroupID,m_UserLoginCode
Private m_HeadPic,m_SelfIntro,m_UserFavor,m_IsMarray
Public Mobile,m_CloseTime,isMessage,m_HeadPicsize,safeCode
Public Property Let Name(ByVal StrValue)
m_StrUserName = StrValue
m_RsUser.open "select UserID,UserNumber,UserName,UserPassword,HeadPic,HeadPicSize,PassQuestion,PassAnswer,safeCode,tel,Mobile,isMessage,Email,HomePage,QQ,MSN,Corner,Province,City,Address,PostCode,NickName,RealName,Vocation,Sex,BothYear,Certificate,CertificateCode,IsCorporation,PopList,Integral,FS_Money,RegTime,CloseTime,LoginNum,LastLoginTime,TempLastLoginTime,TempLastLoginTime_1,IsMarray,SelfIntro,isOpen,GroupID,LastLoginIP,ConNumber,ConNumberNews,isLock,UserFavor,MySkin,UserLoginCode,OnlyLogin,hits from FS_ME_Users where UserName='"&m_StrUserName&"'",User_Conn,1,1
If m_RsUser.EOF=False Then
m_RealName = m_RsUser("UserName")
m_NumGroupID = m_RsUser("GroupID")
m_NumIntegral = m_RsUser("Integral")
m_NumLoginNum = m_RsUser("LoginNum")
m_StrRegTime = m_RsUser("RegTime")
m_StrLastLoginTime = m_RsUser("LastLoginTime")
m_StrLastLoginIP = m_RsUser("LastLoginIP")
m_StrUserNumber = m_RsUser("UserNumber")
m_NumFS_Money = m_RsUser("FS_Money")
m_Paper = m_RsUser("Certificate")
m_Papercode = m_RsUser("Certificatecode")
m_OnlyLogin = m_RsUser("OnlyLogin")
m_PassAnswer = m_RsUser("PassAnswer")
m_IsMarray = m_RsUser("IsMarray")
m_NumConNumber = m_RsUser("ConNumber")
m_UserID = m_RsUser("UserID")
m_StrHomePage = m_RsUser("HomePage")
m_StrBothYear = m_RsUser("BothYear")
m_StrTel = m_RsUser("Tel")
m_StrMSN = m_RsUser("MSN")
m_StrQQ = m_RsUser("QQ")
m_StrCorner = m_RsUser("Corner")
m_StrProvince = m_RsUser("Province")
m_StrCity = m_RsUser("City")
m_StrAddress = m_RsUser("Address")
m_StrPostCode = m_RsUser("PostCode")
m_PassQuestion = m_RsUser("PassQuestion")
m_SelfIntro = m_RsUser("SelfIntro")
m_UserFavor = m_RsUser("UserFavor")
m_isOpen = m_RsUser("isopen")
m_Vocation = m_RsUser("Vocation")
m_HeadPic = m_RsUser("HeadPic")
m_HeadPicsize = m_RsUser("HeadPicsize")
m_StrRealName = m_RsUser("RealName")
m_StrNickName = m_RsUser("NickName")
Mobile = m_RsUser("Mobile")
m_CloseTime = m_RsUser("CloseTime")
m_IsCorporation = m_RsUser("IsCorporation")
isMessage = m_RsUser("isMessage")
m_StrEmail = m_RsUser("Email")
m_NumSex = m_RsUser("sex")
safeCode = m_RsUser("safeCode")
End If
m_RsUser.close
End Property
Public Property Let ID(ByVal StrValue)
m_NumID = StrValue
m_RsUser.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 ID="&m_NumID,User_Conn,1,1
If m_RsUser.EOF=False Then
m_StrUserName = m_RsUser("UserName")
m_NumIntegral = m_RsUser("Integral")
m_NumLoginNum = m_RsUser("LoginNum")
m_StrRegTime = m_RsUser("RegTime")
m_StrLastLoginTime = m_RsUser("LastLoginTime")
m_StrLastLoginIP = m_RsUser("LastLoginIP")
m_StrUserNumber = m_RsUser("UserNumber")
m_Paper = m_RsUser("Certificate")
m_Papercode = m_RsUser("Certificatecode")
m_OnlyLogin = m_RsUser("OnlyLogin")
m_PassAnswer = m_RsUser("PassAnswer")
m_IsMarray = m_RsUser("IsMarray")
m_NumConNumber = m_RsUser("ConNumber")
m_UserID = m_RsUser("UserID")
m_NumGroupID =m_RsUser("GroupID")
m_StrHomePage = m_RsUser("HomePage")
m_StrBothYear = m_RsUser("BothYear")
m_StrTel = m_RsUser("Tel")
m_StrMSN = m_RsUser("MSN")
m_StrQQ = m_RsUser("QQ")
m_StrCorner = m_RsUser("Corner")
m_StrProvince = m_RsUser("Province")
m_StrCity = m_RsUser("City")
m_StrAddress = m_RsUser("Address")
m_StrPostCode = m_RsUser("PostCode")
m_PassQuestion = m_RsUser("PassQuestion")
m_SelfIntro = m_RsUser("SelfIntro")
m_UserFavor = m_RsUser("UserFavor")
m_isOpen = m_RsUser("isopen")
m_Vocation = m_RsUser("Vocation")
m_HeadPic = m_RsUser("HeadPic")
m_StrNickName = m_RsUser("NickName")
m_StrRealName = m_RsUser("RealName")
Mobile = m_RsUser("Mobile")
CloseTime = m_RsUser("CloseTime")
m_IsCorporation = m_RsUser("IsCorporation")
isMessage = m_RsUser("isMessage")
m_HeadPicsize = m_RsUser("HeadPicsize")
m_StrEmail = m_RsUser("Email")
m_NumSex = m_RsUser("sex")
safeCode = m_RsUser("safeCode")
m_UserLoginCode = m_RsUser("UserLoginCode")
End If
m_RsUser.close
End Property
Public Property Get UserID() '用戶ID
UserID = m_UserID
End Property
Public Property Get NumConNumber() '投稿數量
NumConNumber = m_NumConNumber
End Property
Public Property Get PaperType() '證件類型
PaperType = m_Paper
End Property
Public Property Get PaperTypecode() '證件號碼
PaperTypecode = m_Papercode
End Property
Public Property Get OnlyLogin () '多人登陸?
OnlyLogin = m_OnlyLogin
End Property
Public Property Get PassAnswer () '密碼答案?
PassAnswer = m_PassAnswer
End Property
Public Property Get IsMarray () '是否結婚?
IsMarray = m_IsMarray
End Property
Public Property Get NumFS_Money() '可用金幣
NumFS_Money = m_NumFS_Money
End Property
Public Property Get isCorp() '會員類型
isCorp = m_isCorpOration
End Property
Public Property Get NumLoginNum() '登陸次數
NumLoginNum = m_NumLoginNum
End Property
Public Property Get UserNumber() '用戶編號
UserNumber = m_StrUserNumber
End Property
Public Property Get CloseTime() '用戶編號
CloseTime = m_CloseTime
End Property
Public Property Get NumGroupID() '用戶群權限
NumGroupID = m_NumGroupID
End Property
Public Property Get RegTime() '注冊時間
RegTime = m_StrRegTime
End Property
Public Property Get LastLoginTime() '最后登陸時間
LastLoginTime = m_StrLastLoginTime
End Property
Public Property Get LastLoginIP() '最后登陸IP
LastLoginIP = m_StrLastLoginIP
End Property
Public Property Get NumIntegral() '積分
NumIntegral = m_NumIntegral
End Property
Public Property Get Sex() '性別
Sex = m_NumSex
End Property
Public Property Get Email() '郵件
Email = m_StrEmail
End Property
Public Property Get Tel() '電話
Tel = m_StrTel
End Property
Public Property Get MSN() 'MSN
MSN = m_StrMSN
End Property
Public Property Get QQ() 'QQ
QQ = m_StrQQ
End Property
Public Property Get Corner() '地區
Corner = m_StrCorner
End Property
Public Property Get UserLoginCode() '地區
UserLoginCode = m_UserLoginCode
End Property
Public Property Get Province() '省份
Province = m_StrProvince
End Property
Public Property Get City() '城市
City = m_StrCity
End Property
Public Property Get Address() '地址
Address = m_StrAddress
End Property
Public Property Get PostCode() '郵編
PostCode = m_StrPostCode
End Property
Public Property Get HomePage() '網站地址
HomePage = m_StrHomePage
End Property
Public Property Get BothYear() '生日
BothYear = m_StrBothYear
End Property
Public Property Get PassQuestion() '密碼問題
PassQuestion = m_PassQuestion
End Property
Public Property Get SelfIntro() '個性簽名
SelfIntro = m_SelfIntro
End Property
Public Property Get UserFavor() '愛好
UserFavor = m_UserFavor
End Property
Public Property Get isOpen() '是否開放資料
isOpen = m_isOpen
End Property
Public Property Get OpenInfoTF() '是否開放資料
OpenInfoTF = m_OpenInfoTF
End Property
Public Property Get Vocation() '職業
Vocation = m_Vocation
End Property
Public Property Get HeadPic() '頭像
HeadPic = m_HeadPic
End Property
Public Property Get HeadPicsize() '頭像
HeadPicsize = m_HeadPicsize
End Property
Public Property Get UserName() '用戶名
UserName = m_StrUserName
End Property
Public Property Get RealName() '真實姓名
RealName = m_StrRealName
End ProPerty
Public Property Get EName() '英文名字
EName = m_StrUserName
End Property
Public Property Get NickName() '昵稱
NickName = m_StrNickName
End Property
Private Sub Class_Initialize()
Set m_RsUser = server.CreateObject(G_FS_RS)
End Sub
Private Sub Class_Terminate()
Set m_RsUser = Nothing
End Sub
Public Function UserGroups(f_strfield,f_strvalue)
Dim f_RsUG,f_StrUG,f_StrSelected
UserGroups = ""
f_StrSelected = ""
Set f_RsUG = User_Conn.Execute("Select "&f_strfield&",Name from FS_MemGroup")
Do While Not f_RsUG.EOF
f_StrUG = f_RsUG(0)
If f_StrUG = f_strvalue Then f_StrSelected = "selected"
UserGroups = UserGroups & "<option value="""&f_StrUG&""" "&f_StrSelected&">"&f_RsUG(1)&"</option>" & vbcrlf
f_StrSelected = ""
f_RsUG.MoveNext
Loop
Set f_RsUG = Nothing
End Function
Public Function DelUser(f_StrNumName,f_StrPWD)
DelUser = True
Dim StrNumName
If f_StrNumName="" Or f_StrPWD="" Or IsNull(f_StrNumName) Or IsNull(f_StrPWD) Then
DelUser = False
Else
Dim f_RsMemObj
Set f_RsMemObj = User_Conn.Execute("select UserNumber from FS_ME_Users where (UserNumber='"&f_StrNumName&"' or UserName='"&f_StrNumName&"') and UserPassword='"&f_StrPWD&"'")
If f_RsMemObj.EOF Then
DelUser = False
Set f_RsMemObj = Nothing
Else
On Error Resume Next
StrNumName = f_RsMemObj(0)
'User_Conn.Execute("Delete from FS_ME_Message where M_ReadUserNumber='"&StrNumName&"'")
User_Conn.Execute("Update FS_ME_Message set M_FromUserNumber=0 where M_FromUserNumber='"&StrNumName&"'")
User_Conn.Execute("Update FS_ME_Message set M_ReadUserNumber=0 where M_ReadUserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_BuyBag where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Update FS_ME_Card set UserNumber=0 where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_CertFile where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_CorpUser where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_Favorite where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_FavoriteClass where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_Friends where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Update FS_ME_Friends set F_UserNumber = 0 where F_UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_GroupDebate where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_GroupDebateClass where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_InfoClass where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_InfoContribution where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_InfoDown where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_Infoilog where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_InfoProduct where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_Log where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_MyInfo where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_MySysPara where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_Order where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_ME_Review where UserNumber='"&StrNumName&"'")
User_Conn.Execute("Delete from FS_SD_InfoSupply where UserNumber='"&StrNumName&"'")
'刪除靜態目錄、其他目錄
'暫時保留
Set f_RsMemObj = Nothing
User_Conn.Execute("Delete from FS_ME_Users where UserNumber='"&StrNumName&"'")
If Err Then
Err.clear
DelUser = False
Else
DelUser = True
End If
End If
End If
End Function
Public Function strUserNumberRule(str)
strUserNumberRule = ""
Dim f_strUserNumberarr,f_str0,f_str1,f_str2,f_str3,f_str4,Getstr
if instr(str,",")=0 then strUserNumberRule=str : Exit Function
f_strUserNumberarr = split(str,",")
If Not IsArray(f_strUserNumberarr) then Exit Function
f_str0 = f_strUserNumberarr(0)
f_str1 = f_strUserNumberarr(1)
f_str2 = f_strUserNumberarr(2)
f_str3 = f_strUserNumberarr(3)
f_str4 = f_strUserNumberarr(4)
strUserNumberRule = strUserNumberRule & f_strUserNumberarr(0)
If Instr(1,f_strUserNumberarr(1),"y",1)<>0 then
if Len(Trim(Cstr(f_strUserNumberarr(3))))<>0 then
strUserNumberRule = strUserNumberRule & right(year(now),2)&f_strUserNumberarr(3)
Else
strUserNumberRule = strUserNumberRule & right(year(now),2)
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -