ASPを使用して、リモートのWebページの指定されたコンテンツを取得します。
コードは次のとおりです。
<％
'ASPを使用して、リモートターゲットWebページの指定されたコンテンツを取得します。コードは、http://www.vevb.comを構築するためにGuangzhou Webサイトによって提供されます。
エラーの再開時に次に再開します
server.scripttimeout = 9999999
関数gethttppage（パス）
t = getBody（パス）
gethttppage = bytestobstr（t、gb2312）
エンド関数
機能ニューストリング（WSTR、STRNG）
newstring = strunt（lcase（wstr）、lcase（strng））
NewString <= 0の場合、NewString = Len（WSTR）
エンド関数
関数bytestobstr（body、cset）
DIM OBJSTREAM
objstream = server.createobject（adodb.stream）を設定します
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write？
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readtext
objstream.close
objstream = Nothingを設定します
エンド関数
関数getbody（url）
エラーの再開時に次に再開します
set retireval = createObject（microsoft.xmlhttp）
検索付き
.opeen get、url、false ,,,,,,,,,
。送信
GetBody = .ResponseBody
で終わります
setrieval =何もない
エンド関数
'ASPは、リモートWebページの指定されたコンテンツを開始し、開始します
dim wstr、str、url、start、over、dtime
a = start content 'ASPターゲットWebページコンテンツを取得してマーキングを開始します
b = end content 'asp asp webコンテンツエンドマークを取得する
url = http://sc.vevb.com/
wstr = gethttppage（url）
Start = NewString（WSTR、A）
オーバー= NewString（WSTR、B）
body = mid（wstr、start、offer-start）
Response.Write＆Body＆ '出力は、Webページコンテンツを取得しました
'ASPリモートWebページの指定されたコンテンツを取得する
％>
上記のコードは、指定されたWebページのコンテンツを取得できます。
コアコード：
'ASPは、リモートWebページの指定されたコンテンツを開始し、開始します
dim wstr、str、url、start、over、dtime
url = http://sc.vevb.com/
wstr = gethttppage（url）
body = wstr