推奨: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がコード内で最初の画像アドレスを取得するにはどうすればよいですか「パターンをもう一度変更する」コードを検出してコードを検出します。