|
|
主题: 向大虾求教!急!急!急!急!急!
|
lizhongjun
职务：普通成员
等级：1
金币：0.0
发贴：7
注册：2006/5/21 12:15:46
|
#12006/5/21 13:42:29
我做了一个留言板，我想把看过的留言打上一个对号做标记，怎么实现打上对号和取消对号这个标记啊，请大虾帮忙[font=黑体][/font] 图片如下：  图片如下： 
编辑历史:[此帖最近一次被 lizhongjun 编辑过(编辑时间:2006-05-22 10:12:20)]
|
yiliaocheng
职务：普通成员
等级：2
金币：2.0
发贴：631
注册：2005/12/29 19:33:15
|
#22006/5/21 16:08:29
你要实现的效果可以用SESSION做到。每条留言打开后，你可以设置其ID对应的SESSION值为1，然后在所有留言页加一个判断页，如果SESSION值为1，就输出对号。
|
yiliaocheng
职务：普通成员
等级：2
金币：2.0
发贴：631
注册：2005/12/29 19:33:15
|
#32006/5/21 16:27:23
还有一个方法，可以设计一个表，三个字段，一个自动编号字段，一个字段存放留言ID，一个存放IP，你可以获取IP后与相应的IP比较，相同就输出对号。
|
lizhongjun
职务：普通成员
等级：1
金币：0.0
发贴：7
注册：2006/5/21 12:15:46
|
#42006/5/21 17:30:58
你好大虾能说的详细点吗？我是初级啊，能举个例子吗？多谢了！
|
lizhongjun
职务：普通成员
等级：1
金币：0.0
发贴：7
注册：2006/5/21 12:15:46
|
#52006/5/21 17:32:59
lizhongjun在上个帖子中说
大虾能说得再详细点吗？谢谢，我是asp初级
|
studyASP
职务：普通成员
等级：1
金币：0.0
发贴：44
注册：2006/5/9 20:48:30
|
#62006/5/21 21:08:03
在显示详细页面内加Session(这里写留言的ID比较好)="true"
在列表页面，显示记录的时候加
<%
if Session(刚才的ID)="true" then
Response.write(""&rs.("xxx")&"")
else
Response.write(rs.("xxx"))
end if
%>
|
studyASP
职务：普通成员
等级：1
金币：0.0
发贴：44
注册：2006/5/9 20:48:30
|
#72006/5/21 21:09:30
在显示详细页面内加Session(这里写留言的ID比较好)="true" 在列表页面，显示记录的时候加
<%
if Session(刚才的ID)="true" then
Response.write("[font=黑体]"&rs.("xxx")&"[/font]")
else
Response.write(rs.("xxx"))
end if
%>
刚才哪个font被执行了
|
yiliaocheng
职务：普通成员
等级：2
金币：2.0
发贴：631
注册：2005/12/29 19:33:15
|
#82006/5/21 21:41:57
详细代码为这样的：
在详细留言显示页读记录加：session(""&rs("id")&"")=true //其中rs("id")为留言的ID
在所有留言页显示前加：<%if session(""&rs("id")&"")=true Then response.write"@"
end if%> //你可以将@换成你想显示任何图标。
不过我建议你不要追求这些效果，你直接在CSS里把访问过的连接变换颜色就够了。
|
蓝鲸
职务：版主
等级：5
金币：42.1
发贴：2614
注册：2001/12/20 15:57:57
|
#92006/5/21 23:58:54
以下访问用若名访问
IDs = Request.Cookies("GuestBook")("VistedID")
if Instr("|" & IDs & "|", "|" & cstr(rs("BookID")) & "|") > 0 then
' 作未访问标记
else
' 作已访问标记
end if
Request.Cookies("GuestBook")("VistedID")
格式为： "6|8|12"
访问后
Response.Cookies("GuestBook").Expires = Now() + 365
IDs = Request.Cookies("GuestBook")("VistedID")
if Instr("|" & IDs & "|", "|" & cstr(rs("BookID")) & "|") <= 0 then
if IDs <> "" then
IDs = IDs + "|"
end if
IDs = IDs + rs("BookID")
end if
Response.Cookies("GuestBook").("VistedID") = IDs
如果是登录用户可稍变化一下
IDs = Request.Cookies(登录的用户名&"GuestBook")("VistedID")
编辑历史:[此帖最近一次被 蓝鲸 编辑过(编辑时间:2006-05-22 00:34:10)]
非常大鱼
|
蓝鲸
职务：版主
等级：5
金币：42.1
发贴：2614
注册：2001/12/20 15:57:57
|
#102006/5/22 0:31:00
不过这种方法还是不太好，如果cookie消失，所有ID都是没访问的。
可改用日期来判断，最后访问日期与发布日期相比较
非常大鱼
|
lizhongjun
职务：普通成员
等级：1
金币：0.0
发贴：7
注册：2006/5/21 12:15:46
|
#112006/5/22 9:19:10
各位大虾早上好，看了你们的留言我非常感动，谢谢你们对我的支持！谢谢
|
