推奨：ASPプログラミングの20の非常に便利な例（i） 1. ASPを使用してWebサイトの仮想物理パスを決定する方法回答：Mappathメソッドを使用：server.mappath（）％> 2を知るにはどうすればよいですか？回答：リクエストオブジェクトメソッドを使用してください：
しばらくすると、RSSサブスクリプションは、RSSフィードを動的に生成するASPコードを書きました映画サイトはそれを直接入手して使用するので、他のタイプのサイトを変更する場合も使用できます。生成されたRSSフィードはUTF-8によってエンコードされ、FeedValidator.orgによって検証され、RSS 2.0およびAtomと互換性があります。
使用方法：次のコードをrss.aspとして保存し（UTF-8形式で保存することを忘れないでください）、RSS提出ポータルを見つけて、フィードアドレスを送信することです。あなたのドメイン名/rss.asp
デモ：http：//www.366mv.cn
コードは、コメントに従って対応する情報を変更してください
| <％@言語= vbscript codepage = 65001％> <％ session.codepage = 65001 Response.charset = utf-8 '======================================================= ============================================== 'Copyright（c）2005-2007、Sour Liu Liu Film and Television（[url] www.366mv.cn [/url]）All rights reserved。 '======================================================= ============================================== '名前：rss.asp '説明：RSSフィードを動的に生成します。 '======================================================= ============================================== ％> <！ - ＃include file = inc/conn.asp-> <？xmlバージョン= 1.0 encoding = utf-8？> <rssバージョン= 2.0 xmlns：atom = http：//www.w3.org/2005/atom> <％ タイトル= souliao liu映画とテレビはあなた自身の名前にそれを変更します Response.Write <Channel>＆Chr（13） Response.Write <Atom：link href = http：///&maxz_2&/xml.asp rel = self type = application/rss xml/>＆ch（13） Response.Write <Title>最新の更新ビデオ - ＆Title＆</title>＆chr（13） respons.write <link> http：//＆maxz_2＆</link>＆chr（13） Response.Write <説明>＆Title＆ - オンラインで1万ビデオをご覧ください。無料の映画、オンライン映画、TVB、日本のドラマ、韓国ドラマ、アニメーション、サイエンスフィクション、ホラー、ロマンス、テレビシリーズ、大ヒット、新年の映画... </description>＆chr（13） Response.Write get_left（15,0） '更新日でソートされた最初の15ビデオを表示します Response.Write </channel>＆chr（13） 関数re（str） そうでない場合は（str） re =置換（str、＆、＆＆） re =交換（re、<、<） re =交換（re、>、>） re =交換（re、 '、＆apos;） re =交換（re ,,、） ifを終了します エンド関数 関数get_left（n、m） n = cint（n）：m = cint（m） m = 1の場合 mm = zt_hits desc '' '' 'sorted by zt_hits desc' それ以外 mm = zt_date desc '' '' sorted by zt_date desc 'で注文します ifを終了します rs1 = conn.executeを設定します（top＆n＆zt_id、zt_name、zt_zy、zt_dy、zt_type、zt_date、zt_hits、zt_data＆mmのzt_contentを選択） get_left_i = 0 rs1.eofではありません get_left_i = get_left_i 1 get_left = get_left＆<item>＆chr（13） get_left = get_left＆<title>＆re（rs1（zt_name））＆</title>＆chr（13） get_left = get_left＆<link> http：//＆maxz_2＆/＆get_classenname（rs1（zt_type））＆/＆rs1（zt_id）＆</link>＆chr（13） get_left = get_left＆<説明> <！[cdata [<p> category：<a href = http：//＆maxz_2＆/＆get_classenname（rs1（zt_type））＆>＆＆get_classname（rs1（zt_type））＆</a> </ p/p > <p>主演：＆rs1（zt_zy）＆</p> <p>プロット：＆re（rs1（zt_content））＆</p>]> </description>＆chr（13） get_left = get_left＆<guid> http：//＆maxz_2＆/＆get_classenname（rs1（zt_type））＆/＆rs1（zt_id）＆</guid>＆chr（13） get_left = get_left＆<category> <！[cdata [＆get_classname（rs1（zt_type））＆]]> </category>＆chr（13） get_left = get_left＆<pubdate>＆dateTorfc822（rs1（zt_date））＆</pubdate>＆chr（13） get_left = get_left＆</item>＆chr（13） get_left_i> = nの場合、終了します rs1.movenext ループ rs1.close エンド関数 関数DateTorfc822（byval dtaval） dim strcurlocale：strcurlocale = getLocale（） setlocale（en-gb） dtaval = cdate（dtaval） DateTorfc822 = weekdayName（平日（dtaval）、true）＆＆_ 右（0＆day（dtaval）、2）＆＆_ 月間（月（dtaval）、true）＆＆_ 年（dtaval）＆＆_ 右（0＆hour（dtaval）、2）＆：＆_ 右（0＆分（dtaval）、2）＆：＆_ 右（0＆second（dtaval）、2）＆＆_ 0800 setlocale（strcurlocale） エンド関数 ％> </rss> |
共有：ASPがコード内で最初の画像アドレスを取得するにはどうすればよいですか「パターンをもう一度変更する」コードを検出してコードを検出します。