前几天蚊子在PJ论坛上发表了一篇关于访客信息保存的文章(利用cookies),原文基于PJ官方版本发布,因此只能保存访客(游客)的用户名。修改主要包括两个部分,其一针对博客文章的评论,其二针对博客动态留言板的留言。在拿到修改代码之后,当天晚上自己改了一下,在动态留言板下完成了可以保存访客用户名、邮箱、网址的更改升级。但在全静态日志模式下访客评论遇到了麻烦,经过前天、昨天两个晚上自己摸索无果后,今天终于找到一位热心博主海天无影(http://htwy.org.ru/),在他的指导下,再经过两人合作最终完成了静态日志评论访客信息保存功能代码修改。在此,谨对海天表示衷心的感谢。
这里,将完整的修改方法贴上来。
注:本文仅适用于在戒聊的访客信息收集基础上修改,采用其他方式收集访客信息的本文仅供参考,请勿完全照搬。
1,打开blogcomm.asp
搜索

下面加入

Response.Cookies(CookieName)("postusername") = username
Else
Response.Cookies(CookieName)("postusername") = ""
End If
If request.Form("keepinfo") = 1 then
Response.Cookies(CookieName)("postemail") = email
Else
Response.Cookies(CookieName)("postemail") = ""
End If
If request.Form("keepinfo") = 1 then
Response.Cookies(CookieName)("postsiteurl") = tsiteurl
Else
Response.Cookies(CookieName)("postsiteurl") = ""
End If
2,打开 class\cls_article.asp
搜索

替换为

response.write ("value="""&memName&""" readonly=""readonly""")
ElseIf Request.Cookies
response.write ("value="""&Request.Cookies(CookieName)("postusername")&"""")
End if%>
搜索

在后面添加

response.write ("value="""&memName&""" readonly=""readonly""")
ElseIf Request.Cookies(CookieName)("postemail") <> "" Then
response.write ("value="""&Request.Cookies(CookieName)("postemail")&"""")
End if%>
搜索

在后面添加

response.write ("value="""&memName&""" readonly=""readonly""")
ElseIf Request.Cookies(CookieName)("postsiteurl") <> "" Then
response.write ("value="""&Request.Cookies(CookieName)("postsiteurl")&&#
34;""")
End if%>
搜索

在下面添加

3,如果你一样用的全静态,现在需要修改静态模版文件Template/static.htm,这一步步骤与蚊子的方法一致,只是showcookie.asp文件内容不一样。
搜索

在下面添加

搜索

在上面添加

下载showcookie.asp放在根目录,然后到后台重新输出所有日志并更新缓存。
再来看动态留言板(GuestBook插件)留言的访客信息如何保存。
4,打开Plugins\GuestBook\bookaction.asp文件
搜索

在下面添加

Response.Cookies(CookieName)("postusername") = username
Else
Response.Cookies(CookieName)("postusername") = ""
End If
If request.Form("keepinfo") = 1 then
Response.Cookies(CookieName)("postemail") = email
Else
Response.Cookies(CookieName)("postemail") = ""
End If
If request.Form("keepinfo") = 1 then
Response.Cookies(CookieName)("postsiteurl") = tsiteurl
Else
Response.Cookies(CookieName)("postsiteurl") = ""
End If
5,打开Plugins\GuestBook\guestbook.asp文件
搜索

替换为

response.write ("value="""&memName&""" readonly=""readonly""")
ElseIf Request.Cookies(CookieName)("postusername") <> "" Then
response.write ("value="""&Request.Cookies(CookieName)("postusername")&"""")
End if%>
搜索

在后面添加

response.write ("value="""&memName&""" readonly=""readonly""")
ElseIf Request.Cookies(CookieName)("postemail") <> "" Then
response.write ("value="""&Request.Cookies(CookieName)("postemail")&"""")
End if%>
搜索

替换为

说明:如果不把其中的网址初始赋值"http://"删除,cookie中的访客信息只能保存为"http://",不能保存访客填写的完整网址,但这一赋值在blogcomm.asp文件中对cookie不产生影响。
然后,在后面添加

response.write ("value="""&memName&""" readonly=""readonly""")
ElseIf Request.Cookies(CookieName)("postsiteurl") <> "" Then
response.write ("value="""&Request.Cookies(CookieName)("postsiteurl")&"""")
End if%>
搜索

在下面添加

至此,全部改造工作完成,大家的博客在访客反馈时将更加简便、快捷!
转载请尊重版权,出处:秋天博客 本文链接: https://www.cfresh.net/pc-tech/213
去银行刚回来,论坛上看到了,多谢兄弟了。