RSSªº½d¨Ò


Tamako µoªí



¦p¦ó¦bASP¤¤¨Ï¥ÎRSS

§ä¤F«Ü¤[¡A²×©ó§ä¨ìRSSªº½d¨Ò¤F~
½Ð¤j®a°Ñ¦Ò¬Ý¬Ý~

ps:²ÊÅé¦r½Ð­×§ï

<%@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="´y­z"
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
%>

  

³Ì«á§ó·s¤é´Á: 6/26/2006 5:11:28 PM