国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

Asp生成RSS的類_給網站加上RSS第1/2頁

2024-05-04 10:57:20
字體:
來源:轉載
供稿:網友

什么是RSS?
RSS是站點用來和其他站點之間共享內容的一種簡易方式(也叫聚合內容),通常被用于新聞和其他按順序排列的網站,例如Blog。一段項目的介紹可能包含新聞的全部介紹等。或者僅僅是額外的內容或者簡短的介紹。這些項目的鏈接通常都能鏈接到全部的內容。網絡用戶可以在客戶端借助于支持RSS的新聞聚合軟件(如FeedDemon、SharpReader,NewzCrawler),在不打開網站內容頁面的情況下閱讀支持RSS輸出的網站內容。網站提供RSS輸出,有利于讓用戶發現網站內容的更新。

RSS如何工作?
首先您一般需要下載和安裝一個RSS新聞閱讀器,然后從網站提供的聚合新聞目錄列表中訂閱您感興趣的新聞欄目的內容。訂閱后,您將會及時獲得所訂閱新聞頻道的最新內容。

閱讀RSS新聞的特點?
1.沒有廣告或者圖片來影響標題或者文章概要的閱讀。
2.RSS閱讀器自動更新你定制的網站內容,保持新聞的及時性。
3.用戶可以加入多個定制的RSS提要,從多個來源搜集新聞整合 到單個數據流中。


隨著網絡的普及,越來越多的人習慣通過網絡來獲取信息、查詢資料。雖然各種各樣的門戶網站紛紛興起,但在各個網站之間來回穿梭也的確是十分麻煩,搜索引擎可以幫助我們搜索到任何想要找的東西,但查找起來也比較麻煩。現在網絡上出現了一種全新的資訊方式,他可以把我們定閱的各種資訊送到我們的桌面上來,不但可以及時了解最新的新聞資訊,而且免去了瀏覽網站時惱人的網絡廣告,這種最新的資訊方式被叫做信息聚合,簡稱RSS。
通過RSS技術,我們可以把定閱的最新的資訊接收到電腦桌面上,要接收RSS信息,使用RSS閱讀器是最好的方法。當網站內容更新時,RSS閱讀器就會自動接收,把最新的信息接收到本地電腦桌面上來,同時可以看到最新信息的標題與摘要,點擊標題就能夠查看全文內容了。自從去年國內“博客”的興起,使的RSS資源漸漸多了起來,同時各大網站也紛紛推出了RSS服務,通常只要看到網站上有XML標志,就說明該網站提供RSS服務。
FeedDemon、看天下網絡資訊瀏覽器 、新浪點點通閱讀器、周博通等是常見的RSS閱讀器。

復制代碼 代碼如下:

<%
Dim Rs,Newrss
Class Rss
'*******************輸入參數********************
'***********************************************
'SetConn 必填 網站使用的Connection對象
'SetSql 必填 Sql查詢語句。強烈建議使用在Sql語句中使用Top關鍵字
' Sql語句中包含的字段[新聞Id,標題,內容,時間,靜態頁名稱]
' 注:不要顛倒順序
' 如果新聞不是生成的靜態頁,則無最后一項,SetPageType的值則為1
'SetWebName 必填 網站名稱
'SetWebUrl 必填 網站的地址
'SetWebDes 非必填 網站的描述信息
'SetPageType 必填 信息顯示頁的鏈接類型 1 為動態頁面Id 0為靜態頁面
'SetMaxInfo 非必填 強制顯示信息的數目,若取數據>SetMaxInfo 則顯示SetMaxInfo條數據。強烈建議使用在Sql語句中使用Top關鍵字
'setContentShow 非必填 信息簡介設置。注意:該參數為數組(ShowContentType,ShowContentLen)
' ShowContentType [數字類型] 為內容顯示方式[參數(0,1)0為按百分比就算顯示信息,1為按字數]
' ShowContentLen 內容顯示的長度 由ShowContentType 決定實際長度
'*****************輸出參數********************
'ShowRss 顯示Rss
'======================================================
'例如
'Set NewRss=New Rss
' Set NewRss.SetConn=article_conn
' NewRss.SetSql="select top 30 newsid,title,content,dateandtime,N_fname from article where typeid=1 order by newsid Desc"
' NewRss.SetWebName="測試中"
' NewRss.SetWebUrl="http://www.survivalescaperooms.com"
' NewRss.SetMaxInfo=10
' NewRss.SetInfourl="http://www.survivalescaperooms.com"
' NewRss.SetPageType="0"
' NewRss.setContentShow="1,200"
' NewRss.ShowRss()
'Set NewRss=Nothing
'======================================================
Private Conn,Sql,WebName,WebUrl,WebDes,Er,MaxInfo,i,Infourl,PageType
Private ShowContentType,ShowContentLen
Private AllContent,AllContentLen
Private Sub Class_initialize()
MaxInfo=20
'PageType=1
ShowContentType=0
ShowContentLen=20
Er=false
End Sub
Private Sub Class_terminate()
If isObject(Rs) then Set Rs=Nothing
End Sub
Public Property Let Errmsg(msg)
If Er then
Response.Clear()
Response.Write(msg)
Response.End()
End If
End Property
Public Property Let SetWebName(WebName_)
WebName=WebName_
End Property
Public Property Let SetWebUrl(WebUrl_)
WebUrl=WebUrl_
End Property
Public Property Let SetWebDes(webDes_)
WebDes=WebDes_
End Property
Public Property Let SetInfoUrl(Infourl_)
Infourl=Infourl_
End Property
Public Property Let SetPageType(PageType_)
PageType=PageType_
End Property
Public Property Let SetMaxInfo(MaxInfo_)
MaxInfo=MaxInfo_
End Property
Public Property Let setContentShow(ContentShow_)
Dim ArrContentShow
ArrContentShow=Split(ContentShow_,",")
If Ubound(ArrContentShow)<>1 Then Er=True:Errmsg="信息顯示參數設置有誤!!"
ShowContentType=ArrContentShow(0)
ShowContentLen=ArrContentShow(1)
If Not isnumeric(ShowContentType) or ShowContentType="" Then ShowContentType=0
If Not isnumeric(ShowContentLen) or ShowContentLen="" Then
If ShowContentType=0 Then ShowContentLen=20 Else ShowContentLen=200
Else
If ShowContentType=0 and (ShowContentLen>100 or ShowContentLen<10) Then ShowContentLen=20
End If
End Property
Public Property Set SetConn(Conn_)
If TypeName(Conn_)="Connection" Then
Set Conn=Conn_
Else
Er=true
Errmsg="數據庫連接錯誤"
Exit property
End If
End Property
Public Property Let SetSql(sql_)
Sql=Sql_
End Property
Public Property Get RssHead()
RssHead="<?xml version=""1.0"" encoding=""gb2312"" ?> "
RssHead=RssHead&"<rss>"
RssHead=RssHead&"<channel>"
RssHead=RssHead&"<title>"&WebName&"</title>"
RssHead=RssHead&"<link>"&WebUrl&"</link>"
RssHead=RssHead&"<description>"&WebDes&"</description>"
End Property
Private Property Get RssBottom()
RssBottom="</channel>"
RssBottom=RssBottom&"</rss>"
End Property
Public Sub ShowRss()
On Error resume Next
Dim Rs
Dim ShowInfoUrl,ShowContent,Content
If TypeName(Conn)<>"Connection" Then Er=True:Errmsg="Connection對象有誤"
If Sql="" or isnull(Sql)="" or isempty(Sql)="" Then Er=True:Errmsg="沒有可執行的Sql語句"
If WebName="" or isnull(WebName)="" or isempty(WebName)="" Then Er=True:Errmsg="請設置RSS標題"
If WebUrl="" or isnull(WebUrl)="" or isempty(WebUrl)="" Then Er=True:Errmsg="請設置網站的鏈接"
If InfoUrl="" or isnull(InfoUrl)="" or isempty(InfoUrl)="" Then Er=True:Errmsg="請設置鏈接信息"
If PageType="" or isnull(PageType)="" or isempty(PageType)="" Then Er=True:Errmsg="請設置鏈接類型"
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open Sql,Conn,1,1
If Err Then
Er=true
Errmsg="數據庫未能打開<br />請檢查您的Sql語句是否正確"
Exit Sub
End If
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 辽阳市| 廉江市| 沂源县| 保亭| 珠海市| 昂仁县| 平塘县| 四川省| 金华市| 礼泉县| 嵊州市| 蚌埠市| 丰都县| 西林县| 凭祥市| 高陵县| 沈阳市| 文山县| 开封县| 枞阳县| 永济市| 赤壁市| 惠安县| 榆社县| 高唐县| 双流县| 刚察县| 镇江市| 会理县| 云安县| 景谷| 兴化市| 桐柏县| 富顺县| 江陵县| 牙克石市| 平顶山市| 天等县| 龙里县| 林芝县| 永顺县|