准备：找到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的有亿亿万万的群体，本人提供这种思路，可以减少很多工作量，给大家带来方便。
lan988 级别:管理员 + 关注 收藏
支持(0) | 
反对(0)原内容
顶端 
底部 
