留言簿改进：记录昵称和邮箱……-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2472 查看	4 回复

主题：留言簿改进：记录昵称和邮箱…… [收藏主题]

转到：

wuchang 当前离线

162 主题	0 广播	0 粉丝

级别:一年级

用户积分:625 分
登录次数:27 次
注册时间:2006/10/19
最后登录:2008/6/3

wuchang 发表于：2006/12/4 23:12:00 | 只看该作者查看该作者主题楼主

做线上考试培训就选#科汛网校

留言簿是让没有注册的游客使用的交流工具，这个是一个很重要的一个方面的意见来源。但是留言要游客反复的输入昵称，邮箱……这样又会少了很多意见来源。所以需要方便他们，我建议添加以下功能

找到GuestBook目录

1打开Guestbook.asp

找到

Public Sub Execute()
GuestNum=KSCMS.GetConfig("GuestNum")
GuestCheckTF=KSCMS.GetConfig("GuestCheckTF")

在这下面增加

dim Forum_sn,Name,Email,HomePage,Oicq
Forum_sn="GuestBook"
Name = Request.Cookies(Forum_sn)("Name")
Email = Request.Cookies(Forum_sn)("Email")
HomePage = Request.Cookies(Forum_sn)("HomePage")
Oicq = Request.Cookies(Forum_sn)("Oicq")

2打开GuestBook_Save.asp文件

找到

   RSObj("GuestIP") = IP
   RSObj("AddTime") = Now()
   RSObj.Update
   RSObj.Close
   Set RSObj = Nothing

在这下面增加

dim Forum_sn
Forum_sn="GuestBook"
Response.Cookies(Forum_sn)("Name") = KSCMS.HTMLEncode(Name)
Response.Cookies(Forum_sn)("Email") = KSCMS.HTMLEncode(Email)
Response.Cookies(Forum_sn)("HomePage") = KSCMS.HTMLEncode(HomePage)
Response.Cookies(Forum_sn)("Oicq") = KSCMS.HTMLEncode(Oicq)
Response.Cookies(Forum_sn).Expires=Date+31

一分钟快速开通线上知识店铺