<%@Language="VBScript" Codepage="65001"%> <% 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",""))
node.appendChild(XMLDOM.createNode(1,"title","")).text="¼ÐÃD" node.appendChild(XMLDOM.createNode(1,"link","")).text="ºô§}" node.appendChild(XMLDOM.createNode(1,"language","")).text="zh-tw" node.appendChild(XMLDOM.createNode(1,"description","")).text="´yz" node.appendChild(XMLDOM.createNode(1,"copyright","")).text="ª©Åv«Å§i" node.appendChild(XMLDOM.createNode(1,"generator","")).text="Tamako" node.appendChild(XMLDOM.createNode(1,"webMaster","")).text="i@tamako.us" %> <!--#include file="db.asp"--> ' ³oùؽХN¤J±zªº¸ê®Æ®w <% Set rs=conn.Execute("SELECT TOP 5 * FROM Indy ORDER BY Release DESC") Do While Not rs.Eof Set Cnode=node.appendChild(XMLDOM.createNode(1,"item","")) Cnode.appendChild(XMLDOM.createNode(1,"title","")).text= rs("title") &"" Cnode.appendChild(XMLDOM.createNode(1,"url","")).text= rs("title") &"" Cnode.appendChild(XMLDOM.createNode(1,"link","")).text= "ºô§}/show.asp? i="&rs("Item") Cnode.appendChild(XMLDOM.createNode(1,"description","")).text= rs ("Intro") &"" rs.Movenext Loop set rs = nothing conn.close set conn = nothing
Response.Clear Response.CharSet="UTF-8" Response.ContentType="text/xml" Response.Write ""&vbNewLine Response.Write XMLDOM.xml Set XMLDOM=Nothing %> |