cls_user.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

<%
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)