复制代码 代码如下:
<%
Response.ContentType="text/xml"
dim db,dbpath,conn
dim rs,SQL
db="shujuku/hotltcom.mdb"''''这里填写你的数据库地址
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">'这里是xml的版本和语言声明
<channel>
'以下相当于html的meta部分,包括标题.连接.语言.版权信息以及logo图标等
<title>简单的快乐</title>
<link>http://siyizhu.com</link>
<Description>简单的快乐</Description>
<language>zh-cn</language>
<copyright>Copyright 2006 hotlt</copyright>
<webMaster>hotlt@tom.com</webMaster>
<image>
<title>简单的快乐</title>
<url>http://siyizhu.com/logo.gif</url>
<link>http://siyizhu.com/</link><description>siyizhu's weblog</description></image>
'以下是连接数据库数据表部分,top 15代表最新的15条,movie是数据表
<%
SQL="select top 15 * from movie 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
Title=rs("Title")'这里定义Title是标题,("Title")为字段名称
id=rs("id")'这里定义id是连接id ,("id")为字段名称
Time=rs("Time")'这里定义Time是时间 ,("Time")为字段名称
Content=replace(replace(left(rs("Content"),200),"<","<"),">",">")'这里的Content是内容的字段名称
'以下是rss输出
response.Write "<item>"
Response.write "<title>"&Title&"</title>" '这里是输出标题
response.write "<link>http://siyizhu.com/weblog/article.asp?ID="&id&"</link>" '这里是输出链接,注意要用网址
response.write "<author>siyizhu</author>" '这里是输出作者,如果有字段可以调用字段
response.write "<PubDate>"&Time&"</PubDate>" '这里是时间
response.write "<description><![CDATA["&Content&"]]></description>"'这里是输出简介,因为可能有代码.括起来,否则预览时会提示错误。
response.write "</item>"
rs.MoveNext
wend
set rs=nothing
conn.Close
set conn = nothing
%>
</channel></rss>
注意事项:其中要注意[CDATA*]>的使用,像是内容之类的输出尽量用"[CDATA[ * ]]>",
*为输出内容,应为内容可能为代码形式,如有空格或asp代码.否则可能会出错误.
<%
Response.ContentType="text/xml"
dim db,dbpath,conn
dim rs,SQL
db="shujuku/hotltcom.mdb"''''这里填写你的数据库地址
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">'这里是xml的版本和语言声明
<channel>
'以下相当于html的meta部分,包括标题.连接.语言.版权信息以及logo图标等
<title>简单的快乐</title>
<link>http://siyizhu.com</link>
<Description>简单的快乐</Description>
<language>zh-cn</language>
<copyright>Copyright 2006 hotlt</copyright>
<webMaster>hotlt@tom.com</webMaster>
<image>
<title>简单的快乐</title>
<url>http://siyizhu.com/logo.gif</url>
<link>http://siyizhu.com/</link><description>siyizhu's weblog</description></image>
'以下是连接数据库数据表部分,top 15代表最新的15条,movie是数据表
<%
SQL="select top 15 * from movie 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
Title=rs("Title")'这里定义Title是标题,("Title")为字段名称
id=rs("id")'这里定义id是连接id ,("id")为字段名称
Time=rs("Time")'这里定义Time是时间 ,("Time")为字段名称
Content=replace(replace(left(rs("Content"),200),"<","<"),">",">")'这里的Content是内容的字段名称
'以下是rss输出
response.Write "<item>"
Response.write "<title>"&Title&"</title>" '这里是输出标题
response.write "<link>http://siyizhu.com/weblog/article.asp?ID="&id&"</link>" '这里是输出链接,注意要用网址
response.write "<author>siyizhu</author>" '这里是输出作者,如果有字段可以调用字段
response.write "<PubDate>"&Time&"</PubDate>" '这里是时间
response.write "<description><![CDATA["&Content&"]]></description>"'这里是输出简介,因为可能有代码.括起来,否则预览时会提示错误。
response.write "</item>"
rs.MoveNext
wend
set rs=nothing
conn.Close
set conn = nothing
%>
</channel></rss>
注意事项:其中要注意[CDATA*]>的使用,像是内容之类的输出尽量用"[CDATA[ * ]]>",
*为输出内容,应为内容可能为代码形式,如有空格或asp代码.否则可能会出错误.
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
暂无“给你的asp+ac站点加rss功能”评论...
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?
更新动态
2024年05月14日
2024年05月14日
- 刀郎《辉煌十年绝版珍藏 3CD》[WAV/分轨][2.2GB]
- 三国谋定天下拍卖怎么玩 游戏拍卖场玩法介绍
- 哈迪斯2材料收集图文攻略 黑帝斯2材料在哪里找
- 鸣潮白芷声骸怎么选择 白芷声骸搭配及词条选择攻略
- 《鸡械绿洲》死机第二次无法继续问题解决方法
- 《夜族崛起》评测:再访恶魔城
- 《印蒂卡》评测:魔鬼和上帝都是你
- [ABC唱片]-《邓丽君—忆君集》[K2-114][K2CD][WAV+CUE]
- [ABC唱片]-《西电之声—人声》[HDS-182][6N纯银镀膜]WAV+CUE
- [ABC唱片]-《雪莉—非常雪莉》[HDS-072][6N纯银镀膜]WAV+CUE
- 《歌手2024》发文:将根据歌手档期进行后续邀请
- 《地狱潜者2》CEO在仍就游戏下架与索尼协商 但情况不乐观
- 马斯克母亲在上海发图 晒儿子送的节日鲜花
- 群星.1990-华纳怀念金曲【华纳】【WAV+CUE】
- 林姗.2010-伴你过一生【豪记】【WAV+CUE】