Public Sub Kesion()

             Dim FileContent

             Dim MapTemplatePath:MapTemplatePath=KS.Setting(3) & KS.Setting(90) & "map.html"  '模板地址

       FileContent = KSR.LoadTemplate(MapTemplatePath)   

       FCls.RefreshType = "map" '设置刷新类型，以便取得当前位置导航等

       FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签

       Call MapList()

       FileContent=Replace(FileContent,"{$ShowMap}",Maps)

       FileContent=Replace(FileContent,"{$tu_y}",now())‘这句是我加的

       FileContent=KSR.KSLabelReplaceAll(FileContent)

       response.write FileContent

  End Sub

类似于map.asp中这一段的