ASP generates XML file code

The code is as follows

Copy Code

<!--#include file= "config.asp"--> <% Dim Rs,sql,foundstr Dim Classid,childstr Dim Rssbody,rsstitle,rsshomepageurl Dim Xmldom,node,cnode,cnode1,msginfo Set xmldom = Server.CreateObject ("Microsoft.FreeThreadedXMLDOM") Xmldom.appendchild (xmldom.createelement ("RSS")) XMLDOM.documentElement.attributes.setNamedItem (Xmldom.createnode (2, "Version", "")). text= "2.0" Set node = XMLDOM.documentElement.appendChild (Xmldom.createnode (1, "channel", "")) Rsshomepageurl = Newasp.siteurl Rsstitle = "Get List of articles" ClassID = Newasp.checknumeric (Request ("ClassID")) Dim Channelrootdir Channelrootdir = Newasp.installdir & Newasp.channeldir Sub xmlarticlelist () Dim Specialid,stype If Trim (Request ("Specialid")) <> "Then Specialid = Newasp.checknumeric (Request ("Specialid")) Specialid = CLng (specialid) If specialid = 0 Then Foundstr = "and a.specialid>0 order by A.writetime DESC, A.articleid DESC" Else Foundstr = "and a.specialid=" & Specialid & "ORDER by A.writetime DESC, A.articleid DESC" End If Else If classid > 0 Then SQL = "Select Classname,childstr from [nc_classify] WHERE channelid =" & Channelid & "and classid=" & CLng (c LASSID) Set Rs = Newasp.execute (SQL) If Rs.bof and Rs.eof Then Set Cnode=node.appendchild (Xmldom.createnode (1, "Item", "")) Cnode.appendchild (Xmldom.createnode (1, "title", "")). text= "no article classification found" Cnode.appendchild (Xmldom.createnode (1, "link", "")). Text=rsshomepageurl Cnode.appendchild (Xmldom.createnode (1, "Author", "")). Text=newasp.sitename Cnode.appendchild (Xmldom.createnode (1, "pubdate", "")). Text=now () Set Cnode1=cnode.appendchild (Xmldom.createnode (1, "description", "")) Msginfo= "did not find article classification!" " Cnode1.appendchild (Xmldom.createcdatasection (Msginfo)) Rs.Close:Set Rs = Nothing Exit Sub Else Rsstitle = Rs ("ClassName") Childstr = Rs ("Childstr") End If Rs.Close:Set Rs = Nothing Foundstr = "and A.classid in (" & Childstr & ") Order by A.writetime DESC, A.articleid DESC" Else Rsstitle = "All articles list" Foundstr = "ORDER by A.writetime DESC, A.articleid DESC" End If End If If Trim (Request ("type")) <> "Then stype = Newasp.checknumeric (Request ("type") stype = CInt (stype) If stype = 0 Then Foundstr = Replace (Foundstr, "A.writetime", "A.allhits") Else Foundstr = "and isbest>0" & Foundstr End If End If Node.appendchild (Xmldom.createnode (1, "title", "")) .text=newasp.sitename& "--" &rsstitle Node.appendchild (Xmldom.createnode (1, "link", "")). Text=newasp.siteurl Node.appendchild (Xmldom.createnode (1, "Language", "")). text= "ZH-CN" Node.appendchild (Xmldom.createnode (1, "description", "")). Text=newasp.sitename Node.appendchild (Xmldom.createnode (1, "Copyright", "")). Text=newasp.siteurl Node.appendchild (Xmldom.createnode (1, "Generator", "")). text= "Rss Generator by Newasp.net" Dim Htmlfilename,htmlfileurl SQL = "A.articleid,a.classid,a.title,a.content,a.writetime,a.htmlfiledate,a.author," sql = "SELECT top" & SQL & C.classname,c.htmlfiledir,c.usehtml,b.channeldir,b.stopchannel,b.modulename,b. Iscreatehtml,b.htmlextname,b.htmlpath,b.htmlform,b.htmlprefix from ([nc_article] A INNER JOIN [nc_classify] C on A. CLASSID=C.CLASSID) INNER JOIN [Nc_channel] B on A.channelid=b.channelid WHERE a.isaccept>0 and a.channelid= "& CLng (channelid) & "& Foundstr &" " Set Rs = Newasp.execute (SQL) If Rs.bof and Rs.eof Then Set Cnode=node.appendchild (Xmldom.createnode (1, "Item", "")) Cnode.appendchild (Xmldom.createnode (1, "title", "")). text= "No articles found" Cnode.appendchild (Xmldom.createnode (1, "link", "")). Text=rsshomepageurl Cnode.appendchild (Xmldom.createnode (1, "Author", "")). Text=newasp.sitename Cnode.appendchild (Xmldom.createnode (1, "pubdate", "")). Text=now () Set Cnode1=cnode.appendchild (Xmldom.createnode (1, "description", "")) Msginfo= "did not find the article!" " Cnode1.appendchild (Xmldom.createcdatasection (Msginfo)) Rs.Close:Set Rs = Nothing Exit Sub Else Do as not rs.eof Htmlfilename = Newasp.readfilename (rs ("Htmlfiledate"), RS ("ArticleID"), RS ("Htmlextname"), RS ("Htmlprefix"), RS (" HtmlForm ")," "") If Rs ("iscreatehtml") <> 0 Then Htmlfileurl = Showchannelpath (Channelrootdir,rs ("Htmlfiledir")) & Newasp.showdatepath (RS ("Htmlfiledate"), RS (" Htmlpath ")) & Htmlfilename Else Htmlfileurl = Newasp.getchanneldir (channelid) & "Show.asp?id=" & Rs ("ArticleID") End If If LCase (Left (htmlfileurl,7)) <> "http://" Then Htmlfileurl = rsshomepageurl & Htmlfileurl Set Cnode=node.appendchild (Xmldom.createnode (1, "Item", "")) Cnode.appendchild (Xmldom.createnode (1, "title", "")). Text=replace (Rs ("title"), "&nbsp;", "" " Cnode.appendchild (Xmldom.createnode (1, "link", "")). Text=htmlfileurl Cnode.appendchild (Xmldom.createnode (1, "category", "")). Text=rs ("ClassName") Cnode.appendchild (Xmldom.createnode (1, "Author", "")). Text=rs ("author") Cnode.appendchild (Xmldom.createnode (1, "pubdate", "")). Text=rs ("Writetime") Set Cnode1=cnode.appendchild (Xmldom.createnode (1, "description", "")) msginfo= newasp.cutstring (Rs ("Content"), 300) Cnode1.appendchild (Xmldom.createcdatasection (Msginfo)) Rs.movenext Loop End If Rs.Close:Set Rs = Nothing End Sub Sub Showxml () Response.Clear response.charset= "gb2312" Response.contenttype= "Text/xml" Response.Write "<?xml version=" "1.0" "encoding=" "gb2312" "?>" &vbnewline Response.Write Xmldom.xml Set xmldom=nothing End Sub Xmlarticlelist () Showxml () Closeconn %>