在给学校做一个网站的过程中，需要将部分师生的个人空间推荐显示在相关页面。而系统自带的用户排行榜{=GetTopUser(Num,more...)}函数只能按用户的活跃程度显示,不能按后台推荐的个人空间显示。经查相关数据分列在数据库的两个 KS_User、KS_Blog表中。故就利用用户排行榜{=GetTopUser(Num,more...)}函数进行改造。

从而实现了师生的个人空间的按推荐及活跃条件显示

：

在KS_Cls目录下找到Kesion.Label.CommonCls.asp文件。找到： 1560行的Dim RSObj:Set RSObj=Conn.execute("Select Top " & Num &" UserID,UserName,UserFace,LoginTimes,sex From KS_User where groupid<>1 Order BY LoginTimes Desc,UserID Desc")

改为： Dim RSObj:Set RSObj=Conn.execute("Select Top " & Num &" KS_User.UserID,KS_User.UserName,KS_User.UserFace,KS_User.LoginTimes,KS_User.sex From KS_User,KS_Blog where KS_User.UserName=KS_Blog.UserName and KS_User.groupid<>1 and KS_Blog.Recommend=1 Order BY KS_User.LoginTimes Desc,KS_User.UserID Desc")

多表、多条件查询就 ok 了

发现有些字符不能正常显示：可下载：

以下内容只有回复后才可以浏览,请先登录！

看看

看看效果。！~！~

把样式发来看看