账号通
    

账号  

密码  

3187

查看

6

回复
主题:[分享]就 6 行代码实现:采集时候,手机版同时生成内容页,干货哟 [收藏主题] 转到:  
esharp 当前离线

508

主题

14

广播

32

粉丝
添加关注
级别:五年级

用户积分:1419 分
登录次数:530 次
注册时间:2011/6/24
最后登录:2019/8/21
esharp 发表于:2017/4/4 9:38:22   | 只看该作者 查看该作者主题 楼主 
科汛在线网校系统
点击查看原图
========================================================

准备:找到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处函数,有点儿多,试试看,如果没有错误了,分享出来。


点击查看原图

**************************************************************************
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
浮生如梦 当前离线

118

主题

5

广播

1

粉丝
添加关注
级别:一年级

用户积分:329 分
登录次数:188 次
注册时间:2017/3/14
最后登录:2024/2/3
浮生如梦 发表于:2017/4/4 11:18:15   | 只看该作者 查看该作者主题 沙发 
做在线知识付费 选科汛云开店
绝对干货。支持楼主!
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
otbbs 当前离线

1605

主题

12

广播

2

粉丝
添加关注
级别:高一年

用户积分:8980 分
登录次数:1225 次
注册时间:2006/8/7
最后登录:2023/11/29
otbbs 发表于:2017/4/5 10:29:42   | 只看该作者 查看该作者主题 藤椅 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
amin8010 当前离线

803

主题

24

广播

10

粉丝
添加关注
级别:七年级

用户积分:2596 分
登录次数:736 次
注册时间:2008/9/18
最后登录:2021/8/30
amin8010 发表于:2017/4/6 0:38:27   | 只看该作者 查看该作者主题 板凳 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
eyan 当前离线

301

主题

7

广播

3

粉丝
添加关注
级别:二年级

用户积分:966 分
登录次数:225 次
注册时间:2011/5/1
最后登录:2023/6/26
eyan 发表于:2017/4/6 5:59:36   | 只看该作者 查看该作者主题 报纸 
做在线知识付费 选科汛云开店
绝对干货。支持楼主!亲一亲
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
mbaun 当前离线

1138

主题

4

广播

1

粉丝
添加关注
级别:八年级

用户积分:6229 分
登录次数:342 次
注册时间:2006/4/4
最后登录:2023/2/2
mbaun 发表于:2017/4/6 9:56:25   | 只看该作者 查看该作者主题 地板 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
网络精灵 当前离线

139

主题

6

广播

1

粉丝
添加关注
级别:一年级

用户积分:719 分
登录次数:39 次
注册时间:2013/10/7
最后登录:2019/9/12
网络精灵 发表于:2017/4/9 16:54:53   | 只看该作者 查看该作者主题 7楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.34766秒 powered by KesionCMS 9.0