今日、私は新しいウェブサイトのダイナミックな葉の表面を書きたいと思っていますが、私は「紳士は良いことと偽りです」。
短所:この他の機能はFSOの形式を定義していないため、UTF-8出力を使用する場合にのみサポートします
近似プロセス
1。RSSの仕様と形式に精通しています
このシンプルな標準を見つけるのは簡単ではない場合は、RSS.xmlの集計ソースを開いて、それを見ることができます。
2。プロセスを理解します
ASP(creterter.asp) - > readデータ(sql/accessなど)を処理する - > rss.xml-successに書き込みます!
3。準備
これは、他の人によって書かれたファイルによって作成および作成された関数です
write2file.asp
| 以下はコードフラグメントです。 <% 'wite2file.asp 'ファイルを書き込みます sub write2file(strfile、strcontent、blnappend) 'strfileファイル名(パス)、strcontentによって記述されたコンテンツ、blnappendが追加されたかどうか エラーの再開時に次に再開します objfso = server.createObject( "Scripting.filesystemObject")を設定します blnappendの場合 objwriteText = objfso.opentextfile(strfile、8、true)を設定 それ以外 objwriteText = objfso.opentextfile(strfile、2、true)を設定 ifを終了します objwriteText.writeLine(strcontent) objwriteText = Nothingを設定します objfso =何も設定しません 'フォールトトレランス治療 ケースERRを選択します ケース424応答。「パス」パスが見つかりません。 ケースELSE Response.Write err.descripting 'ケース他のresponse.write errmsg [選択]を終了します End Sub '電話 'write2file "c:/dd.ini"、 "dd"、true 'write2file( "c:/dd.ini"、 "dd"、true)に電話してください) 「ファイルを作成できますが、ディレクトリを作成できません %> |
setrss.asp
| 以下はコードフラグメントです。 'Creterss.asp <! - #include file = "write2file.asp" - > Dim Myrss、Enter Enter = false 'は、Myrssが有効なデータを取得するかどうかを判断するために使用されます 'rss.xmlヘッダーを定義します myrss = "<?xml version =" "1.0" "encoding =" gb2312 "" standalone = "" yes "" "" "?> <rssバージョン=" "2.0" "xmlns:dc =" "http:// purl。 "> <Cannel> <title> webtitle </title> <link> sitehost </link> <descripting> webdescripting </descriping> <general>ジェネレーター</generator> <language> zh-cn </launguage> <copyright> 9xiao.cn </copyright> <pubdate> pubdate </pubdate> " 'データを読む<teem> <...> '事前にデータベース接続を定義します rs = server.createObject( "adodb.oldset")を設定します sql = "select * from table" rs.oopen sql、conn、1、1 rs.eofではない場合 Enter = true 'はRSSを挿入するコンテンツを持っています rs.eofではありません myrss = myrss& "<tem> <title>"&rs( "title")& "</title> <thulter>"&rs( "著者")& "</著者> <link>&rs(" "" "link")& "</link> <pubdate>"&rs( "pubdate")& "</pubdate> <guid>"&rs( "link")& "</guid> <![cdata [& rs( "yourcontent")& "]]> </description> <category>"&rs( "category")& "</category> </item>" "" " rs.movenext ループ ifを終了します rs.close rs = Nothingを設定します 'RSS終了 'rs( "******")の自分のフィールドのコンテンツを交換してください 'rss.xmlを終了します myrss = myrss& "</channel> </rss>" " 'RSSに書き込みます Enter = trueの場合 write2file server.mappath( "rss.xml")、myrss、false ' ifを終了します %> |