<%
Dim pic_BoardID,topStrLen,conlen
pic_BoardID = 0 '设置调用版块首帖图文,0表示论坛首帖图文,
topStrLen = 26 '标题显示长度
conlen = 100 '显示内容文本的长度
%>
        class=TBone align=center>
            >
           
           
           
           
           
       
       

今日头条/font>
<%             Dim TOPID,TOPTitle,TOPConte,TOPBID,srcpos,imgpos,srcend,imgsrc,tmppos             If pic_BoardID = 0 Then                 TOPID = con.execute("select TOP 1 ID from LeadBBS_Topic  Order by ID DESC" )(0)             Else                 TOPID = con.execute("select TOP 1 ID from LeadBBS_Topic Where BoardID=" & pic_BoardID & " Order by RootID DESC" )(0)             End If             TOPBID = con.execute("Select BoardID from LeadBBS_Announce where ID = " & TOPID)(0)             TOPTitle = con.execute("Select Title from LeadBBS_Announce where ID = " & TOPID)(0)             If Len(TOPTitle) > topStrLen/2 Then             If StrLength(TOPTitle) > topStrLen Then                 TOPTitle = LeftTrue(TOPTitle,topStrLen - 3) & "..."             End If                    End If                         TOPConte = con.execute("Select PrintContent from LeadBBS_Announce where ID = " & TOPID)(0)             TOPConte = replace(TOPConte,VbCrLf,"")             imgpos = instr(TOPConte,"            if imgpos > 0 then                 srcpos = instr(imgpos,TOPConte,"src=")                 srcend = instr(srcpos,TOPConte," ")                 imgsrc = " " & Mid(TOPConte,srcpos,srcend-srcpos)                 imgsrc = replace(imgsrc,"../","")             End IF             if instr(TOPConte," 0 then TOPConte = "包含多媒体文件……"             TOPConte = replace(TOPConte," ","")             TOPConte = replace(TOPConte," ","")             'TOPConte = replace(TOPConte,"<","")             'TOPConte = replace(TOPConte,">","")             TOPConte = left(TOPConte,conlen) & "……"             Response.Write "" & TOPTitle & " "             Response.Write ""             if imgsrc = "" then                 Response.Write TOPConte             Else                 Response.Write ""                             End If             Response.Write ""             %>

<%
    If GBL_TableBottomString <> "" Then
        %> border=0 cellspacing=0 cellpadding=0 align=center>

<%=GBL_TableBottomString%>

<%
    End If

%>







一、将文件上传到：bbs/inc/
二、在bbs/boards.asp中找到下面二行：
-----------------------
'Response.Write "fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1)):"&fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1))
'DEF_PageExeTime1=Timer * 1000
-----------------------
下面加入以下代码：
-----------
%>

<%
--------------

三、具体版面、帖子长度等在toppic_fun.asp里设置，有详细说明。

了解更多:
http://www.zhumeng.org/bbs/Announce/Announce.asp?BoardID=1001&ID=10102