站长论坛

 找回密码
 注册
查看: 3215|回复: 7

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

[复制链接]
 楼主| 发表于 2006-12-25 02:39:02 | 显示全部楼层 |阅读模式
  在论坛首页版块上面上调用新帖热帖,可以随时查看论坛的最新发帖。

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

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

的下面加上一行代码:

ShowNewHot()

2、 在最后面的:

%>

的上面加上:
  1. Function ShowNewHot()
  2. 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>"
  3. End Function
  4. Function GetNewTopic(flag,Num)
  5. Dim Rs,Sql,Noshow,i,S
  6. Noshow=BBS94KK.NoShowTopic()
  7. If BBS94KK.Cache.valid("IndexNewTopic"&Flag) then
  8.   GetNewTopic=BBS94KK.Cache.Value("IndexNewTopic"&Flag)
  9. Else
  10.   If Noshow="" Then NoShow="0"
  11.   S="":I=0
  12.   If Flag=1 Then
  13.   Sql="select TopicID,Name,Face,Caption,boardid,lasttime,SqlTableID From [KK_topic] where isdel=0 And BoardID not in("&Noshow&")  order by lasttime DESC"
  14.   Else
  15.   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"
  16.   End If
  17.   Set Rs=BBS94KK.Execute(Sql)
  18.   Do while not Rs.eof
  19.   I=I+1
  20.   If I>Int(Num) Then Exit Do
  21.   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>"
  22.   Rs.movenext
  23.   Loop
  24.   Rs.Close
  25.   GetNewTopic="<table width=&#39;100%&#39; border=&#39;0&#39; cellspacing=&#39;0&#39; cellpadding=&#39;0&#39;>"&S&"</table>"
  26.   BBS94KK.Cache.add "IndexNewTopic"&Flag,GetNewTopic,dateadd("n",20,now)
  27. End If
  28. End Function
复制代码
3、最后为了使每次发帖刷新缓存,在SaySave.asp的大约290行处找到:

Session(CacheName & "MyInfo") = Empty

在下面加上:

BBS94KK.Cache.clean("IndexNewTopic1")
BBS94KK.Cache.clean("IndexNewTopic2")
发表于 2007-1-4 12:44:38 | 显示全部楼层
用了,可以!
发表于 2007-1-4 12:46:32 | 显示全部楼层
谢谢!
 楼主| 发表于 2007-1-4 13:38:07 | 显示全部楼层
不客气,请多支持!
发表于 2009-11-19 14:14:22 | 显示全部楼层
联系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多项艺术表演】。更多精彩景观期待您的发现!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

快速回复 返回顶部 返回列表