内容页评论、完整显示评论、评论风格自定义解决方案

演示：http://www.3zj.net/Article/jcww/200508/637.html

使用方法：

调用文件：CommentJS.asp

调用方法：<script language='javascript' src='{$InstallDir}{$ChannelDir}/CommentJS.asp?CommentNum=20&ArticleID={$ArticleID}'></script>

其中CommentNum为最多显示条数.

保留PE2005的COMMENT.ASP文件。

下载地址：点击下载

大家有什么建议和要求请跟贴，并希望有人和我一起完善这个评论功能。

说明：

请注重，与以往不同，用的是JS方法而不是框架方法；区分会员与游客；显示字数是不受限制的,而且支持换行，实际前台显示不需要审核，而后台中却区分审核和未审核（假如不区分则和历史评论无法分开，很难找，当年曾深受其苦），方便评论治理：定期检查未审核评论（已在前台显示）是否有危险言论，无则通过，方便查找 。请看游客“测试”发表的评论。代码开放，大家可以改为自己喜欢的风格。

该文件修改于文学路站长ComeOK的4.03用评论页。由于会员部分数据库表结构可能已更改，部分函数也不能再用，所以不能直接将4.03评论页用于PE2005。而且将评论内容写入数据库部分一直未能排除错误，原因未知，故删除而将数据提交给PE2005的评论页处理，因此须保留2005的评论页。

主要改动：

1、舍去数据库写入操作部分。

2、因为会员信息数据库结构已更改，去除对会员具体信息的调用，只给出一个连接。

3、原会员验证函数不能再用，从首页登陆文件UserLogin.asp找到验证函数CheckUserLogined() ，替代。

4、因为PE2005评论数据写入方法可能有改，而我保留了2005的写入，导致原4.03控制显示函数gotTopic(nohtml(rsComment("Content")),500)不能再用（具体原因未知）。另找了一个函数控制：dvHTMLEncode(rsComment("ReplyContent")) 。优点：不限字数，支持换行。

5、显示风格的美化（注重表格效果）。不喜欢这种表格的可去掉。

另外：

(1)sqlComment=sqlComment & " * from PE_Comment where ChannelID=" & ChannelID & " and InfoID=" & ArticleID
& " and Passed=" & PE_True & " order by CommentID desc"中，去掉 & " and Passed=" & PE_True ，并在后台设置栏目：评论需要审核，这样实际显示不需要审核，而后台中却区分审核和未审核，方便评论治理。定期检查未审核评论是否有危险言论，无则通过，方便查找。

假如不喜欢原来的排序方式，改order by CommentID desc 为自己喜欢的排序方式。

要害字DESC（默认）表示按照降序排列。假如你希望以升序排列，那么可以用要害字ASC

(2)要想IP段（游客评论将显示IP）末尾为*号，将 Left(rsComment("IP"), InstrRev(rsComment("IP"),".")) & "*" 替代 rsComment("IP") 即可.

(3)评论完自动返回内容页方法：（感谢