【技巧】给用户排行榜加个幸运（魅力）排行



如果你的版本中是魅力，请将下面的幸运改为魅力。

修改user/usertop.asp

一、找到：
--------------------
新入会员
splt.gif align=absmiddle width=7 height=15>
----------------
下面增加：
------------------
幸运排行
splt.gif align=absmiddle width=7 height=15>
----------------------

二、
-----------------------
      Case "4": DisplayUserNewest(DEF_MaxListNum)
----------------------
下面增加：
--------------------
下面引用程序代码：
    Case "5": DisplayUserCharmPointsTop(DEF_MaxListNum)
----------------------

三、

-------------------
closeDataBase
SiteBottom
If GBL_ShowBottomSure = 1 Then Response.Write GBL_SiteBottomString
------------------

下面增加：
------------------
下面引用程序代码：
Function DisplayUserCharmPointsTop(Numer)

      Dim Rs,SQL
     
      SQL = "select TOP " & Numer & " LeadBBS_User.ID,LeadBBS_User.UserName,LeadBBS_User.CharmPoint,LeadBBS_User.ApplyTime,LeadBBS_User.Lastdoingtime,LeadBBS_User.UserLevel from LeadBBS_User where LeadBBS_User.CharmPoint > 0 Order by LeadBBS_User.CharmPoint DESC"

      Set Rs = Con.ExeCute(SQL)
      GBL_DBNum = GBL_DBNum + 1
      If Not rs.Eof Then%>
     
     

会员幸运排行榜

                  class=TBBG1>
                   
                         
                         
                         
                         
                         
                         
                   
                 

排名

名称

幸运

注册时间

最近光临

等级身份

      <%
      Else
            Rs.close
            Set Rs = Nothing
            Response.Write "