6.2B 有此问题5.5也有

发帖没法鸟

无奈只能自己扣着代码看

经过半个小时的奋战终于解决了

在Admin\Collect目录下新建一个xxx.asp

写入代码

<%
Function IsNul(Str)
   If Str="" Or IsNull(Str) Then IsNul=True Else IsNul=false
End Function
 
Function HTMLXCode(HtmlStr)
  If Not IsNul(HtmlStr) then
  HtmlStr = Replace(HtmlStr, "&quot;", Chr(34))
  HtmlStr = Replace(HtmlStr, "&#39;", Chr(39))
  HtmlStr = Replace(HtmlStr, "&#123;", Chr(123))
  HtmlStr = Replace(HtmlStr, "&#125;", Chr(125))
  HtmlStr = Replace(HtmlStr, "&#36;", Chr(36))
  HtmlStr = Replace(HtmlStr, "&amp;", "&")
  HtmlStr = Replace(HtmlStr, "&gt;", ">")
  HtmlStr = Replace(HtmlStr, "&lt;", "<")
  HTMLXCode = HtmlStr
  End If
End Function
%>

然后保存

接下来调用

打开Collect_ItemModify5.asp在头部<!--#include file="你刚才保存的.asp"-->

然后找到代码

         NewsArray = Split(NewsArrayCode, "$Array$")
         If HttpUrlType = 1 Then
         NewsUrl = Trim(Replace(HttpUrlStr, "{$ID}", NewsArray(0)))
         Else
         NewsUrl = Trim(KMCObj.DefiniteUrl(NewsArray(0), ListUrl))
         End If

替换为

         NewsArray = Split(NewsArrayCode, "$Array$")
         If HttpUrlType = 1 Then
         NewsUrl = HTMLXCode(Trim(Replace(HttpUrlStr, "{$ID}", NewsArray(0))))
         Else
         NewsUrl = HTMLXCode(Trim(KMCObj.DefiniteUrl(NewsArray(0), ListUrl)))
         End If

这个是测试采集的页面

下面修改正式采集页面

打开Collect_ItemCollecFast.asp在头部<!--#include file="你刚才保存的.asp"-->

找到代码
     NewsUrl = NewsArray(Arr_i)

替换为

     NewsUrl = HTMLXCode(NewsArray(Arr_i))

OK收工

Kesion用着本来不错但是总会有些小问题的

真皮沙发是留给自己做的

累啊

终于可以去开站了

之前俺都考虑想换程序了