教您轻松对KesionCMS软件进行二次开发

KesionCMS作为通用的开源CMS之一,虽然可以实现大部分网站的需求,但也有一部分用户拿到程序分可能还需要对系统进行二次开发,以方便实现自己的功能需求。大部分的二次开发都会涉及到会员系统，即用户整合。今天我给大家介绍下，如何在您的页面上共享用户数据。

其实懂得代码的人，看下User目录下的任何一个文件，就会明白了。科汛将用户类接口定义在了KS_Cls/Kesion.MemberCls.asp文件里，而KS_Cls/Kesion.MemberCls.asp文件本身又引用了科汛的通用函数接口文件KS_Cls/Kesion.CommonCls.asp ，进一步观察可以发现KS_Cls/Kesion.MemberCls.asp文件和Ks_Cls/Kesion.CommonCls.asp文件都涉及到数据库文件的操作，所以还得引入conn.asp文件，综上所述。我们只需要在您自己的asp页面上引用上面二个文件即可。假设您自己开发的文件放在了根目录下（文件名为test.asp)，则代码如下:

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

因为Kesion.membercls.asp文件里已经引用了kesion.commoncls.asp文件，所以不需要再引用了，因为kesion.commoncls.asp和kesion.membercls.asp采用的是类似面象对象开发的类封装的，所以我们还需要实例化这两个类，代码如下

<%

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

%>

通过以上实例化好，我们就可以引用kesion.commoncls.asp和Kesion.MemberCls.asp里的所有方法（函数和过程）了

接下来我们就来说说如何获取用户登录信息,请看代码

<%

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  ---真实姓名
...

具体可以打开KS_Cls/Kesion.MemberCls.asp里查看，如下

   '---------定义会员全局变量开始---------------
   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
   '---------定义会员全局变量结束---------------
 

上面的这些变量，如需要在前面加上KSUser.就可以直接读取了.

附上：test.asp的完整代码

<!--#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

%>