6 行代码实现：采集时候，手机版同时生成内容页-玄门社区-风水自学网

402 查看	0 回复

主题：6 行代码实现：采集时候，手机版同时生成内容页 [收藏主题]

lan988 当前离线

288 主题	210 广播	31 粉丝

级别:管理员

用户积分:182 分
登录次数:1101 次
注册时间:2007-3-30
最后登录:2024-11-27
论坛高手

lan988 发表于：2023-12-7 1:23:05 | 只看该作者查看该作者主题楼主

准备：找到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的有亿亿万万的群体，本人提供这种思路，可以减少很多工作量，给大家带来方便。

分享到

专业从事风水，命理，择日，取名等。

本站是提供个人知识管理的网络存储空间，所有非本站原创内容均由用户发布，不代表本站观点。如发现有害或侵权内容，请点击这里举报

支持(0) |

反对(0)

顶端

底部

＜下一主题 | 上一主题＞

<< 返回列表

首页 1