<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%option explicit%> <% '****************************************************************** ' Software name:KesionCMS X1.0 '****************************************************************** Dim KSCls Set KSCls = New SiteMaps KSCls.Kesion() Set KSCls = Nothing Class SiteMaps Private KS, KSR,Maps,ClassXml,ChannelID,ID Private Sub Class_Initialize() If (Not Response.IsClientConnected)Then Response.Clear Response.End End If Set KS=New PublicCls Set KSR = New Refresh End Sub Private Sub Class_Terminate() Call CloseConn() Set KS=Nothing End Sub Public Sub Kesion() ChannelID=114 ID=KS.ChkClng(KS.S("id")) Dim FileContent Dim MapTemplatePath:MapTemplatePath="template/参数.html" '模板地址 FileContent = KSR.LoadTemplate(MapTemplatePath) FCls.RefreshType = "param" '设置刷新类型,以便取得当前位置导航等 FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签 Dim RS:Set RS=Conn.Execute("Select top 1 a.*,ClassPurview,DefaultArrGroupID,DefaultReadPoint,DefaultChargeType,DefaultPitchTime,DefaultReadTimes From " & KS.C_S(ChannelID,2) & " a inner join KS_Class b on a.tid=b.id Where a.ID=" & ID) IF RS.Eof And RS.Bof Then RS.Close:Set RS=Nothing KS.ShowTips "error","您要查看的" & KS.C_S(ChannelID,3) & "已删除。或是您非法传递注入参数!" End IF Dim DocXML:Set DocXML=KS.RsToXml(RS,"row","root") : RS.Close:Set RS=Nothing With KSR Set .Node=DocXml.DocumentElement.SelectSingleNode("row") .Tid=.Node.SelectSingleNode("@tid").text .oTid=.Node.SelectSingleNode("@otid").text Call FCls.SetContentInfo(ChannelID,.Tid,.Otid,ID,.Node.SelectSingleNode("@title").text) Dim N,K,PageStr,NextUrl,PrevUrl .ModelID = ChannelID .ItemID = ID .Templates="" .Scan FileContent FileContent = .Templates FileContent = .KSLabelReplaceAll(FileContent) End With KS.Echo FileContent End Sub End Class %>