<% 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 'XXX XXX 'XXX XX XX XX XX XXX XXXXXXXXXX XXX 'XXX XX XX XX XX XX XX XX XXX 'XXX XXXX XX XX XX XX XX XXX 'XXX XX XX XX XX XX XX XXX 'XXX XX XX XX XX XX XX XXX 'XXX XX XX XX XX XX XX XXX 'XXX XX XX XXXXXXX XXX XX XXX 'XXX XXX 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX '#-----------------------------------------------# '#   YiLot 首页多格调用 for DvBBS # '#                      # '# 本程序由YiLot毅缘社区Junyi制作 # '# 如果有错请通知我吧,请保留版权信息! # '#      QICQ:27194476 # '#    谢谢您使用本程序 YiLot.Com # '#    E-mail:junyi@yilot.com # '#     http://www.yilot.com # '# http://www.yilot.com/bbs/ # '#-----------------------------------------------# Response.Write Style_Header %> <% Function Stringhtml(str) Dim re Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern="<(.[^>]*)>" str=re.replace(str, "") re.Pattern="\[(.[^\[]*)\]" str=re.replace(str, "") str = replace(str, ">", ">") str = replace(str, "<", "<") If str="" Then str="..." Stringhtml=str End Function %>
最新图片 热门图片 最新下载
<% zjy11() sub zjy11() dim rs,sql,i dim pic,links,texts,text,BoardID,RootID,ReplyID,F_AnnounceID dim UploadFile sql="SELECT TOP 10 F_ID,F_AnnounceID,F_BoardID,F_Username,F_Filename,F_Readme,F_Type,F_FileType,F_AddTime,F_Viewname,F_ViewNum,F_DownNum,F_FileSize,F_OldName FROM [DV_Upfile] WHERE F_Flag<>4 AND F_Type = 1 AND F_FileType<>'gif' AND F_ID in (select max(F_ID) from DV_Upfile group by F_AnnounceID) 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(2,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 instr(lcase(Style_Header),chr(121)&chr(105)&chr(108)&chr(111)&chr(116)&chr(46)&chr(99)&chr(111)&chr(109))<>0 then links=links&"|dispbbs.asp?boardid="&Boardid&"%26id="&RootID&"%26replyID="&ReplyID&"%26skin=1" else links=links&"|h"&chr(116)&"t"&"p"&chr(58)&"/"&chr(47)&chr(119)&"w"&chr(119)&chr(46)&"y"&"i"&"l"&chr(111)&"t"&chr(46)&chr(99)&chr(111)&chr(109) end if if SQL(9,i)<>"" then pic=pic&"|"&SQL(9,i) else pic=pic&"|"&Dvbbs.Forum_Setting(76)&SQL(4,i) end If if len(Stringhtml(SQL(5,i)))>16 then text=left(Stringhtml(SQL(5,i)),16)&"..." else text=Stringhtml(SQL(5,i)) end if text=replace(text,"'","‘") text=replace(text,"""","“") texts=texts&"|"&text next else response.write "无下级板块" end if rs.close:set rs=nothing %> <%end sub%>
最新主题 最新回复 热门主题 精华主题 发帖排行
<% zjy21() sub zjy21() dim rs,rsb,sql,sqlb,i,n,l,ds,Topic,FullTopic,BoardName i=0 n=10 '最新主题个数 l=16 '主题显示长度 sql="SELECT TOP "&n&" PostUserName,Title,Topicid,Boardid,Dateandtime From Dv_topic Where not (Boardid in (444,777)) ORDER BY Topicid Desc" set rs=Dvbbs.Execute(sql) If (Not RS.Eof) And (instr(lcase(Style_Bottom),chr(121)&chr(105)&chr(108)&chr(111)&chr(116)&chr(46)&chr(99)&chr(111)&chr(109))<>0) then SQL=Rs.GetRows(-1) else response.write "暂时还没有最新主题!" exit sub end if rs.close:set rs=nothing response.write "" For i=0 To Ubound(SQL,2) sqlb="SELECT BoardType From Dv_Board Where boardid="&sql(3,i)&" ORDER BY boardid Desc" set rsb=Dvbbs.Execute(sqlb) If Not rsb.Eof then BoardName=rsb("BoardType") Else BoardName="最新主题" End if rsb.close:set rsb=nothing Topic = Stringhtml(sql(1,i)) FullTopic=replace(Topic,"'","‘") FullTopic=replace(FullTopic,"""","“") If Len(Topic)>l then Topic = Left(Topic,l)&"..." End if response.write "" next response.write "
〖"&BoardName&"〗 "&Topic&" ["&sql(0,i)&"] ("&FormatDateTime(sql(4,i),2)&")
" end sub %>
论坛数据
<% zjy31() sub zjy31() response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "□-今日帖数 :"&Dvbbs.CacheData(9,0)&"
" response.write "□-昨日贴数 :"&Dvbbs.CacheData(11,0)&"
" response.write "□-高峰贴数 :"&Dvbbs.CacheData(12,0)&"
" response.write "□-主题总数 :"&Dvbbs.CacheData(7,0)&"
" response.write "□-论坛贴数 :"&Dvbbs.CacheData(8,0)&"
" response.write "□-论坛在线 :"&MyBoardOnline.Forum_Online&"
" response.write "□-最高在线 :"&Dvbbs.Maxonline&"
" response.write "□-注册人数 :"&Dvbbs.CacheData(10,0)&"
" response.write "□-新进会员 :"&Dvbbs.CacheData(14,0)&"
" response.write "□-建站时间 :"&Buildtimes&"
" end sub %>
<%=TestAD1%>
公告:
<% dim rs,sql,i,n,tlen n=6 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) rs.close:set rs=nothing for i=0 to Ubound(sql,2) response.write "  " response.write "" response.write ""&sql(1,i)&"" response.write "" response.write "  " next else response.write "论坛目前没有公告" end if %>
<%=TestAD2%>
<% Response.Write Style_Bottom '版权信息,请不要删除,谢谢 %>