在5.0   5.2   5.3 版本中

下载频道的评论都是错误的！

技术信息（用于支持人员）

• 错误类型：
  (0x80020009)
  发生意外。
  /plus/Comment.asp, 第 154 行
  

• 浏览器类型：
  Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; TencentTraveler 4.0)

• 网页：
  GET /plus/Comment.asp

http://localhost/plus/Comment.asp?ChannelID=3&InfoID=204

Sub CommentMain
 Dim KSRCls,FileContent
 Set KSRCls = New Refresh
 FCls.RefreshType = "Comment" '设置刷新类型，以便取得当前位置导航等

 if KS.C_S(ChannelID,15)="" then response.write "请先到模型设置里绑定评论页模板!":exit sub
 FileContent = KSRCls.LoadTemplate(KS.C_S(ChannelID,15))
 If Trim(FileContent) = "" Then FileContent = "模板不存在!"
   FileContent = KSRCls.ReplaceGeneralLabelContent(FileContent) '替换通用标签
   FileContent = KSRCls.ReplaceLableFlag(KSRCls.ReplaceAllLabel(FileContent))
 FileContent=Replace(FileContent,"{$GetShowComment}","<script src=""" & domainstr & "ks_inc/Comment.page.js"" language=""javascript""></script><script language=""javascript"" defer>Page(1," & ChannelID & ",'" & InfoID & "','Show','"& domainstr & "');</script><div id=""c_" & InfoID & """></div><div id=""p_" & InfoID & """ align=""right""></div>")

 if channelid<>8 then
 if conn.execute("select comment from " & KS.C_S(ChannelID,2) & " Where ID=" & InfoID)(0)=0 then response.write "<script>alert('对不起，不允许评论 ！');window.close();</script>":response.End()
 end if