使用方法：次のコードをrss.aspとして保存し（UTF-8形式で保存することを忘れないでください）、Webサイトルートディレクトリにアップロードします。残りは、RSS提出ポータルを見つけてフィードアドレスを送信することですhttp：// your domain name/rss.asp
デモ：http：//www.366mv.cn
コードは次のとおりです。コメントに従って、対応する情報を変更してください。著作権情報を保持できることを願っています ^_ ^
コードコピーは次のとおりです。
<％@言語= "vbscript" codepage = "65001"％>
<％
session.codepage = 65001
Response.Charset = "UTF-8"
'==========================================================================================
'Copyright（c）2005-2007、Soy Liuyu Film and Television（[url] www.366mv.cn [/url]）Allrightsは予約しています。
'==========================================================================================
'名前：rss.asp
'説明：RSSFeedを動的に生成します。
'==========================================================================================
％>
<！ - ＃includefile = inc/conn.asp-> <？xmlversion = "1.0" encoding = "utf-8"？>
<rssversion = "2.0" xmlns：atom = "http://www.w3.org/2005/atom">
<％
title = "生杯典" 'あなた自身の名前に変更されました
Response.Write "<Channel>"＆chr（13）
respons.write "<atom：linkhref =" "http：//"＆maxz_2＆ "/xml.asp" "rel =" "self" "type =" "application/rss+xml" "/>"＆chr（13）
Response.Write "<title>最新の更新ビデオ - "＆ "</title>"＆chr（13）
Response.Write "<link> http：//"＆maxz_2＆ "</link>"＆chr（13）
Response.Write "<description>"＆title＆ "-1万映画をオンラインで見る。無料の映画、オンライン映画、TVB、日本のドラマ、韓国のドラマ、アニメーション、サイエンスフィクション、ホラー、ロマンス、テレビシリーズ、大ヒット、新年の映画... </description>"＆chr（13）
Response.WriteGet_Left（15,0） '更新日でソートされた最初の15ビデオを表示します
respons.write "</channel>"＆chr（13）
function（str）
ifnotisnull（str）then
re =置換（str、 "＆"、 "＆"）
re =交換（re、 "<"、 "<"）
re =交換（re、 ">"、 ">"）
re =交換（re、 "'"、 "'"）
re =交換（re、 "" ""、 "" "）
endif
エンド機能
functionget_left（n、m）
n = cint（n）：m = cint（m）
IFM = 1then
mm = "orderbyzt_hitsdesc" 'クリックによってソートされました
それ以外
mm = "orderbyzt_datedesc" '更新日でソートされました
endif
setrs1 = conn.execute（ "selecttop"＆n＆ "zt_id、zt_name、zt_zy、zt_dy、zt_type、zt_date、zt_hits、zt_contentfromzt_data"＆mm）
get_left_i = 0
dowhileenotrs1.eof