RSS と XML の集約を生成するのは、主に購読を容易にし、ユーザーに Web サイトの更新を素早く知らせることです。 RSS.ASP形式
次のコードは rss.asp として保存されます。
次のようにコードをコピーします。
<!--#include file=conn.asp-->
<%
strURL = http:// & request.servervariables(server_name) & _
left(request.servervariables(script_name),len(request.servervariables(SCRIPT_NAME))-len(/rss.asp)) ///rss.asp はファイル名です
sql=select top 100 * from [table name] order by id desc //実際の変更によると、上位 100 は最新の 100 です。自分で変更し、where xxx=1... などのクエリ条件を追加できます。 。
set rs=server.createobject(adodb.recordset)
rs.open SQL,conn,1,1
応答.contenttype=テキスト/xml
response.write <?xml version=1.0coding=gb2312 ?> & vbcrlf
response.write <rss version=2.0> & vbcrlf
response.write <チャネル> & vbcrlf
response.write <title>xxx.com RSS フィード</title> & vbcrlf
response.write <link> & strURL & </link> & vbcrlf
response.write <言語>zh-cn</言語> & vbcrlf
response.write <copyright>xxx.comcopyright> および vbcrlf の RSS フィード
rs.eofではない間
response.write <アイテム> & vbcrlf
response.write <title><![CDATA[ & rs(title) & ]]></title> & vbcrlf
response.write <link>&strURL/xxxx.asp?Id=&rs(id)</link> & vbcrlf
response.write <description><![CDATA[ & rs(件名フィールド) & <br /> & rs(内容フィールド) & <br /><br />]]></description> & vbcrlf
response.write <pubDate> & return_RFC822_Date(rs(時刻フィールド),GMT) & </pubDate> & vbcrlf
応答.write </item> & vbcrlf
rs.movenext
曲がります
応答.write </channel> & vbcrlf
応答.write </rss> & vbcrlf
rs.close
rs=何も設定しない
関数 return_RFC822_Date(byVal myDate, byVal TimeZone)
薄暗い myDay、myDays、myMonth、myyear
myHours、myMinutes、mySeconds を暗くする
myDate = CDate(myDate)
myDay = EnWeekDayName(myDate)
myDays = Right(00 & Day(myDate),2)
myMonth = EnMonthName(myDate)
myyear = 年(myDate)
myHours = Right(00 & 時間(myDate),2)
myMinutes = Right(00 & Minute(myDate),2)
mySeconds = Right(00 & Second(myDate),2)
return_RFC822_Date = myDay, & _
マイデイズ & _
私の月&_
私の年&_
私の時間:& _
私の分:& _
mySeconds & _
タイムゾーン(&)
終了機能
関数 EnWeekDayName(InputDate)
暗い結果
ケースを選択 WeekDay(InputDate,1)
ケース 1:結果=日
ケース 2:結果 = 月
ケース 3:結果=火
ケース 4:結果 = 水
ケース 5:結果=木
ケース 6: 結果 = 金
ケース 7:結果=土
エンドセレクト
EnWeekDayName = 結果
終了機能
関数 EnMonthName(InputDate)
暗い結果
ケースの月(入力日)を選択してください
ケース 1:結果 = 1 月
ケース 2:結果 = 2 月
ケース 3: 結果 = 3 月
ケース 4:結果 = 4 月
ケース 5:結果 = 5 月
ケース 6:結果 = 6 月
ケース 7:結果 = 7 月
ケース 8:結果 = 8 月
ケース 9:結果 = 9 月
ケース 10:結果 = 10 月
ケース 11:結果 = 11 月
ケース 12:結果 = 12 月
エンドセレクト
EnMonthName = 結果
終了機能
%>
rss.xml形式
次のようにコードをコピーします。
<!--#include file=conn.asp-->
<%
strURL = http:// & request.servervariables(SERVER_NAME) & _
left(request.servervariables(SCRIPT_NAME),len(request.servervariables(SCRIPT_NAME))-len(/rss.asp))
ディムフールキャット、js
set js =server.CreateObject(ADODB.RecordSet)
sql = select * from [テーブル名] ID asc 順に並べる
set js = conn.execute (SQL)
フールキャット = フールキャット + <?xml バージョン=1.0 エンコーディング=UTF-8 ?>
フールキャット = フールキャット + <rss version=2.0>
フールキャット = フールキャット + <チャンネル>
フールキャット = フールキャット + <title>xxx.com XML フィード</title>
フールキャット = フールキャット + <link> & strURL & </link>
フールキャット = フールキャット + <言語>zh-cn</言語>
Foolcat = Foolcat + <copyright>xxx.com の XML フィード</copyright>
js.eofまでやる
フールキャット = フールキャット + <アイテム>
フールキャット = フールキャット + <title><![CDATA[ & rs(件名フィールド) & ]]></title>
Foolcat = Foolcat + <description><![CDATA[ & rs(件名フィールド) & <br /> & rs(内容フィールド) & <br /><br />]]></description>
Foolcat = Foolcat + <link> & strURL & /xxx.asp?Id=&rs(id フィールド)</link>
フールキャット = フールキャット + <pubDate> & rs(時間フィールド) & </pubDate>
フールキャット = フールキャット + </item>
js.movenext
ループ
js.close
js = 何も設定しない
フールキャット = フールキャット + </channel>
フールキャット = フールキャット + </rss>
フールキャット = + フールキャット +
フールキャット = & フールキャット &
フォルダーパス = Server.MapPath(/)
fso = Server.CreateObject(Scripting.FileSystemObject) を設定します。
fout = fso.CreateTextFile(FolderPath/rss.xml) を設定します。
fout.writeLine フールキャット
fout.close
fout = 何も設定しない
接続閉じる
conn = 何も設定しない
%>