首页 > 计算机应用 > pjblog访客信息保存（为访客留言评论添加cookies功能）升级过程及方法

pjblog访客信息保存（为访客留言评论添加cookies功能）升级过程及方法

2009年5月18日
跳到评论

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

复制内容到剪贴板程序代码程序代码
Session(CookieName&"_LastDo") = "AddComment"

下面加入

复制内容到剪贴板程序代码程序代码
    If request.Form("keepinfo") = 1 then
        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
搜索

复制内容到剪贴板程序代码程序代码
<%if not memName=empty then response.write ("value="""&memName&""" readonly=""readonly""")%>

替换为

复制内容到剪贴板程序代码程序代码
<%if not memName=empty Then
            response.write ("value="""&memName&""" readonly=""readonly""")
            ElseIf Request.Cookies(CookieName)("postusername") <> "" Then
            response.write ("value="""&Request.Cookies(CookieName)("postusername")&"""")
           End if%>

搜索

复制内容到剪贴板程序代码程序代码
<input name="myblogemail" type="text" size="18" class="userpass" maxlength="24"

在后面添加

复制内容到剪贴板程序代码程序代码
<%if not memName=empty Then
              response.write ("value="""&memName&""" readonly=""readonly""")
           ElseIf Request.Cookies(CookieName)("postemail") <> "" Then
           response.write ("value="""&Request.Cookies(CookieName)("postemail")&"""")
           End if%>

搜索

复制内容到剪贴板程序代码程序代码
<input name="myblogsiteurl" type="text" class="userpass" value="http://" size="18" maxlength="24"

在后面添加

复制内容到剪贴板程序代码程序代码
<%if not memName=empty Then
              response.write ("value="""&memName&""" readonly=""readonly""")
            ElseIf Request.Cookies(CookieName)("postsiteurl") <> "" Then
           response.write ("value="""&Request.Cookies(CookieName)("postsiteurl")&&#
34;""")
           End if%>

搜索

复制内容到剪贴板程序代码程序代码
<label for="label7"><input name="log_DisKey" type="checkbox" id="label7" value="1" />禁止自动转换关键字</label>

在下面添加

复制内容到剪贴板程序代码程序代码
<br><label for="label17"><input name="keepinfo" type="checkbox" id="label17" value="1" checked="checked"/>记住我，再次发表不需要重填个人信息。</label>

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

复制内容到剪贴板程序代码程序代码
<label for="label7"><input name="log_DisKey" type="checkbox" id="label7" value="1" />禁止自动转换关键字</label>

在下面添加

复制内容到剪贴板程序代码程序代码
<br><label for="label17"><input name="keepinfo" type="checkbox" id="label17" value="1" checked="checked"/>记住我，再次发表不需要重填个人信息。</label>

搜索

复制内容到剪贴板程序代码程序代码
</body>

在上面添加

复制内容到剪贴板程序代码程序代码
<script type="text/javascript" src="showcookie.asp"></script>

      下载showcookie.asp放在根目录，然后到后台重新输出所有日志并更新缓存。

下载文件 点击下载showcookie.asp

      再来看动态留言板（GuestBook插件）留言的访客信息如何保存。
      4，打开Plugins\GuestBook\bookaction.asp文件
搜索

复制内容到剪贴板程序代码程序代码
'插入数据

在下面添加

复制内容到剪贴板程序代码程序代码
    If request.Form("keepinfo") = 1 then
        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文件
搜索

复制内容到剪贴板程序代码程序代码
<%if not memName=empty then response.write ("value="""&memName&""" readonly=""readonly""")%>

替换为

复制内容到剪贴板程序代码程序代码
<%if not memName=empty Then
              response.write ("value="""&memName&""" readonly=""readonly""")
            ElseIf Request.Cookies(CookieName)("postusername") <> "" Then
            response.write ("value="""&Request.Cookies(CookieName)("postusername")&"""")
           End if%>

搜索

复制内容到剪贴板程序代码程序代码
<input name="myblogemail" type="text" size="18" class="userpass" maxlength="24"

在后面添加

复制内容到剪贴板程序代码程序代码
<%if not memName=empty Then
              response.write ("value="""&memName&""" readonly=""readonly""")
           ElseIf Request.Cookies(CookieName)("postemail") <> "" Then
           response.write ("value="""&Request.Cookies(CookieName)("postemail")&"""")
           End if%>

搜索

复制内容到剪贴板程序代码程序代码
<input name="myblogsiteurl" type="text" class="userpass" value="http://" size="18" maxlength="24"

替换为

复制内容到剪贴板程序代码程序代码
<input name="myblogsiteurl" type="text" class="userpass" size="18" maxlength="24"

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

复制内容到剪贴板程序代码程序代码
<%if not memName=empty Then
              response.write ("value="""&memName&""" readonly=""readonly""")
            ElseIf Request.Cookies(CookieName)("postsiteurl") <> "" Then
           response.write ("value="""&Request.Cookies(CookieName)("postsiteurl")&"""")
           End if%>

搜索

复制内容到剪贴板程序代码程序代码
<label for="label5"><input name="hiddenMsg" type="checkbox" id="label5" value="1" />隐藏留言</label>

在下面添加

复制内容到剪贴板程序代码程序代码
<br><label for="label17"><input name="keepinfo" type="checkbox" id="label17" value="1" checked="checked"/>记住我，再次发表不需要重填个人信息。</label>

      至此，全部改造工作完成，大家的博客在访客反馈时将更加简便、快捷！

转载请尊重版权，出处：秋天博客
本文链接: https://www.cfresh.net/pc-tech/213

计算机应用
«
»
评论 ( 4 )
订阅这里的评论 Trackback 留言
  1. 0point
    0point 6月 2nd, 2009 @ 16:47 | #-31
    回复 引用

    去银行刚回来，论坛上看到了，多谢兄弟了。

  2. 海天无影
    海天无影 6月 2nd, 2009 @ 12:32 | #-32
    回复 引用

    呵呵 帮你赚点IP 我在pj论坛看到有人问评论加网址
    我就给回复这个地址了啊

  3. 0point
    0point 5月 18th, 2009 @ 11:25 | #-33
    回复 引用

    随时欢迎。

  4. 海天无影
    海天无影 5月 18th, 2009 @ 09:56 | #-34
    回复 引用

    呵呵 来转转~

评论提交中, 请稍候...

留言



注意: 您给他人的评论回复将通过邮件通知到对方。

可以使用的标签: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>
Trackbacks & Pingbacks ( 0 )
显示/隐藏 列表
  1. 还没有 trackbacks