在模型管理中，有些模板本想控制只可PC访问，3G下不显示，但这个目前有BUG，目前如果不想在3G下显示，只能是关闭模型，一但关闭，PC下也就无法显示了。原来的模型开关和3G开关本意就是分别控制的，但是目前无效。

修改方法如下：

第一步：打开KS_Cls\Kesion.CommonCls.asp文件（第二行）：

找到：Const ModelField="ChannelID,ChannelName,ChannelTable,ItemName,ItemUnit,FieldBit,BasicType,FsoHtmlTF,FsoFolder,RefreshFlag,ModelEname,MaxPerPage,VerificCommentTF,CommentVF,CommentLen,CommentTemplate,UserSelectFilesTF,InfoVerificTF,UserAddMoney,UserAddPoint,UserAddScore,ChannelStatus,CollectTF,UpFilesTF,UpFilesDir,UpFilesSize,UserUpFilesTF,UserUpFilesDir,AllowUpPhotoType,AllowUpFlashType,AllowUpMediaType,AllowUpRealType,AllowUpOtherType,SearchTemplate,ChargeType,FsoListNum,UserTF,DiggByVisitor,DiggByIP,DiggRepeat,DiggPerTimes,UserClassStyle,UserEditTF,FsoContentRule,FsoClassListRule,FsoClassPreTag,ThumbnailsConfig,LatestNewDay,StaticTF,PubTimeLimit,AnnexPoint,ModelIco,ModelShortName"  rem 定义载入缓存的模型字段

改为：Const ModelField="ChannelID,ChannelName,ChannelTable,ItemName,ItemUnit,FieldBit,BasicType,FsoHtmlTF,FsoFolder,RefreshFlag,ModelEname,MaxPerPage,VerificCommentTF,CommentVF,CommentLen,CommentTemplate,UserSelectFilesTF,InfoVerificTF,UserAddMoney,UserAddPoint,UserAddScore,ChannelStatus,CollectTF,UpFilesTF,UpFilesDir,UpFilesSize,UserUpFilesTF,UserUpFilesDir,AllowUpPhotoType,AllowUpFlashType,AllowUpMediaType,AllowUpRealType,AllowUpOtherType,SearchTemplate,ChargeType,FsoListNum,UserTF,DiggByVisitor,DiggByIP,DiggRepeat,DiggPerTimes,UserClassStyle,UserEditTF,FsoContentRule,FsoClassListRule,FsoClassPreTag,ThumbnailsConfig,LatestNewDay,StaticTF,PubTimeLimit,AnnexPoint,ModelIco,ModelShortName,WapSwitch"  rem 定义载入缓存的模型字段

其实是加入了一个原来没有的WapSwitch字段，这个原来应该是忘了加上了。

第二步：打开\3g\include\function.asp文件27行：也就是下面这个函数：

'频道列表
Sub GetModelList()
If not IsObject(Application(KS.SiteSN&"_ChannelConfig")) Then KS.LoadChannelConfig
Dim ModelXML,Node,Str
Set ModelXML=Application(KS.SiteSN&"_ChannelConfig")
For Each Node In ModelXML.documentElement.SelectNodes("channel")
   if Node.SelectSingleNode("@ks21").text="1"AND (Node.SelectSingleNode("@ks6").text<4 OR Node.SelectSingleNode("@ks6").text="5"  OR Node.SelectSingleNode("@ks6").text="8" OR Node.SelectSingleNode("@ks6").text="9") Then
      
   Str=Str & "<li><a href=""channel.asp?id=" &Node.SelectSingleNode("@ks0").text &"""><img src=""" & KS.GetDomain & "3g/images/ico/" &Node.SelectSingleNode("@ks0").text &".gif""></a><a href=""channel.asp?id=" &Node.SelectSingleNode("@ks0").text &""">" & Node.SelectSingleNode("@ks1").text &"</a></li>"
   End If
next
F_C=Replace(F_C,"{$GetModelList}",STR)
End Sub

'把上面这个函数的红色ks21修改为ks53，然后更新一下缓存，则BUG修复完成！

'至此，模型才真正有了PC下和3G下分别控制的实际功能。（原来这个控制失效）

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

相关文章：KesionCMS模板仿腾讯QQ图片新闻系统独立插件(科汛8.X-9.X版通用）