asp-rss订阅代码-小叶白龙博客

如今越来越多的人开始写起了博客，博客应该是个性张扬的，应该反应博客主人对生活的某种认知，要以原创的内容为主。只有写出了个性，写出有价值的内容的博客才是可看的博客。在发表了一篇文章后，如何让别人第一时间知道呢？RSS订阅功能就可以实现了。

比如国内知名的博客，新浪博客、搜狐博客、网易博客、BLOGBUS、MSN、WordPress等博客系统均有RSS订阅功能。RSS订阅是构成良好的博客、用户互动的一个体现。这些博客自身都带有RSS订阅功能，只要在后台简单的设置一下就可以让用户订阅RSS内容了。

虽然说，咱的博客刚开张没多久，也不确定有多少人会订阅本博客，但我相信，只要是用心写的博客，就会有用户来订阅你的博客。

所以我便开始为我的博客增加RSS订阅功能，演示地址为：http://www.3zha.com/love/rss.asp，ASP代码如下：

以下是引用片段：

<!–#Include File="conn.asp"–>
<%
Response.Charset = "gb2312"
Response.ContentType="text/xml"
Dim sql
    sql = "Select Top 20 From [表名] Order By date desc,id Desc"
Set rs = conn.Execute(sql)
Response.Write("<?xml version=""1.0"" encoding=""gb2312"" ?>")
Response.Write("<rss version=""2.0"">")
Response.Write("<channel>")
Response.Write("<title>北京弹指科技网络工作室-提供网站建设服务，平面设计</title>")
Response.Write("<link>http://www.3zha.com</link>")
Response.Write("<description>弹指科技</description>")
Do While (rs.Eof = False)
    Response.Write("<item>")
    Response.Write("<title><![CDATA["&rs("c_title")&"]]></title>")
    Response.Write("<link><![CDATA[http://www.3zha.com/news/"&rs("url")&".htm]]></link>")
    Response.Write("<description><![CDATA["&left(rs("content"),150)&"]]></description>")
    Response.Write("<author><![CDATA["&rs("ator")&"]]></author>")
    Response.Write("<category><![CDATA["&rs("class")&"]]></category>")
    Response.Write("<pubDate>" & return_RFC822_Date(rs("c_date"),"GMT") & "</pubDate>")
    Response.Write("</item>")
    rs.MoveNext()
Loop
Response.Write("</channel>")
Response.Write("</rss>")
Function return_RFC822_Date(byVal myDate, byVal TimeZone)
Dim myDay, myDays, myMonth, myYear
Dim myHours, myMinutes, mySeconds
myDate = CDate(myDate)
myDay = EnWeekDayName(myDate)
myDays = Right("00" & Day(myDate),2)
myMonth = EnMonthName(myDate)
myYear = Year(myDate)
myHours = Right("00" & Hour(myDate),2)
myMinutes = Right("00" & Minute(myDate),2)
mySeconds = Right("00" & Second(myDate),2)
return_RFC822_Date = myDay&", "& _
myDays&" "& _
myMonth&" "& _
myYear&" "& _
myHours&":"& _
myMinutes&":"& _
mySeconds&" "& _
" " & TimeZone
End Function
’’星期转换函数
Function EnWeekDayName(InputDate)
Dim Result
Select Case WeekDay(InputDate,1)
Case 1:Result="Sun"
Case 2:Result="Mon"
Case 3:Result="Tue"
Case 4:Result="Wed"
Case 5:Result="Thu"
Case 6:Result="Fri"
Case 7:Result="Sat"
End Select
EnWeekDayName = Result
End Function
’’月份转换函数
Function EnMonthName(InputDate)
Dim Result
Select Case Month(InputDate)
Case 1:Result="Jan"
Case 2:Result="Feb"
Case 3:Result="Mar"
Case 4:Result="Apr"
Case 5:Result="May"
Case 6:Result="Jun"
Case 7:Result="Jul"
Case 8:Result="Aug"
Case 9:Result="Sep"
Case 10:Result="Oct"
Case 11:Result="Nov"
Case 12:Result="Dec"
End Select
EnMonthName = Result
End Function
%>