if rsList.Fields("status")="close" then
'主题封闭
Response.Write "<tr><td bgColor=#f7f7f7><img
src=http://www.163design.net/a/q/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=http://www.163design.net/a/q/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=http://www.163design.net/a/q/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)