<% If DvBoke.BokeUserID=0 Then DvBoke.ShowCode(46) DvBoke.ShowMsg(0) End If Dim TopicLink,TopicList If Is_Isapi_Rewrite = 0 Then Dvbbs.ModHtmlLinked = Dvbbs.Get_ScriptNameUrl() & "boke.asp?" & DvBoke.BokeName & ".html" TopicLink = Dvbbs.Get_ScriptNameUrl() & "boke.asp?" & DvBoke.BokeName & "/showtopic/" Else Dvbbs.ModHtmlLinked = Dvbbs.Get_ScriptNameUrl() & DvBoke.BokeName & ".html" TopicLink = Dvbbs.Get_ScriptNameUrl() & DvBoke.BokeName & "/showtopic/" End If Response.Clear Response.CharSet="gb2312" '数据集 Response.ContentType="text/xml" '数据流格式定义 Response.Write ""&vbNewLine Response.Write ""&vbNewLine Response.Write ""&vbNewLine Response.Write "<![CDATA["&DvBoke.BokeNode.getAttribute("boketitle")&"]]>"&vbNewLine Response.Write ""&Dvbbs.ModHtmlLinked&""&vbNewLine Response.Write ""&vbNewLine Dim TopicHtml Dim Node,ChildNodes Set Node = DvBoke.BokeCat.selectNodes("xml/boketopic/rs:data/z:row") If (Node Is Nothing) Then DvBoke.ShowCode(46) DvBoke.ShowMsg(0) End If Dim PostDate,Title,Content,Channels,ChannelTitle For Each ChildNodes in Node PostDate = ChildNodes.getAttribute("posttime") If Not IsDate(PostDate) Then PostDate = Now() Title = ChildNodes.getAttribute("title") If Len(Title)>150 Then Title = Left(Title,150) &"......" Content = ChildNodes.getAttribute("titlenote")&"" Content = Lcase(Content) Content = Replace(Content,"" TopicHtml = TopicHtml & ""&TopicLink&ChildNodes.getAttribute("topicid")&".html" TopicHtml = TopicHtml & "" TopicHtml = TopicHtml & ""&ChildNodes.getAttribute("username")&"" TopicHtml = TopicHtml & ""&PostDate&"" TopicHtml = TopicHtml & "" TopicList = TopicList & TopicHtml TopicHtml = "" Next Response.Write TopicList Response.Write ""&vbNewLine Response.Write "" %>