当前位置: 首页 > 图文教程 > 网络编程 > ASP > 论坛中有新贴子功能的实现

ASP
asp生成三维饼图的函数
ASP下的简洁的多重查询的方法与函数 真不错
发一个ASP的ADODB类代码
A利用ASP小偷和Google实现在线翻译功能的代码
ASP类型网站结合动网论坛会员的方法
Asp下实现多表单域无组件文件上传的实例
asp制作中常用到的函数库集合
易心asp分页类 v1.0
asp中xmlhttp组件发包
检测是否为数字类型的asp代码
可以获得文件的文件名的asp函数
用asp实现访问远程计算机上MDB access数据库文件的方法
用ASP实现写IIS日志的代码
asp在IE浏览器中下载服务端上的各类文件的实现方法
asp汉字中文图片验证码的实现代码
asp WAP获取手机终端信息的一段代码
asp取得数组中的最大值的方法
用asp实现的截取指定格式字符串的代码
asp jmail发邮件 详细解析
ASP编程中连接数据库和数据库操作的常用代码

ASP 中的 论坛中有新贴子功能的实现


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 81 ::
收藏到网摘: n/a

    这是近来用asp改写ubb论坛的体会,不当之处请多多指正可参照chinaasp的网页俱乐部(就是个ubb风格的论坛)ubb论坛有个非常好的特点,就是会标志自您上次访问以来新增的贴子,主要在两个地方:讨论区列表和某一讨论区的帖子列表。通常所用的图形为on.gif,off.gif(讨论区列表),closed.gif,closedb.gif(某一讨论区的贴子列表),其中on.gif,closedb.
gif表示自上次访问后新增或修改过的贴子。  

实现:  
  通过综合使用Session和Cookie变量来实现  
  1、Session变量:firstin, 标识是否第一次进入该页面,还是通过刷新进入该页面  
  2、Cookie变量:这里作了简化,取消了原正式版ubb中的sessionlogin/lastLogin两个Cookie只使用sessionloginDT/lastLoginDT两个Cookie。  
  sessionLoginDT-保存上次登录的时间  
  lastLoginDT-保存本次登录的时间  

原理:  
  取上次登录时间为本此会话时间,并将此时间同讨论区最后一个贴子的时间或某一讨论区各主题的最后时间比较,根据实际情况选择适当的图形,如:  

if rsList.Fields("status")="close" then
   ''主题关闭
   Response.Write "< tr >< td bgColor=#f7f7f7 >< img src="/upload/tech/20091103/20091103101735_76dc611d6ebaafc66cc0879c71b5db5c.gif" >" & _
      "< a href=newsdetail.asp?id=" & rsList.Fields("postid") & _
      ">" & rsList.Fields("Subject") & "< /a > < /td >"
else
   ''Lastly为主题的post时间
   if rsList.Fields("Lastly")>sessionLoginDT then
      Response.Write "< tr >< td bgColor=#f7f7f7 >< img src="/upload/tech/20091103/20091103101735_170c944978496731ba71f34c25826a34.gif" >" & _
         "< a href=newsdetail.asp?id=" & rsList.Fields("postid") &_
         ">" & rsList.Fields("Subject") & "< /a > < /td >"
    else
      Response.Write "< tr >< td bgColor=#f7f7f7 >< img src="/upload/tech/20091103/20091103101736_e00da03b685a0dd18fb6a08af0923de0.gif" >" &_
         "< a href=newsdetail.asp?id=" & rsList.Fields("postid") &_
         ">" & rsList.Fields("Subject") & "< /a > < /td >"
    end if
end if

页面:讨论区列表(default.asp)  
代码片段:

if isempty(Session("FirstIn")) then
   ''第一次进入或不允许使用 Cookie
   ''取上次访问时间并赋值给 sessionLoginDT
   if not isempty(request.cookies("lastLoginDT")) then
      sessionLoginDT=request.cookies("lastLoginDT")
      if not isdate(sessionLogindt) then
         sessionlogindt=formatdatetime(now)
      else
         sessionLoginDT=cdate(sessionLoginDT)
      end if
   else
      sessionLoginDT=formatdatetime(now)
   end if
   ''写 cookies
   ''写 sessionLoginDT
   response.cookies("sessionLoginDT")=sessionLoginDT
   response.cookies("sessionLoginDT").expires=date+365
   response.cookies("lastLoginDT")=lastLoginDT
   response.cookies("lastloginDT"