保持自定义文件名不加前缀（网站改版自定义长文件名有用）

kesion.commoncls.asp 1189行

添加一个去前缀函数

Function LoadFsoContentRule2(ChannelID,ClassID,InfoID)

   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,"{$InfoID}",InfoID)

        FsoContentRule=Replace(FsoContentRule,"{$ClassEname}",Split(C_C(ClassID,2), "/")(C_C(ClassID,10)- 1))

FsoContentRule=Replace(Setting(3) & C_S(ChannelID,8),"//","/")

LoadFsoContentRule2=FsoContentRule

End Function

之后把loadinfoUrl函数改写如下即可，其中len(Fname)>15判断文件名长度：

     Function LoadInfoUrl(ChannelID,ClassID,Fname,InfoID)

  If C_C(ClassID,4)<>"" Then

   LoadInfoUrl=GetFolderPath(ClassID) & Fname

  Elseif len(Fname)>15 Then

   LoadInfoUrl=Setting(2) & LoadFsoContentRule2(ChannelID,ClassID,InfoID) & Fname

Else

LoadInfoUrl=Setting(2) & LoadFsoContentRule(ChannelID,ClassID,InfoID) & Fname

  End If

End Function