ASPコードコレクションの実装に関するチュートリアル

ASPコレクションコードを実装する方法を知っていますか？今日、Foxinの編集者がASPコードコレクションの実装に関するチュートリアルを紹介します。興味のある友達は、編集者の手順に従って特定のコンテンツを確認してください。

コレクションが始まります

最初のステップは、収集するページを分析することです。

ブラウザを使用して、収集するページを開きます（http://sports.sina.com.cn/k/2008-09-15/04593948756.shtmlなど、他のページを使用できます）。開いた後、右クリックしてソースファイルを確認します。

2番目のステップは、収集するコンテンツの場所を見つけることです。

このページでタイトルとコンテンツを収集したい場合：

タイトルは<h1 id = "artibodytitle" style = "color：＃03005c;">と</h1>の間です

コンテンツは、コンテンツの開始 - >とコンテンツエンド - >テキストのコンテンツの間にあります

場所の独自性に注意してください。それを見つけた後、編集の検索を使用して、可能な限りユニークで一意であるかどうかを確認できます。そうでない場合は、可能な限り最初に。動作しない場合は、交換するだけです。

ステップ3：コードを書きます

<％

'機能：ASPコレクションコード

著者：ワンズドン

'注：元のプログラムをサポートしてください、この情報を保持してください、ありがとう

url = "http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml"

str = gethttppage（url）

title = strcut（str、 "<h1 id =" "artibodytitle" "style =" "color：＃03005c;" ">"、 "</h1>"、2）

content = strcut（str、 "<！ - テキストコンテンツがbegin->"、 "<！ - テキストコンテンツend->"、2）

Response.Write "News Title <br> <b>"＆ "</b> <br> <br> <br> <br> <br>ニュースコンテンツ：<br>"＆コンテンツ

関数gethttppage（url）

エラーの再開時に次に再開します

dim http

http = server.createobject（ "microsoft.xmlhttp"）を設定します

http.open "get"、url、false

http.send（）

http.ReadyState <> 4の場合

出口機能

ifを終了します

gethttppage = bytestobstr（http.responsebody、 "gb2312"）

http = Nothingを設定します

err.number <> 0の場合

response.write "<p align = 'center'> <font color = 'red'> <b>ファイルコンテンツの取得でエラーが発生したサーバー</b> </font> </p>"

err.clear

ifを終了します

エンド関数

関数bytestobstr（body、cset）

DIM OBJSTREAM

objstream = server.createObject（ "adodb.stream"）を設定します

objstream.type = 1

objstream.mode = 3

objstream.open

objstream.write body

objstream.position = 0

objstream.type = 2

objstream.charset = cset

bytestobstr = objstream.readtext

objstream.close

objstream = Nothingを設定します

エンド関数

'インターセプトストリング、1。開始文字と終了文字を含み、2。

function strcut（strcontent、startstr、endstr、cuttype）

dim strhtml、s1、s2

strhtml = strcontent

エラーの再開時に次に再開します

ケースカットタイプを選択します

ケース1

s1 = strhtml、startstr）

s2 = strunt（s1、strhtml、endstr）+len（endstr）

ケース2

S1 = strhtml、startstr）+len（startstr）

S2 = strunt（S1、strhtml、endstr）

[選択]を終了します

エラーの場合

strcute = "<p align = 'center'>必要なものは何も見つかりません。</p>"

err.clear

出口機能

それ以外

strcut = mid（strhtml、s1、s2-s1）

ifを終了します

エンド関数

％>

上記は、ASPコレクションコードの実装に関するチュートリアルです。エディターが取得したコンテンツを出力したので、これらのコンテンツをデータベースに書き込むことができ、データは独自のコンテンツになります。