dvbbs
收藏本页
联系我们
论坛帮助
dvbbs

肿瘤咨询在线论坛业余兴趣『 电脑电子 』 → 挂图讲解DVBBS咨询论坛使用指南!


  共有11374人关注过本帖树形打印

主题:挂图讲解DVBBS咨询论坛使用指南!

帅哥哟,离线,有人找我吗?
CHINAONCO
  1楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 义工
等级:超级版主 贴子:141 积分:619 威望:0 精华:3 注册:2002-6-4 10:26:00
挂图讲解DVBBS咨询论坛使用指南!  发贴心情 Post By:2004-1-23 21:49:51

您无权查看精华帖子


在错误的时间,错误的地点,选择了一个正确的职业!
与其诅咒黑暗,不如随我发光。
[本帖被加为精华]
支持(0中立(0反对(0回到顶部
帅哥哟,离线,有人找我吗?
管理员
  2楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 义工
等级:超级版主 贴子:1248 积分:6696 威望:1 精华:16 注册:2004-1-31 23:51:00
  发贴心情 Post By:2004-3-11 7:07:57



我是网站清洁工。
支持(0中立(0反对(0回到顶部
帅哥哟,离线,有人找我吗?
管理员
  3楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 义工
等级:超级版主 贴子:1248 积分:6696 威望:1 精华:16 注册:2004-1-31 23:51:00
  发贴心情 Post By:2004-3-11 8:28:23

文本编辑器的引入,使会员在发帖速度和发帖效果上有了很大提高,你可以从其他网站直接复制“文本、图片”然后在文本编辑器里粘贴发表即可。
(注意:有些很有不规范或者是特殊表格的页面复制发表后会出现全部是代码的现象)

如果你对这种全新的文本编辑器发帖模式还不是很适应,你可以点击“UBB 模式”按钮,切换回以前的那种发帖模式(图二)
建议:如果你发表文章帖,建议您发表前复制一下,因为新版的论坛如果你用后退的话,你会发现内容已经不存在了!!
专题功能的引入
以前我们浏览一个论坛的时候总是因为论坛的版面太多,而我们的浏览器仿佛总是太小,呵呵鼠标拖动的次数也太多了,现在7.0版本论坛仿照“新闻系统”的专题概念模式,引入了专题管理,所有相同属性的帖子在发帖时可以放在一个专题内,你在一个版面看一总揽整个版面的帖子,也可以进入专题更加细致的寻找你喜欢的帖子,方便了你和朋友们的浏览!



我是网站清洁工。
支持(0中立(0反对(0回到顶部
帅哥哟,离线,有人找我吗?
管理员
  4楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 义工
等级:超级版主 贴子:1248 积分:6696 威望:1 精华:16 注册:2004-1-31 23:51:00
  发贴心情 Post By:2004-4-1 10:07:55

7.0发帖技巧论坛使用了新的程序后,不少人反应发帖不方便,不顺手,开始是这样的,慢慢的习惯了就好了。这个新版的程序是空前的先进,可以说是设计者思维的一个跳跃,为大家提供人性化的发贴模式,但由于是新程序,还有一些小问题,不影响大家发贴。  比如在帖图区发帖时常出现: 您在"贴图专区-保存帖子"的时候发生错误,共有1项,下面是错误的详细信息
  • 没有填写内容。
  • 请仔细阅读论坛帮助文件,确保您有相应的操作权限。 明明有填写内容,内容是纯图片,这是程序的问题,管理员正在想办法解决。教大家一个暂时性的办法,就是在发帖栏中把主题文字在输入一次就OK。  论坛用了新的程序后,关于发帖很多朋友可能摸索了很长时间了,但还没有掌握诀窍。我也一直在想,测试了很久,开始也很头痛,连站长都给骂了。现在终于有些头绪了,为了让大家不在为发帖而发愁,这里我就做个详细的说明。一、发文字帖 1.如果是自己直接打到发帖栏里的,可以直接发表。(和以前一样) 2.如果是转贴,即“复制”后“粘贴”过来的文字贴,“粘贴”后请点 UBB模式 ,然后确定就OK了。 3.编缉方法  1>编辑字体:新程序提供了“傻瓜”模式的编辑方法。只要“选中”你要编辑的文字,然后看中间的工具面板,点“字体”“字号”等下拉条中的选项就可以了。  2>编辑颜色选中要加颜色的文字,点击工具面板中的“A”,就会出来一个“调色板”,在你喜欢的颜色上点一下,然后点确定就OK了。  3>编辑其它:如背景颜色等操作都相似的,直接点工具面板上相应的图标就可以了。二、发图片  最先开始我最不满的就是帖图,总觉得增加了很多麻烦,现在才发现其实刚刚相反。完全体现了人性化的一面,是帖图爱好者的福音。 1.上传图片:和以前是一样的,没有什么区别。点“浏览”找到你要上传的图片,点“上传”就搞定。图片数量限制在5个,大小在150K。(其实新版还提供了“批量上传”功能,可以一次上传5张图片,并可以连续批量上传,节省的大量的时间。,由于论坛空间本来就很吃紧,上传图片数量上有限制,所以这里没有允许这个攻能。) 2.转帖图片  简直太精彩了,这是新程序最眩的设计!但是还是有漏洞... :( 从图片网站上转帖:不需要找图片的地址,直接用“选中”文字的方法“选中”图片,可以“选中”主题贴中所有的图片,然后点鼠标右健,点“复制”,直接粘贴到这里就可以了,然后点 UBB模式,确定就OK了! 注意  1>复制的时候一定要复制原来帖子中的一些“文字”,或者自己在新主题的内容框中加几个文字,要不发贴后会出现错误,显示“发贴内容为空”。也就是说在发帖图时,内容不能是纯图片,一定要加上文字(这是新程序又一个漏洞...会想办法解决的)。在这里教大家一个不出错的方法,就是在发帖栏中把主题文字在输入一次就OK了。  2>由与新程序还存在着一些问题,这种转图的方法暂时只能用与图片网站或是版本也为7.0的论坛。也就是说转载其它论坛的帖子,该论坛程序必需和onmouseover="showmenu(event,'╋¤ 菜鸟乐园 ¤ ├№- ≮建议和意见≯ ├№- ≮7.0菜鸟测试区≯ ',0)" style="CURSOR: hand" href="index.asp">菜鸟7.0实习测试基地一样也是7.0版本的才行,如果不是就只能一张一张的帖,同以前的帖图方法一样。即:点鼠标右健选“属性”,复制URL后面的地址到粘帖确定就行了。再三说明,千万不要直接引用源文件粘帖到发帖栏,那样发表后显示为一些乱码。三、管理相关操作在帖子的最底部,有如下选项:管理选项专题管理 | 修复 | 锁定 | 解锁 | 提升 | 删除 | 移动 | 编缉固顶 | 奖励 | 惩罚 | 发布公告 其中,编辑固顶是管理入口。1。固顶操作方法与原版一样。2。总固顶:功能与原版相同。方法:进入管理固顶页面后,选框子左上的 总固顶帖子3。区域固顶:是指一个帖子在几个不同的版面固顶,但不是总固顶。方法:区域固顶和固顶帖子版面,请按 CTRL 键多选你要区域固顶的版面。——即在键盘上按住CTRL 键可以多选。说明:在这里,有权限的用户可进行总固顶、区域固顶和固顶操作,选择总固顶复选框可将帖子总固顶,默认为在当前版面进行固顶操作,CTRL可多选版面进行固顶操作,对总固顶和区域固顶操作前,请确保您有总固顶以及其它版面固顶操作的权限优先原则:选择了总固顶,则选择的区域固顶和固顶版面无效,多选版面进行区域固顶,则帖子为区域固顶,单选版面固顶,则帖子为固顶。编辑固顶的时候如果想取消也就是解除固顶请按 CTRL 点击相应版面取消后提交表单。


  • 我是网站清洁工。
    支持(0中立(0反对(0回到顶部
    帅哥哟,离线,有人找我吗?
    管理员
      5楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


    加好友 发短信 义工
    等级:超级版主 贴子:1248 积分:6696 威望:1 精华:16 注册:2004-1-31 23:51:00
      发贴心情 Post By:2004-4-1 10:08:13

    我还是同以前一样来个详细的说明吧...这样也容易懂一点,我自个也懒,怕到时候别人问我,我也搞不懂情况。论坛发帖分为四种格式,即:Design VIEW  UBB模式 HTMLDesign 为默认格试,如果是帖图我建议大家用这种格式,图片直接显示的,用起来也比较方便。这种格式操作说明:工具栏的图标作用我就不必说了吧,大家都应该知道的。使用这种格式的优点就在于,要用做字体、颜色、字号等直接点击相应的图标就行了,在发帖栏就直接显示出效果来。  注:   像这三种格式,点击一次是应用,再点击一次就取消了。VIEW  就是在新的窗口打开,好像是预览的形式,我也不太清楚。不用理会。UBB模式 这种格式就是和以前的一模一样了。不过在发图片的时候我不支持大家用这种格式。帖入的图片在发帖栏里呈代码的形式出现,由于程序的不完美,很容易出错,一不小心在发帖栏里点了鼠标所有图片代码的网址就会多了下划线,这样发表后的帖子内容将是一些代码而不是图片,所有的努力也就白费了。HTML 这种格式就是纯代码的形式,使用这种格式时将不会有工具栏,所有的图片音乐等都要自己填入代码,当然格式代码同工具栏的代码是有区别的。我想大家都不会用到这种格式的,在说论坛也不支持HTML标签。要不是有人问发的音乐的怎么不行,以前的才学会现在的不会了....晕..我还忘了..... 这个来发布你的mpeg、asf等格式的电影的,也可发歌曲格式mp3 。格式标签:[*MP=480,360,true]连接地址[/mp] (:把前面的*去掉) 这个来发布你的rm.ram.mp3等格式的歌曲和视频。格式标签:[*RM=480,360,true]连接址址[/rm] (:把前面的*去掉)说明:点击会弹出一个个话框,文件后缀是指你要发布的电影或音乐的格式,文件地址就是连接地址咯,文件宽度和文件高度可以跟据自己的要求和美观来改。这个新版的程序还提供一个人性化的地方就是在这里了-播放模式,分为自动手动,自动为为默认格式,也就是打开帖子就可以直接看到或听到;手动就是要你自己点击播放器上面的开始才能播放了。


    我是网站清洁工。
    支持(0中立(0反对(0回到顶部
    帅哥哟,离线,有人找我吗?
    web
      6楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


    加好友 发短信 半人半兽
    等级:管理员 贴子:3944 积分:21316 威望:0 精华:29 注册:2003-12-25 8:30:00
      发贴心情 Post By:2005-6-20 21:18:05

    上传图片设置

    选择无组件上传。

    再关闭"选取生成预览图片的组件"!

    这个是对的。我试了一下可以


    支持(0中立(0反对(0回到顶部
    帅哥哟,离线,有人找我吗?
    管理员
      7楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


    加好友 发短信 义工
    等级:超级版主 贴子:1248 积分:6696 威望:1 精华:16 注册:2004-1-31 23:51:00
      发贴心情 Post By:2007-2-25 16:54:43

    7.10论坛同等级版主不能相互编辑的修改:

    post.asp


    If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then
    Dvbbs.AddErrCode(75)

    改為:

    If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then
    'Dvbbs.AddErrCode(75)


    savepost.asp


    If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then
    Dvbbs.AddErrCode(75)

    改為:

    If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") then
    'Dvbbs.AddErrCode(75)



    我是网站清洁工。
    支持(0中立(0反对(0回到顶部
    帅哥哟,离线,有人找我吗?
    web
      8楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


    加好友 发短信 半人半兽
    等级:管理员 贴子:3944 积分:21316 威望:0 精华:29 注册:2003-12-25 8:30:00
      发贴心情 Post By:2008-1-6 7:12:46

    动网ASP8.1版首页调用的制作方法

    很多朋友都问我,动网论坛首页调用我怎么做得那么好。

    说实话,我对ASP没有一点认识,纯粹一个HTM的初学者。至于为什么会做首页调用,我只是在套公式罢了。

    下面我把我一直使用的公式发给大家,希望大家也能做出自己喜欢的首页调用!

    这些都是我一直保存着的,也不知道原创的作者是哪位高人,但是有意义的东西都是好东西!

    希望大家也能早日做出自己喜欢的漂亮的首页调用,来参加动网的插件大赛!

    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------

    1.创建一个ASP页面,并顶部加入下面代码
    <!--#include file="conn.asp"-->
    <!--#include file="inc/const.asp"-->
    <!--#include file="inc/dv_clsother.asp"-->

    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------

    2.大家最关心的也是最容易出错的图片调用

    单一版块图片调用

    <%
    sub jpg()
    dim rs,sql,i,n,ds,k
    i=0
    n=1 '调用个数
    k=24 '调用板块
    sql="select top "&n&" b.BoardID,b.topicid,b.Title,b.PostUserName,a.F_Filename,a.F_AddTime from [DV_Upfile] a, dv_topic b where a.F_FileType='jpg' AND a.F_Type=1 and a.F_BoardID="&k&" and b.boardid=a.F_BoardID and b.Title=a.F_Readme order by a.F_AddTime desc "
    set rs=Dvbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    else
    response.write "目前没有新贴"
    exit sub
    end if
    rs.close:set rs=nothing
    For i=0 To Ubound(SQL,2)
    response.write "<div class='inphoto' style='margin-left:16px!important;margin:0px 8px;'>"
    response.write "<a href=dispbbs.asp?boardid="&sql(0,i)&"&id="&sql(1,i)&" title=标题:"&left(sql(2,i),30)&"&#13;&#10;作者:"&left(sql(3,i),16)&"&#13;&#10;时间:"&left(sql(5,i),16)&" target=""_blank"">"
    response.write "<img border='0' src=UploadFile/"&SQL(4,i)&" width='140' height='70'>"
    response.write "<br><img height='3' src='index/images/sp01.gif' width='1' border='0'><br>"
    response.write ""&left(dvbbs.htmlencode(sql(2,i)),8)&"</a></div>"
    next
    end sub
    %>

    加个幻灯片的调用方法(是哈哈拉的代码,觉得很好就拿出来了)
    <%

    dim rs,sql,i
    dim pic,links,texts,text,BoardID,RootID,ReplyID,F_AnnounceID
    dim UploadFile
    sql="select top 6 F_BoardID,F_AnnounceID,F_ViewNum, F_Filename ,F_Readme,F_id from [dv_upfile] where F_Type=1 and F_FileType='jpg' and F_BoardID not in (5) And F_AnnounceID in(select DISTINCT F_AnnounceID from [dv_upfile] where F_Type=1 and F_FileType='jpg' and F_BoardID not in (5)) order by F_id desc"


    set rs=Dvbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    '循环提取数据
    For i=0 To Ubound(SQL,2)
    BoardID=SQL(0,i)
    If Instr(SQL(1,i)&"","|") Then
    F_AnnounceID=Split(SQL(1,i),"|")
    RootID = F_AnnounceID(0)
    ReplyID = F_AnnounceID(1)
    Else
    RootID = ""
    ReplyID = ""
    End If
    if links="" then
    links="artbbs.asp?boardid="&BoardID&":ID="&RootID&":replyID="&ReplyID
    else
    links=links&"|artbbs.asp?boardid="&BoardID&":ID="&RootID&":replyID="&ReplyID
    end if
    if pic="" then
    pic= SQL(3,i)
    else
    pic=pic&"|UploadFile/"&SQL(3,i)
    end if
    if len(SQL(4,i))>16 then
    text=left(SQL(4,i),16)
    else
    text=SQL(4,i)
    end if
    if texts="" then
    texts=text
    else
    texts=texts&"|"&text
    end if
    next
    else
    response.write "无下级板块"
    end if
    rs.close:set rs=nothing
    'response.Write pic
    %>
    <script type="text/javascript">
    <!--
    var focus_width=300 /*宽度参数可自已修改*/
    var focus_height=188/*高度参数可自已修改*/
    var text_height=18/*文本高度参数可自已修改*/
    var swf_height = focus_height+text_height
    var pics='UploadFile/<%= pic %>'
    var links='<%= links %>'
    var texts='<%= texts %>'

    AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0','width','300','height','206','src','artimg','quality','high','pluginspage','http://www.macromedia.com/go/getflashplayer','FlashVars','pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'','wmode','transparent' );

    document.write('<noscript><object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
    document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="artimg.swf"><param name=wmode value=transparent><param name="quality" value="high">');
    document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
    document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
    document.write('<embed src="artimg.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#DADADA" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
    document.write('</object></noscript>');

    //-->
    </script>

    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    3.公告调用

    sub bbsnews()
    dim rs,sql,i,n,tlen
    n=6
    tlen=10
    response.write "<table cellspacing=1 cellpadding=5 align=center valign=top class=mytableborder>"
    response.write "<tr><th colspan=2 align=left> . 社区公告栏:</th></tr>"
    response.write "<tr>"
    response.write "<td align=left class=tablebody1 width=""100%"">会员请加群12292959<br>版主请加群8025598<br>请大家重新设好头像</td><tr>"
    response.write "<tr><td align=left class=tablebody1 width=""100%"">"
    sql="select top "&n&" boardid,title,username,addtime,id from [Dv_bbsnews] order by id desc"
    set rs=Dvbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    else
    response.write "论坛目前没有公告"
    response.write "</td></tr>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=2></td></tr>"
    response.write "</table>"
    Exit sub
    end if
    rs.close:set rs=nothing

    response.write "<MARQUEE behavior=scroll align=center direction=up height=100 scrollamount=1 scrolldelay=20 onmouseover='this.stop()' onmouseout='this.start()'>"

    for i=0 to Ubound(sql,2)
    response.write "* "
    response.write "<a href=""announcements.asp?action=showone&boardid="& SQL(0,i) &"&id="&SQL(4,i)&""" target=""_blank"" title=""发表人:"&SQL(2,i)&" 时间:"&SQL(3,i)&""">"
    response.write ""&left(sql(1,i),tlen)&"..."
    response.write "("&sql(3,i)&")"
    response.write "</a>"
    response.write "<br>"
    next

    response.write "</MARQUEE>"

    response.write "</td></tr>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=2></td></tr>"
    response.write "</table>"
    End sub
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    4.在线统计

    sub online()
    Dim rs,sql,m,k,i
    m=0
    k=0
    sql="select username from [Dv_online] orders"
    Set Rs=DVbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    else
    response.write "<table cellspacing=1 cellpadding=5 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24> . 目前在线:</th></tr>"
    response.write "<tr><td class=tablebody1>"
    Response.Write "目前论坛无人在线"
    response.write "</td></tr>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=5></td></tr></table>"
    exit sub
    end if
    rs.close:set rs=nothing
    For i=0 To Ubound(SQL,2)
    m=m+1
    next
    For i=0 To Ubound(SQL,2)
    if SQL(0,i)="客人" then
    k=k+1
    end if
    next
    response.write "<table cellspacing=1 cellpadding=5 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24> . 目前在线:</th></tr>"
    response.write "<tr><td class=tablebody1>"
    Response.Write " . 会员:"
    Response.Write ""&m-k&"<br>"
    Response.Write " . 访客:"
    Response.Write ""&k&"<br>"
    Response.Write " . 总在线:"
    Response.Write ""&m&""
    response.write "</td></tr>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=5></td></tr></table>"
    end sub
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    5.注册统计

    sub userstj()
    dim daynum,monthnum,yearnum
    daynum=Dvbbs.CacheData(10,0)\(datediff("d",Dvbbs.Forum_Setting(74),date()))
    monthnum=daynum*30
    yearnum=daynum*365
    if yearnum>Dvbbs.CacheData(10,0) then
    yearnum=Dvbbs.CacheData(10,0)
    end if
    response.write "<table cellspacing=1 cellpadding=5 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24> . 会员注册统计:</th></tr>"
    response.write "<tr><td class=tablebody1>"
    Response.Write " . 每天:"&daynum&"<br>"
    Response.Write " . 每月:"&monthnum&"<br>"
    Response.Write " . 每年:"&yearnum&"<br>"
    response.write "</td></tr>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=5></td></tr></table>"
    end sub
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    6.发帖排行

    sub topuser()
    dim rs,sql,i,n
    n=15
    sql="select top "&n&" userid,username,UserPost from [Dv_user] order by UserPost desc,userid desc"
    set rs=Dvbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    end if
    rs.close:set rs=nothing
    response.write "<table cellspacing=1 cellpadding=5 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24 colspan=3> . 发贴总排行:</th></tr>"
    For i=0 To Ubound(SQL,2)
    response.write "<tr>"
    response.write "<td class=tablebody1>"
    response.write ""&i+1&""
    response.write "</td>"
    response.write "<td class=tablebody1>"

    response.write "<a href="

    Response.Write "dispuser.asp?id="
    Response.Write SQL(0,i)
    Response.Write " target=_blank title=查看"
    Response.Write Dvbbs.htmlencode(SQL(1,i))
    Response.Write "的个人资料>"
    response.write Dvbbs.htmlencode(SQL(1,i))
    response.write "</a>"
    response.write "</td>"
    response.write "<td class=tablebody1>"
    response.write ""&Dvbbs.htmlencode(SQL(2,i))&""
    response.write "</td>"
    response.write "</tr>"
    response.write "</td></tr>"
    next
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=3></td></tr></table>"
    end sub
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    7.帖子信息统计

    Function topic()
    response.write "<table cellspacing=1 cellpadding=5 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24> . 帖子信息: </th></tr>"
    response.write "<tr><td class=tablebody1>"
    Response.Write " . 今日贴数:"&Dvbbs.CacheData(9,0)&"<br>"
    Response.Write " . 昨日贴数:"&Dvbbs.CacheData(11,0)&"<br>"
    Response.Write " . 主题总数:"&Dvbbs.CacheData(7,0)&"<br>"
    Response.Write " . 帖子总数:"&Dvbbs.CacheData(8,0)&"<br>"
    Response.Write " . 最高日发贴 <font color=#CC0000>"&Dvbbs.CacheData(12,0)&" </font><br>"
    response.write "</td></tr>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=5></td></tr></table>"
    end Function
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    8.会员统计

    function sexg(sexgb)
    Dim sqlgb
    Dim Rs
    if sexgb=1 then
    sqlgb="where Usersex=1"
    else
    sqlgb="where Usersex<>1"
    end if
    ConnectionDatabase
    set rs=conn.execute("Select count(*) from [dv_user]"&sqlgb)
    sexg=rs(0)
    set rs=nothing
    end function
    sub users()
    dim tnum,ynum,boynum,rs,sql,i
    tnum=0
    ynum=0
    BoyNum=sexg(1)
    sql="select JoinDate from [Dv_user] orders"
    Set Rs=DVbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    end if
    rs.close:set rs=nothing
    For i=0 To Ubound(SQL,2)
    if FormatDateTime(SQL(0,i),vbShortDate)=FormatDateTime(date,vbShortDate) then
    tnum=tnum+1
    end if
    if FormatDateTime(SQL(0,i),vbShortDate)=FormatDateTime(DateAdd("d", -1, date()),vbShortDate) then
    ynum=ynum+1
    end if
    next
    response.write "<table cellspacing=1 cellpadding=5 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24> . 会员统计: </th></tr>"
    response.write "<tr><td class=tablebody1>"
    Response.Write " . 今日注册:"&tnum&"<br>"
    Response.Write " . 昨日注册:"&ynum&"<br>"
    Response.Write " . 论坛女生 "&Dvbbs.CacheData(10,0)-BoyNum&" <br> . 论坛男生 "&BoyNum&" <br>"
    Response.Write " . 会员总数:"&Dvbbs.CacheData(10,0)&"<br>"
    Response.Write " . 新进来宾:"&Dvbbs.CacheData(14,0)&"<br>"
    response.write "</td></tr>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=5></td></tr></table>"
    end sub
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    9.友情连接

    Function Getmylink()
    Dim Rs,sql
    Dim m,i,k
    m=0
    k=1
    sql="select boardname,readme,url,logo,islogo from [Dv_Bbslink] orders"
    Set Rs=DVbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    end if
    rs.close:set rs=nothing
    response.write "<table cellspacing=1 cellpadding=3 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24>≡ 友情链接 ≡</th></tr>"
    response.write "<tr><td class=tablebody1>"
    if Ubound(SQL,2)=0 then
    response.write "目前还没有友情链接!"
    else

    For i=0 To Ubound(SQL,2)
    if SQL(4,i)=1 then
    response.write "<a href="&SQL(2,i)&" target=""_blank""><img src="&SQL(3,i)&" border=0 width=""88"" height=""31"" title="&SQL(1,i)&"></a>"
    response.write " "
    k=k+1
    if k Mod(9)=1 then
    response.write "<br>"
    end if
    end if

    next
    response.write "<br>"
    end if
    For i=0 To Ubound(SQL,2)
    if SQL(4,i)=0 then
    response.write "<a href="&SQL(2,i)&" target=""_blank"" title="&SQL(1,i)&">"&SQL(0,i)&"</a>"
    response.write " "
    end if
    next

    response.write "</td></tr>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=5></td></tr></table>"
    End Function
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    10.今日来访会员

    sub showtoday()
    dim u_num,sql,rs,i
    u_num=0
    response.write "<table cellpadding=3 cellspacing=1 align=center class=mytableborder style=""word-break:break-all;""><TR ><Th align=left colspan=2>≡ 今日到访会员 ≡</Th></TR>"
    sql="select UserName,LastLogin from [Dv_User] orders"
    set rs=Dvbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    else
    response.write "<tr><td class=tablebody1>今日没有会员到访</td></tr></table>"
    exit sub
    end if
    rs.close:set rs=nothing
    response.write "<tr><td class=tablebody1 align=left width=""100%"">"
    for i=0 To Ubound(SQL,2)
    if FormatDateTime(sql(1,i),vbShortDate)=FormatDateTime(date,vbShortDate) then
    response.write "<a href=dispuser.asp?name="&sql(0,i)&" target=""_blank"" title=查看"&sql(0,i)&"的个人资料>"
    response.write ""&sql(0,i)&"</a>"

    response.write " "
    end if
    next
    response.write "</td></tr>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif""></td></tr></table>"
    end sub
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    11.社区明星

    sub allstar()
    dim rs,sql,i,mysex,tempstr,mydate,tempface,face
    i=0
    sql="select top 1 userid,username,userpost,usersex,userface,userwidth,userheight,usertitle,joindate,lastlogin,userclass,usertoday from [dv_user] order by userpost desc"
    set rs=Dvbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    end if
    rs.close:set rs=nothing
    tempface=split(sql(4,i),"|")
    If Ubound(tempface)>0 Then
    face=tempface(1)
    else
    face=tempface(0)
    end if
    if sql(3,i)=1 then
    mysex="Boy"
    else
    mysex="Girl"
    end if
    mydate=Split(sql(8,i)," ")
    'if sql(11,i)=null then
    'tempstr="0"
    'else
    'tempstr=Split(sql(11,i),"|")
    'end if
    response.write "<table cellspacing=1 cellpadding=5 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24> . 社区明星:</th></tr>"
    response.write "<tr><td class=tablebody1 align=center valign=middle>"
    response.write "<img src="&face&" border=0 height="&sql(6,i)&" width="&sql(5,i)&"></td></tr>"
    response.write "<tr><td class=tablebody1 align=left>"
    response.write "会员昵称: "&sql(1,i)&"<br>"
    response.write "性 别: "&mysex&"<br>"
    response.write "论坛等级: "&sql(10,i)&"<br>"
    response.write "头 衔: "&sql(7,i)&"<br>"
    response.write "总发贴量: "&sql(2,i)&"<br>"
    response.write "加盟日期: "&mydate(0)&"<br>"
    'response.write "今日发贴: "&tempstr(0)&"<br>"
    response.write "</td></tr>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif""></td></tr></table>"
    end sub

    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    12.今日发帖状元

    sub todaystar()
    dim rs,sql,i,mysex,tempstr,tempname,mydate,tempface,face
    i=0
    sql="select top 1 username,count(username) from Dv_bbs1 where DateAndTime>Date() group by username order by count(username) desc"
    set rs=Dvbbs.Execute(sql)
    If Not RS.Eof then
    tempname=rs(0)
    SQL=Rs.GetRows(-1)

    else
    response.write "<table cellspacing=1 cellpadding=5 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24> . 今日发贴状元:</th></tr>"
    response.write "<tr><td align=center class=tablebody1>新的一天开始了,记录等你来改写</td></tr>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif""></td></tr></table>"
    exit sub
    end if

    sql="select top 2 userid,username,userpost,usersex,userface,userwidth,userheight,usertitle,joindate,lastlogin,userclass,usertoday from [dv_user] where username='"&tempname&"' order by userpost desc"
    set rs=Dvbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    end if

    rs.close:set rs=nothing
    tempface=split(sql(4,i),"|")
    If Ubound(tempface)>0 Then
    face=tempface(1)
    else
    face=tempface(0)
    end if
    mydate=Split(sql(8,i)," ")
    if sql(3,i)=1 then
    mysex="Boy"
    else
    mysex="Girl"
    end if
    tempstr=Split(sql(11,i),"|")
    response.write "<table cellspacing=1 cellpadding=5 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24> . 今日发贴状元:</th></tr>"
    response.write "<tr><td class=tablebody1 align=center valign=middle>"
    response.write "<img src="&face&" border=0 height=145 width=150></td></tr>"
    response.write "<tr><td class=tablebody1 align=left>"
    response.write "会员昵称: "&sql(1,i)&"<br>"
    response.write "性 别: "&mysex&"<br>"
    response.write "论坛等级: "&sql(10,i)&"<br>"
    response.write "头 衔: "&sql(7,i)&"<br>"
    response.write "总发贴量: "&sql(2,i)&"<br>"
    response.write "加盟日期: "&mydate(0)&"<br>"
    response.write "今日发贴: "&tempstr(0)&"<br>"
    response.write "</td></tr>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif""></td></tr></table>"
    end sub
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    13.热门版块排行

    sub myboard()
    dim rs,sql,i,n
    n=12 '板块排行调用个数
    i=0
    sql="select top "&n&" boardid,boardtype,depth,postnum from [dv_board] where depth<>0 order by postnum desc"
    set rs=Dvbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    else
    response.write "<table cellspacing=1 cellpadding=5 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24 colspan=3> . 板块发贴排行:</th></tr>"
    response.write "<tr><td class=tablebody1 colspan=3>论坛无板块</td></tr>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=3></td></tr></table>"
    exit sub

    end if
    rs.close:set rs=nothing
    response.write "<table cellspacing=1 cellpadding=5 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24 colspan=3> . 板块发贴排行:</th></tr>"
    For i=0 To Ubound(SQL,2)
    response.write "<tr>"
    response.write "<td class=tablebody1>"
    response.write ""&i+1&""
    response.write "</td>"
    response.write "<td class=tablebody1>"
    response.write "<a href=index.asp?boardid="&sql(0,i)&" target=""_blank"" title=""进入板块浏览"">"
    response.write ""&sql(1,i)&""
    response.write "</a></td>"
    response.write "<td class=tablebody1>"
    response.write ""&sql(3,i)&""
    response.write "</td></tr>"
    next
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=3></td></tr></table>"
    end sub

    《其中一个板块内的所有小板块调用》
    <%
    newtopic4()
    sub newtopic4()
    dim rs,sql,i,n,ds
    i=0
    n=12 '新贴调用个数 查询一个板块下面的小板块(影视观台下面板块)
    sql="select top "&n&" a.topicid,a.title,a.boardid,a.postusername,a.lastpost,a.lastposttime,a.dateandtime,b.boardtype from dv_topic a,dv_board b where b.ParentID=26 and b.boardid=a.boardid and b.boardid=a.boardid order by dateandtime desc"
    set rs=Dvbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    else
    response.write "目前没有新贴"
    exit sub
    end if
    rs.close:set rs=nothing
    For i=0 To Ubound(SQL,2)
    response.write "<img src=index/images/icon6.gif border=0 hspace=6 vspace=4 align=absmiddle><a href=dispbbs.asp?boardid="&sql(2,i)&"&id="&sql(0,i)&" title=标题:"&left(sql(1,i),30)&"&#13;&#10;作者:"&left(sql(3,i),16)&"&#13;&#10;时间:"&left(sql(5,i),16)&" target=""_blank"">"
    response.write ""&left(dvbbs.htmlencode(sql(1,i)),24)&"</a></br>"
    next
    end sub
    %>
    《其中一个板块内的部分小板块调用》
    <%
    newtopic3()
    sub newtopic3()
    dim rs,sql,i,n,ds x,y
    i=0
    n=12 '新贴调用个数
    x=28 '开始板块
    y=35 '结束板块
    sql="select top "&n&" a.topicid,a.title,a.boardid,a.postusername,a.lastpost,a.lastposttime,a.dateandtime,b.boardtype from dv_topic a,dv_board b where a.boardid>"&x&" and a.boardid<"&y&" and b.boardid=a.boardid order by dateandtime desc"
    set rs=Dvbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    else
    response.write "目前没有新贴"
    exit sub
    end if
    rs.close:set rs=nothing
    For i=0 To Ubound(SQL,2)
    response.write "<img src=index/images/icon5.gif border=0 hspace=6 vspace=4 align=absmiddle><a href=dispbbs.asp?boardid="&sql(2,i)&"&id="&sql(0,i)&" title=标题:"&left(sql(1,i),30)&"&#13;&#10;作者:"&left(sql(3,i),16)&"&#13;&#10;时间:"&left(sql(5,i),16)&" target=""_blank"">"
    response.write ""&left(dvbbs.htmlencode(sql(1,i)),24)&"</a></br>"
    next
    end sub
    %>

    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    14.精华帖子调用

    sub mybesttopic()
    dim rs,sql,i,n,myboard,ds,tempstr
    i=0
    n=10 '精华调用个数
    sql="select top "&n&" topicid,title,boardid,postusername,lastpost,lastposttime,dateandtime from [dv_topic] where boardid<>444 and isbest=1 order by dateandtime desc"
    set rs=Dvbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    else
    response.write "<table cellspacing=1 cellpadding=1 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24 colspan=4> . 论坛精华贴:</th></tr>"
    response.write "<tr><td class=cbg align=center>版面</td><td class=cbg align=center>标题</td><td class=cbg align=center>发贴人</td><td class=cbg align=center>最后回复</td></tr>"
    response.write "<tr><td colspan=4 height=30 class=tablebody1 align=center valign=middle>论坛目前没有精华贴</td></tr>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=4></td></tr></table>"
    exit sub

    end if
    rs.close:set rs=nothing

    response.write "<table cellspacing=1 cellpadding=1 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24 colspan=4> . 论坛精华贴:</th></tr>"
    response.write "<tr><td class=cbg align=center>版面</td><td class=cbg align=center>标题</td><td class=cbg align=center>发贴人</td><td class=cbg align=center>最后回复</td></tr>"
    For i=0 To Ubound(SQL,2)
    tempstr=Split(sql(4,i),"$")
    set ds=Dvbbs.Execute("select boardtype from [dv_board] where boardid="&SQL(2,i))
    myboard=ds(0)
    response.write "<tr><td class=tablebody1 width=""100"" align=center>"
    response.write ""&myboard&""
    response.write "</td><td class=tablebody1 align=left>"
    response.write "<a href=dispbbs.asp?boardid="&sql(2,i)&"&id="&sql(0,i)&" target=""_blank"">"
    response.write ""&left(sql(1,i),16)&"..."
    response.write "</a></td><td class=tablebody1 align=center width=""80"">"
    response.write ""&sql(3,i)&""
    response.write "</td><td class=tablebody1 align=center width=""120"">"
    response.write "by "&tempstr(0)&""
    response.write "</td></tr>"
    next
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=4></td></tr></table>"
    end sub

    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    15.用户来访信息

    sub userinfo()
    'Dim BrowserType,TempStr
    'Set BrowserType=New Cls_Browser
    Dvbbs.GetBrowser
    response.write "<table cellpadding=5 cellspacing=1 class=tableborder1 align=center style=""word-break:break-all;""><TR>"
    response.write "<Th align=left colSpan=2 height=25>≡ 用户来访信息 ≡</Th>"
    response.write "</TR><TR>"
    response.write "<TD vAlign=top class=tablebody1 height=25 width=100% >您的真实<b>IP</b> 是:"
    response.write ""&Dvbbs.UserTrueIP&""
    response.write ",<b>操作系统</b>:"
    response.write ""&Dvbbs.Platform&""
    response.write ",<b>浏 览 器</b>:"
    response.write ""&Dvbbs.Browser&" "&Dvbbs.version&""
    response.write "</TD></TR>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=2></td></tr></table>"
    end sub
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    16.热门调用个数
    sub remen()
    dim rs,sql,i,n,myboard,ds,tempstr
    i=30
    n=10 '热门调用个数
    sql="select top "&n&" a.topicid,a.title,a.boardid,a.postusername,a.lastpost,a.lastposttime,a.dateandtime,b.boardtype from dv_topic a,dv_board b where a.boardid<>444 and b.boardid=a.boardid order by Hits desc"
    set rs=Dvbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    else
    response.write "<table cellspacing=1 cellpadding=1 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24 colspan=4> . 本月论坛热门贴:</th></tr>"
    response.write "<tr><td class=cbg align=center>版面</td><td class=cbg align=center>标题</td><td class=cbg align=center>发贴人</td><td class=cbg align=center>最后回复</td></tr>"
    response.write "<tr><td colspan=4 height=30 class=tablebody1 align=center valign=middle>论坛目前没有热门贴</td></tr>"
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=4></td></tr></table>"
    exit sub

    end if
    rs.close:set rs=nothing

    response.write "<table cellspacing=1 cellpadding=1 class=mytableborder align=center>"
    response.write "<tr><th align=left height=24 colspan=4> . 本月论坛热门贴:</th></tr>"
    response.write "<tr><td class=cbg align=center>版面</td><td class=cbg align=center>标题</td><td class=cbg align=center>发贴人</td><td class=cbg align=center>最后回复</td></tr>"
    For i=0 To Ubound(SQL,2)
    tempstr=Split(sql(4,i),"$")
    set ds=Dvbbs.Execute("select boardtype from [dv_board] where boardid="&SQL(2,i))
    myboard=ds(0)
    response.write "<tr><td class=tablebody1 width=""100"" align=center>"
    response.write ""&myboard&""
    response.write "</td><td class=tablebody1 align=left>"
    response.write "<a href=dispbbs.asp?boardid="&sql(2,i)&"&id="&sql(0,i)&" target=""_blank"">"
    response.write ""&left(sql(1,i),16)&"..."
    response.write "</a></td><td class=tablebody1 align=center width=""80"">"
    response.write ""&sql(3,i)&""
    response.write "</td><td class=tablebody1 align=center width=""120"">"
    response.write "by "&tempstr(0)&""
    response.write "</td></tr>"
    next
    response.write "<tr><td width=""100%"" height=""24"" background=""17snow/catb.gif"" colspan=4></td></tr></table>"

    end sub
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    17.投票
    <%
    toupiao()
    sub toupiao()
    dim rs,sql,i,n,ds,tempstr,votetotal
    i=0
    n=5 '投票调用个数
    sql="select top "&n&" * from Dv_topic where isvote=1 order by topicid desc"
    set rs=Dvbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    else
    response.write "<table height =110 align=left>"
    response.write "<tr><td width=300 align=center><b>社区最新投票</b></td><td width=90 align=center><b>发布人</b></td><td width=56 align=right><b>参与数</b></td></b></tr>"
    response.write "<tr><td colspan=4 height=30 align=center valign=middle>目前还没有人发布投票!</td></tr>"
    response.write "<tr><td></td></tr></table>"
    exit sub
    end if
    rs.close:set rs=nothing
    'response.write "<table height =110 align=left>"
    response.write "<UL class=ul1>"
    For i=0 To Ubound(SQL,2)
    tempstr=Split(sql(4,i),"$")
    response.write "<li>"
    response.write "<a href=dispbbs.asp?boardid="&sql(2,i)&"&id="&sql(0,i)&" target=""_blank"">"
    response.write ""&left(sql(1,i),50)&""
    response.write "</a>"
    response.write "<b>"&sql(11,i)&"</b> 票"
    response.write "</li>"

    next
    response.write "</ul>"
    end sub
    %>
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    --------------------------------------------------------------------------------------------
    18.其中一个小论坛板块排行
    <%
    myboard()
    sub myboard()
    dim rs,sql,i,n
    n=5 '板块排行调用个数
    i=0
    sql="select top "&n&" boardid,boardtype,depth,postnum from [dv_board] where depth<>0 and boardid>23 and boardid<29 order by postnum desc"
    set rs=Dvbbs.Execute(sql)
    If Not RS.Eof then
    SQL=Rs.GetRows(-1)
    else
    response.write "<table cellspacing=1 cellpadding=5 align=center>"
    response.write "<tr><th align=left height=24 colspan=3 >热门版块排行</th></tr>"
    response.write "<tr><td class=tablebody1 colspan=3>论坛无板块</td></tr>"
    response.write "</table>"
    exit sub

    end if
    rs.close:set rs=nothing
    response.write "<TABLE class=tb1 cellSpacing=0 cellPadding=0 width='96%' border=0><TBODY>"
    response.write "<TR><TD class=td1>名次</TD><TD class=td1>版名</TD><TD class=td1>人气</TD></TR>"
    For i=0 To Ubound(SQL,2)
    response.write "<tr>"
    response.write "<TD class=td2>"
    response.write ""&i+1&"<IMG src='bbshome/ico_ar_2.gif'>"
    response.write "</td>"
    response.write "<td>"
    response.write "<a href=index.asp?boardid="&sql(0,i)&" target=""_blank"" title=""进入板块浏览"" class=bankuai>"
    response.write ""&sql(1,i)&""
    response.write "</a></td>"
    response.write "<td align=middle>"
    response.write ""&sql(3,i)&""
    response.write "</td></tr>"
    next
    response.write "</TBODY></TABLE>"
    end sub
    %>


    支持(0中立(0反对(0回到顶部