========================================================

准备：找到admin\plus\Plus_Collect\Collect_ItemCollecFast.asp

Dream里面查找：Call KSRObj.RefreshContent() （这里绝对是唯一）

然后： 将这行注释掉 ： 'Call KSRObj.RefreshContent()

新方法：

刚才有点小问题，官方只判断了 PC栏目页的静态状态，所以再次修改下，如：

If Verific=1 and IntoBase=2 Then '==官方的


'=======================================================这里插入
Dim M_C_ChannelID , C_S_FsoHtmlTF , M_C_FsoHtmlTF '==冉，2017，检查频道是否开启html静态
M_C_ChannelID  = ChannelID
C_S_FsoHtmlTF  = KS.C_S( M_C_ChannelID ,7)
M_C_FsoHtmlTF  = KS.ChkClng(KS.M_C( M_C_ChannelID ,28))
'=======================================================插入结束

  
If (KS.C_S(Channelid,7) = 1 or KS.C_S(ChannelID,7) = 2) OR M_C_FsoHtmlTF > 0 Then '==官方判断里增加OR M_C_FsoHtmlTF > 0
Dim KSRObj:Set KSRObj=New Refresh
Dim DocXML:Set DocXML=KS.RsToXml(RS,"row","root")
Set KSRObj.Node=DocXml.DocumentElement.SelectSingleNode("row")
KSRObj.ModelID=ChannelID
KSRObj.ItemID = KSRObj.Node.SelectSingleNode("@id").text
'Call KSRObj.RefreshContent()
'=======================================================这里增加
IF C_S_FsoHtmlTF > 0 THEN : Fcls.CallFrom3g="false" : Call KSRObj.RefreshContent() '==采集生成PC版内容页(尽管官方已经判断过一次，这还是需要判断并写入false)
IF M_C_FsoHtmlTF > 0 THEN : Fcls.CallFrom3g="true"  : Call KSRObj.RefreshContent() '==采集生成3g版内容页
'=======================================================增加结束
Set KSRobj=Nothing'==官方的
  
End If'==官方的  
End If '==官方的


就可以拉。

说明下：里面申明了几个变量，本来完全可以直接引用，我这里是做了好多处的二次开发，为了我以后方便查找，我是将几处的东东（相同结构的变量）弄成了统一，便于以后查找或使用。您也可以直接使用如：ChannelID，而非：M_C_ChannelID这样赋值。多几个变量，其实也不会有速度和内存上的影响的。


全国上下，会ASP的有亿亿万万的群体，本人提供这种思路，可以减少很多工作量，给大家带来方便。




另：我正在做 3g版本 生成栏目页真静态，改动2处函数，有点儿多，试试看，如果没有错误了，分享出来。




**************************************************************************