悬灸好还是艾灸盒:RSS代码实现之ASP篇_向东博客_活力宝贝博客
来源:百度文库 编辑:偶看新闻 时间:2024/04/29 23:03:54
RSS代码实现之ASP篇meil 发表于 - 2007-7-11 23:36:00 关键字:RSS APS实现 来源:http://blog.livebaby.cn
今天要为新网站写一个动态生成rss的叶面,其实我不是很专业,只是“君子善假于物也”,在网上搜罗了一些资料,慢慢的思路清晰了,然后就写了出来
弊端:由于引用的这个别人的函数没有定义fso的编码形式,所以只支持gb2312输出。
大概过程
1.熟悉rss规范以及格式
这个简单如果不好找规范的话,可以打开别人的rss.xml聚合源来看看就知道了
2.了解生成过程
建立一个asp(createrss.asp)--> 处理读取数据(sql/access等)-->写入rss.xml--Success!
3.编制
这里面试用了别人编写的一个创建并写入文件的函数
write2file.asp
<%
’ wite2file.asp
’ 写入文件
Sub Write2File(strFile, strContent, blnAppend)
’ strFile 文件名(路径) , strContent 写入的内容, blnAppend 是否追加
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If blnAppend Then
Set objWriteText = objFSO.OpenTextFile(strFile,8,True)
Else
Set objWriteText = objFSO.OpenTextFile(strFile,2,True)
End If
objWriteText.WriteLine (strContent)
Set objWriteText = Nothing
Set objFSO = Nothing
’ 容错处理
Select Case Err
Case 424 Response.Write "路径未找到或者该目录没有写入权限."
Case Else Response.Write Err.Description
’Case Else Response.Write ErrMsg
End Select
End Sub
’调用
’Write2File "c:\dd.ini", "dd", True
’Call Write2File ("c:\dd.ini", "dd", True)
’可以创建文件,但是不能创建目录
%>
createrss.asp
以下是代码片段:
’createrss.asp
dim myrss,enter
enter=false’用来判断myrss是否获得有效数据
’定义rss.xml头
myrss="webtitle sitehostwebdescription generator zh-CN 9xiao.cn pubDate "
’读取数据- <...>
’事先定义好数据库连接conn
set rs=server.CreateObject("adodb.recordset")
sql="select * from table"
rs.open sql, conn, 1, 1
if not rs.eof then
enter=true’有内容可以插入rss
do while not rs.eof
myrss=myrss & "" & rs("title") & " " & rs("author") & " " & rs("link") & "" & rs("pubdate") & " " & rs("link") & " " & rs("category") & " "
rs.movenext
loop
end if
rs.close
set rs=nothing
’rss结束
’rs("*****")中的内容请换为自己的字段
’结束rss.xml
myrss=myrss & " "
’写入rss
if enter=true then
Write2File server.MapPath("rss.xml"), myrss, false’不要追加,每次更新
end if
%>
本文永久地址: http://www.livebaby.cn/blog/u/meil/archives/2007/1083.html
今天要为新网站写一个动态生成rss的叶面,其实我不是很专业,只是“君子善假于物也”,在网上搜罗了一些资料,慢慢的思路清晰了,然后就写了出来
弊端:由于引用的这个别人的函数没有定义fso的编码形式,所以只支持gb2312输出。
大概过程
1.熟悉rss规范以及格式
这个简单如果不好找规范的话,可以打开别人的rss.xml聚合源来看看就知道了
2.了解生成过程
建立一个asp(createrss.asp)--> 处理读取数据(sql/access等)-->写入rss.xml--Success!
3.编制
这里面试用了别人编写的一个创建并写入文件的函数
write2file.asp
以下是代码片段:
<%
’ wite2file.asp
’ 写入文件
Sub Write2File(strFile, strContent, blnAppend)
’ strFile 文件名(路径) , strContent 写入的内容, blnAppend 是否追加
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If blnAppend Then
Set objWriteText = objFSO.OpenTextFile(strFile,8,True)
Else
Set objWriteText = objFSO.OpenTextFile(strFile,2,True)
End If
objWriteText.WriteLine (strContent)
Set objWriteText = Nothing
Set objFSO = Nothing
’ 容错处理
Select Case Err
Case 424 Response.Write "路径未找到或者该目录没有写入权限."
Case Else Response.Write Err.Description
’Case Else Response.Write ErrMsg
End Select
End Sub
’调用
’Write2File "c:\dd.ini", "dd", True
’Call Write2File ("c:\dd.ini", "dd", True)
’可以创建文件,但是不能创建目录
%>
createrss.asp
以下是代码片段:
’createrss.asp
dim myrss,enter
enter=false’用来判断myrss是否获得有效数据
’定义rss.xml头
myrss="
’读取数据
’事先定义好数据库连接conn
set rs=server.CreateObject("adodb.recordset")
sql="select * from table"
rs.open sql, conn, 1, 1
if not rs.eof then
enter=true’有内容可以插入rss
do while not rs.eof
myrss=myrss & "
rs.movenext
loop
end if
rs.close
set rs=nothing
’rss结束
’rs("*****")中的内容请换为自己的字段
’结束rss.xml
myrss=myrss & "
’写入rss
if enter=true then
Write2File server.MapPath("rss.xml"), myrss, false’不要追加,每次更新
end if
%>
写完,收工!
本文永久地址: http://www.livebaby.cn/blog/u/meil/archives/2007/1083.html
语吻情_个人博客
asp?html? ^_^
!@#$%^&*()_+$%
!~_*_*#!_&_!
-_- ???!!!
*_*_*_*_*
长拳中的传统技法有_,_,_之说
沉枫_晨曦的博客
????_--_
^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^
请问 _ _ _
!)(@!)@(!_*_@W!()_
求推荐一个多用户最好asp记数器程序(答_对_马_上_送_分)
谁有蔡妍_两个人_.WMVQQ空间代码
按部就班_`_`_`_`_`_`_`_`_`_`_`三头六臂_`_`_`_`_`_`_`_`粗制滥造
钢炼之问^_^
空之轨迹刻要几张盘?^_^
ASP代码实现问题
免费博客_哪家更好?
谁知道霍艳的博客@_@?
^_^^_^^_^音乐爱好者进了^_^^_^^_^
请问 _ _ _ 物理
成语: _ 灵_ _
名言警句谚语_方见其义._日旧见人心._曲不离口._不进则退._人不运动不健康.一年之季在于春,_