科讯CMS修改生成栏目页和内容页是的总路径

函数名：RefreshContent
作  用：刷新内容页面
参  数： 无

……………………
     sFname = Trim(Node.SelectSingleNode("@fname").text)
     FExt   = Mid(sFname, InStrRev(sFname, ".")) '分离出扩展名
     Fname = Replace(sFname, FExt, "")  '分离出文件名 如 2005/9-10/1254ddd
    
     FilePathAndNameTemp =KS.LoadFsoContentRule(ModelID,Tid,ItemId)
     Dim ShowUrl:ShowUrl=KS.LoadInfoUrl(ModelID,Tid,"",ItemId)
     FilePathAndName = FilePathAndNameTemp & sFname
     FilePath = Replace(FilePathAndName, Mid(FilePathAndName, InStrRev(FilePathAndName, "/")), "")
    
     Call KS.CreateListFolder(FilePath)

函数名：RefreshFolder
作  用：刷新栏目页面
参  数：RS Recordset数据集

If RS("ClassType")="3" Then
     Dim FsoName:FsoName = Mid(FilePath, InStrRev(FilePath, "/")) '分离出扩展名
     Call KS.CreateListFolder(Replace(FilePath,FsoName,""))
Else
     Dim FsoFolder:FsoFolder=FilePath
     If Instr(Index,"/")<>0 Then
       FsoFolder=FsoFolder & Replace(Trim(Index), Mid(Trim(Index), InStrRev(Trim(Index), "/")), "")
End If
        Call KS.CreateListFolder(FsoFolder)