|
今天用asp写了一个自己网站的RSS，写了两看asp程序，本以为写个rrs很容易结果破费周折，下面把我的rss的代码贴出来供大家修改使用
<%
Response.ContentType="text/xml"
dim db,dbpath,conn
dim rs,SQL
db="db/#flsjfd8ulfs.asp"'数据库地址
Set conn = Server.CreateObject("ADODB.Connection")
dbpath="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open dbpath
%><?xml version="1.0" encoding="gb2312"?><rss version="2.0">
<channel>
<title>我的网站名称</title>
<link>http://www.myweb.com</link>
<description>网站描术</description>
<%
SQL="select top 10 * from news order by id desc"
set rs=conn.execute(SQL)
if rs.Eof or rs.Bof then
response.write "<item></item>"
end if
while not rs.Eof
a=rs("title")
b=rs("author")
c=rs("times")
d=replace(replace(left(rs("content"),200),"<","<"),">",">")
response.Write "<item>"
response.write "<link>http://xyb.nuc.edu.cn/readnews.asp?id="&rs("id")&"</link>"
Response.write "<title>"&a&"</title>"
response.write "<creator>"&b&"</creator>"
response.write "<PubDate>"&c&"</PubDate>"
response.write "<description>"&d&"</description>"
response.write "</item>"
rs.MoveNext
wend
set rs=nothing
conn.Close
set conn = nothing
%>
</channel></rss>
还有一些其它可选标签，大家可根据需要增减，具体RSS请在网上搜ＲＳＳ规范查看 
|
本类阅读TOP10