<!--#include file="conn.asp"-->
<!--#include file="ks_cls/kesion.membercls.asp"-->

<%

Dim KS:Set KS=New PublicCls
Dim KSUser:Set KSUser=New UserCls

%>

<%

Dim UserLoginTF:UserLoginTF=KSUser.UserLoginChecked   '获取有没有登录

If UserLoginTF=true Then

   Response.Write "用户已登录，用户名为：" & KSUser.UserName

Else

   Response.write "还没有登录，<a href="/user/login">点此</a>进入登录页面!"

End If

  '释放对象
Set KSUser=Nothing
 Set  ks=nothing
CloseConn

%>

KSUser.UserName ---用户名
KSUser.RealName  ---真实姓名
KSUser.Money      --用户资金
KSUser.Score       ---用户积分
KSUser.Point        ---用户点券
KSUser.Sex          ---性别
KSUser.Address ---住址
...

等等

   '---------定义会员全局变量开始---------------
   Public ID,GroupID,UserName,PassWord,Question,Answer,Email
   Public RealName,Sex,Birthday,IDCard,OfficeTel,HomeTel,Mobile,Fax
   Public Province,City,Address,Zip,HomePage,QQ,ICQ,MSN,UC,UserFace,FaceWidth,FaceHeight,Sign,Privacy,CheckNum,RegDate
   Public JoinDate,LastLoginTime,LastLoginIP,LoginTimes,Money,Score,Point,locked,RndPassword,UserType,SpaceSize
   Public ChargeType,Edays,BeginDate,IsOnline,GradeTitle,UserCardID
   '---------定义会员全局变量结束---------------
 

<!--#include file="conn.asp"-->
<!--#include file="ks_cls/kesion.membercls.asp"-->

<%

Dim KS:Set KS=New PublicCls    '创建通用类实例
Dim KSUser:Set KSUser=New UserCls '创建会员类实例

Dim UserLoginTF:UserLoginTF=KSUser.UserLoginChecked   '获取有没有登录

If UserLoginTF=true Then

   Response.Write "用户已登录，用户名为：" & KSUser.UserName

Else

   Response.write "还没有登录，<a href=""/user/login"">点此</a>进入登录页面!"

End If

  '释放对象
Set KSUser=Nothing
 Set  ks=nothing
CloseConn

%>