Function LoadFsoContentRule(ChannelID,ClassID) on error resume next Dim FsoContentRule:FsoContentRule=C_S(ChannelID,43) FsoContentRule=Replace(FsoContentRule,"{$ChannelEname}",Split(C_C(ClassID,2),"/")(0)) FsoContentRule=Replace(FsoContentRule,"{$ClassDir}",C_C(ClassID,2)) FsoContentRule=Replace(FsoContentRule,"{$ClassID}",C_C(ClassID,9)) FsoContentRule=Replace(FsoContentRule,"{$ClassEname}",Split(C_C(ClassID,2), "/")(C_C(ClassID,10)- 1)) FsoContentRule=Replace(Setting(3) & C_S(ChannelID,8),"//","/") & FsoContentRule LoadFsoContentRule=FsoContentRule End Function Function LoadInfoUrl(ChannelID,ClassID,Fname) If C_C(ClassID,4)<>"" Then LoadInfoUrl=GetFolderPath(ClassID) & Fname Else LoadInfoUrl=Setting(2) & LoadFsoContentRule(ChannelID,ClassID) & Fname End If End Function