ks_usercommoncls.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

<!--#include file="KS_CommonCls.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394 
'程序版权： 科汛网络
'E-Mail  :[e-mail] [e-mail]
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'====================================================================================================================
'-----------------------------------------------------------------------------------------------
'科汛网站管理系统,会员系统函数类
'开发:林文仲 版本 v1.1
'-----------------------------------------------------------------------------------------------
Class UserCls
			Private KSCMS,I  
			'---------定义会员全局变量开始---------------
			Private ID,GroupID,UserName,PassWord,Question,Answer,Email
			Private RealName,Sex,Birthday,IDCard,OfficeTel,HomeTel,Mobile,Fax
			Private Province,City,Address,Zip,HomePage,QQ,ICQ,MSN,UC,UserFace,FaceWidth,FaceHeight,Sign,Privacy,CheckNum,RegDate
			Private JoinDate,LastLoginTime,LastLoginIP,LoginTimes,Money,Score,Point,locked
			Public ChargeType,Edays,BeginDate
			'---------定义会员全局变量结束---------------
			
			Private Sub Class_Initialize()
			  Set KSCMS=New CommonCls
			End Sub
			Private Sub Class_Terminate()
			 Set KSCMS=Nothing
			End Sub
		   '**************************************************
			'函数名：GetConfig
			'作  用：判断用户是否登录
			'返回值：true或false
			'**************************************************
			Public Function UserLoginChecked()
			    
				UserName = KSCMS.ReplaceBadChar(Trim(Request.Cookies(KSCMS.SiteSn)("UserName")))
				PassWord= KSCMS.ReplaceBadChar(Trim(Request.Cookies(KSCMS.SiteSn)("Password")))
				IF UserName="" Then
				   UserLoginChecked=false
				   Exit Function
				Else
					Dim UserRs:Set UserRS=Conn.execute("Select * From KS_User Where UserName='" & UserName & "' And PassWord='" & PassWord & "'")
					IF UserRS.Eof And UserRS.Bof Then
					  UserLoginChecked=false
					Else
					  UserLoginChecked=true
					  for I=0 to UserRS.fields.count-1
						 Execute(UserRS.Fields(i).Name&"=ForValue("""&trim(UserRS.Fields(i).Value)&""")")
					  Next
					End if
					UserRS.Close:Set UserRS=Nothing
			   End IF
			End Function
		    Public Function ForValue(s)
						If trim(s)="" Then
							ForValue=""
						End If
						ForValue=s
			End Function
			
			Public Property Get Get_UserID()
                Get_UserID = UserID
			End Property
			Public Property Get Get_GroupID()
                Get_GroupID = GroupID
			End Property
			Public Property Get Get_UserName()
                Get_UserName = UserName
			End Property
			Public Property Get Get_PassWord()
                Get_PassWord = PassWord
			End Property
			Public Property Get Get_Question()
                Get_Question = Question
			End Property
			Public Property Get Get_Answer()
                Get_Answer = Answer
			End Property
			Public Property Get Get_Email()
                Get_Email = Email
			End Property
			Public Property Get Get_RealName()
                Get_RealName = RealName
			End Property
			Public Property Get Get_Sex()
                Get_Sex = Sex
			End Property
			Public Property Get Get_Birthday()
                Get_Birthday = Birthday
			End Property
			Public Property Get Get_IDCard()
                Get_IDCard = IDCard
			End Property
			Public Property Get Get_OfficeTel()
                Get_OfficeTel = OfficeTel
			End Property

			Public Property Get Get_HomeTel()
                Get_HomeTel = HomeTel
			End Property
			
			Public Property Get Get_Mobile()
                Get_Mobile = Mobile
			End Property
			Public Property Get Get_Fax()
                Get_Fax = Fax
			End Property
			Public Property Get Get_Province()
                Get_Province = Province
			End Property
			Public Property Get Get_City()
                Get_City = City
			End Property
			Public Property Get Get_Address()
                Get_Address = Address
			End Property
			
			Public Property Get Get_Zip()
                Get_Zip = Zip
			End Property
			Public Property Get Get_HomePage()
                Get_HomePage = HomePage
			End Property
			Public Property Get Get_QQ()
                Get_QQ = QQ
			End Property
			Public Property Get Get_ICQ()
                Get_ICQ = ICQ
			End Property
			Public Property Get Get_MSN()
                Get_MSN = MSN
			End Property
			Public Property Get Get_UC()
                Get_UC = UC
			End Property
			Public Property Get Get_UserFace()
                Get_UserFace = UserFace
			End Property
			Public Property Get Get_FaceWidth()
                Get_FaceWidth = FaceWidth
			End Property
			Public Property Get Get_FaceHeight()
                Get_FaceHeight = FaceHeight
			End Property
			Public Property Get Get_Privacy()
                Get_Privacy = Privacy
			End Property
			Public Property Get Get_CheckNum()
                Get_CheckNum = CheckNum
			End Property
			
			Public Property Get Get_RegDate()
                Get_RegDate = RegDate
			End Property
			Public Property Get Get_JoinDate()
                Get_ JoinDate =  JoinDate
			End Property
			Public Property Get Get_LastLoginTime()
                Get_LastLoginTime = LastLoginTime
			End Property
			Public Property Get Get_LastLoginIP()
                Get_LastLoginIP = LastLoginIP
			End Property
			Public Property Get Get_LoginTimes()
                Get_LoginTimes = LoginTimes
			End Property

			Public Property Get Get_BeginDate()
                Get_BeginDate = BeginDate
			End Property

			Public Property Get Get_Money()
                Get_Money = Money
			End Property
			Public Property Get Get_Edays()
                Get_Edays = Edays
			End Property
			Public Property Get Get_Score()
                Get_Score = Score
			End Property
			Public Property Get Get_Point()
                Get_Point = Point
			End Property
			Public Property Get Get_locked()
                Get_locked = locked
			End Property
			Public Property Get Get_Sign()
                Get_Sign = Sign
			End Property
            
			
			'会员中心顶部过程
			Public Sub LoadHead()
				Response.Write "<html>" & vbcrlf
		        Response.Write "<HEAD><TITLE>" & KSCMS.GetConfig("WebName") & "-会员中心</TITLE>" & vbcrlf
		        Response.Write "<META http-equiv=Content-Type content=""text/html; charset=gb2312"">"  &vbcrlf
		        Response.Write "<LINK href=""../Skin/Style.css"" type=text/css rel=stylesheet>" & vbcrlf
				Response.Write "<link href=""images/css.css"" rel=""stylesheet"" type=""text/css"">" & vbcrlf

		        Response.Write "<META content=""MSHTML 6.00.3790.2577"" name=GENERATOR></HEAD>" & vbcrlf
		        Response.Write "<BODY >"
				%>
				
<table cellspacing="0" cellpadding="0" width="772" align="center" bgcolor="#ffffff" border="0">
  <tbody>
    <tr>
      <td><table cellspacing="0" cellpadding="0" width="100%" border="0">
        <tbody>
          <tr>
            <td width="1%"><img height="32" src="/Skin/Skin1/05top_02.gif" width="11" twffan="done" /></td>
            <td width="59%" background="/Skin/Skin1/05top_03.gif">
			<%if Get_UserName="" Then%>
			 欢迎您进入<font color=red><%=KSCMS.GetConfig("WebName")%></font>会员中心
			<%Else%>