2.1论坛首页版块上面的新帖热帖

ＫiＳsル王子

  在论坛首页版块上面上调用新帖热帖，可以随时查看论坛的最新发帖。

1、打开index.asp在第6行处的：

If BBS94KK.Info(20)="1" then ShowInfo()

的下面加上一行代码：

ShowNewHot()

2、 在最后面的：

%>

的上面加上：

2. Function ShowNewHot()
3. BBS94KK.ShowTable"新帖<span style=&#39;margin-left:50%&#39;>热帖</span>","<table width=&#39;100%&#39; border=&#39;0&#39; cellspacing=&#39;0&#39; cellpadding=&#39;0&#39;><tr><td style=&#39;border-right:1px "&BBS94KK.SkinsPIC(0)&" dotted&#39; width=&#39;50%&#39;>"&GetNewTopic(1,5)&"</td><td width=&#39;50%&#39;>"&GetNewTopic(2,5)&"</td></tr></table>"
4. End Function
5. Function GetNewTopic(flag,Num)
6. Dim Rs,Sql,Noshow,i,S
7. Noshow=BBS94KK.NoShowTopic()
8. If BBS94KK.Cache.valid("IndexNewTopic"&Flag) then
9.   GetNewTopic=BBS94KK.Cache.Value("IndexNewTopic"&Flag)
10. Else
11.   If Noshow="" Then NoShow="0"
12.   S="":I=0
13.   If Flag=1 Then
14.   Sql="select TopicID,Name,Face,Caption,boardid,lasttime,SqlTableID From [KK_topic] where isdel=0 And BoardID not in("&Noshow&")  order by lasttime DESC"
15.   Else
16.   Sql="select TopicID,Name,Face,Caption,BoardID,LastTime,SqlTableID From [KK_topic] where isdel=0 And BoardID not in("&Noshow&") And DATEDIFF(&#39;d&#39;,[LastTime],&#39;"&BBS94KK.NowBbsTime&"&#39;)<7 order by ReplyNum DESC"
17.   End If
18.   Set Rs=BBS94KK.Execute(Sql)
19.   Do while not Rs.eof
20.   I=I+1
21.   If I>Int(Num) Then Exit Do
22.   S=S&"<tr><td height=25 width=1><img src=""pic/face/"&Rs("face")&".gif""></td><td><a href=""Show.asp?BoardID="&Rs("BoardID")&"&ID="&Rs("topicid")&"&TB="&Rs("SqlTableID")&""">"&BBS94KK.Fun.StrLeft(Rs("Caption"),40)&"</a></td><td><a href=UserInfo.asp?name="&Rs("Name")&">"&Rs("Name")&"</a></td></tr>"
23.   Rs.movenext
24.   Loop
25.   Rs.Close
26.   GetNewTopic="<table width=&#39;100%&#39; border=&#39;0&#39; cellspacing=&#39;0&#39; cellpadding=&#39;0&#39;>"&S&"</table>"
27.   BBS94KK.Cache.add "IndexNewTopic"&Flag,GetNewTopic,dateadd("n",20,now)
28. End If
29. End Function

复制代码

3、最后为了使每次发帖刷新缓存，在SaySave.asp的大约290行处找到：

Session(CacheName & "MyInfo") = Empty

在下面加上：

BBS94KK.Cache.clean("IndexNewTopic1")
BBS94KK.Cache.clean("IndexNewTopic2")

pa15

用了，可以！

pa15

谢谢！

ＫiＳsル王子

不客气，请多支持！

王谋浩晨

联系QQ:1070459579【慈溪达蓬山门票】咨询/订购电话：137 3883 3132-----蓝天旅游票务竭诚为您服务
慈溪达蓬山门票【80天环游地球世界自然人文主题乐园】订购热线：13738833132
    蓝天旅游票务工作室竭诚为您服务，您的满意是我们永恒的追求！蓝天旅游工作室同时承接宁波及周边地区各景点（合作）旅游、烧烤、团队包车、团队篝火、露营等业务，公司企业团队野外拓展训练、真人cs（彩弹、镭射）等项目，欢迎来电咨询，期待与您的合作！
     ★★★★★★蓝天工作室-----宁波高校旅游第一品牌★★★★★
一 门票价格：
【门票是一票通玩的，里面的游乐设施除了鬼屋等之外，不需要再花一分钱，里面的游乐设施只需要排队上去玩，不需要门票的，你可以随便玩几百次】
主题乐园门票平时、周末、节假日统一价：85元/张（原价100元）
达蓬山套票110元/张（原价130元）包含三个景点：【达蓬山主题乐园】【中华石窗园】【徐福文化宫】
【儿童身高在1.1m以下的免票，身高在1.1---1.4m的儿童半票，身高在1.4m及以上的购成人票】
★★★★★ 专业团队  专业代理   用心服务 ★★★★★
团购优惠，团体出游还可提供来回包车、餐饮等服务！
预售门票，价格优惠，直接入园，无需排队买票或换票，为您省时省心！
蓝天工作室以优异的服务立足于宁波高校旅游行业多年，
诚信做人，诚信生意，热情服务，是您出行的最佳选择！
二、联系方式及交易：
蓝天票务工作室电话：137 3883 3132    宁大短号：543132
蓝天票务工作室地址：宁波大学黄庆苗楼507室
蓝天旅游票务工作室网址:www.taiyuan29.com
客服QQ：1070459579【如QQ不在线，请电话或短信咨询】
三、交通问题:
①宁波出发坐车：【汽车北站】—（中巴车/10元）—【三北镇（达蓬山）】—（三轮或公交）—【乐园门口】；
自驾车：环城北路，走骆驼方向，过收费站，再开10分钟就到。
②余姚出发坐车：可以到汽车北站坐到慈溪，再到东站坐宁波的车到三北，也可以在周巷坐宁波的车到三北；
自驾车：走新建北路，33省道和329国道到慈溪，再走329国道往宁波方向到三北牌楼。
③从慈溪出发的话，可以去慈溪东站坐到宁波的车--11.5元；
自驾车：走329国道往宁波方向走到三北，路边有指示牌。
④【杭州湾大桥---景区】，沈海高速观海卫出口下,走中横线至三北达蓬南路直入,或沈海高速掌起出口下，走329国道至三北达蓬南路直入,约20分钟车程。
⑤【杭州、上海路线】
上海—达蓬山 杭州湾跨海大桥 掌起下 车程1小时45分钟　
杭州—达蓬山 杭甬高速 掌起下 车程 1小时30分钟
   “八十天环游地球”世界自然人文主题乐园由雅戈尔集团斥资10亿倾情打造。乐园位于达蓬山脚下，窖湖湖畔，占地240亩，青山环抱，水天一色，风光旖旎。乐园以游览世界各地地著名建筑、古迹为主线，从中国出发，环游地球一周，最后回到中国。达蓬山主题乐园精心设置了【30多项娱乐项目】、【50多处人文景观】、【10多项艺术表演】。更多精彩景观期待您的发现！