 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
这是近来用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=images/lock.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=images/closedb.gif >" & _ "< a href=newsdetail.asp?id=" & rsList.Fields("postid") &_ ">" & rsList.Fields("Subject") & "< /a > < /td >" else Response.Write "< tr >< td bgColor=#f7f7f7 >< img src=images/closed.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").expires=date+365 Session("FirstIn")="yes" else \\\'\\\'刷新，同时说明答应 cookie Session("FirstIn")="no" \\\'\\\'读时间 if not isempty(request.cookies("SessionLoginDT")) then sessionLoginDT=request.cookies("SessionLoginDT") \\\'\\\'sessionlogindt 不合法，一般不存在此问题 if not isdate(sessionLogindt) then sessionlogindt=formatdatetime(now) else sessionLoginDT=cdate(sessionLoginDT) end if else \\\'\\\'没有 sessionlogindt cookie，一般不存在此问题 sessionLoginDT=formatdatetime(now) \\\'\\\'写 sessionLoginDT response.cookies("sessionLoginDT")=sessionLoginDT response.cookies("sessionLoginDT").expires=date+365 end if end if 页面：某讨论区贴子列表：(List.asp) 代码举例： dim sessionLoginDT if not isempty(request.cookies("sessionLoginDT")) then sessionLoginDT=request.cookies("sessionLoginDT") if not isdate(sessionLoginDT) then sessionlogindt=formatdatetime(now) else sessionLoginDT=cdate(sessionLoginDT) end if else \\\'\\\'不存在此cookie,一般不存在此问题 sessionLoginDT=formatdatetime(now) \\\'\\\'写Cookie response.cookies("sessionLoginDT")=sessionLoginDT response.cookies("sessionLoginDT").expires=date+365 end if 返回类别: 教程 上一教程: ASP向NT域中加一个用户 下一教程: JMAIL发信实例，可直接调用 您可以阅读与"论坛中有新贴子功能的实现"相关的教程: · ASP环境下邮件列表功能的实现 （二） · ASP环境下邮件列表功能的实现 （四） · ASP环境下邮件列表功能的实现 (三) · ASP环境下邮件列表功能的实现 （一）（推荐） · ASP环境下邮件列表功能的实现 (四) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
