<%
''''''''''''''壊れた剣のコメント''''''''''''''''''''''
''''strText は切り取られるセクションの内容です''''''''''''
''''strStarTag は切り取られるコンテンツの開始点です''''''''''
''''strEndTag は切り取られるコンテンツの終わりです''''''''''
''''GetText の戻り値は切り取られたコンテンツです''''''''''''''
''''''''''''コメント終了''''''''''''''''''
関数 GetText(strText, strStartTag, strEndTag)
dim intStart
intStart = instr(strText, strStartTag)
intStart の場合
intStart = intStart + len(strStartTag)
intEnd = InStr(intStart, strText, strEndTag)
GetText = Mid(strText, intStart, intEnd - intStart)
それ以外
GetText=
終了する場合
終了機能
%>
<%
''''''''折れた剣のコメント''''''''''
''''''''次の関数は無視できます''''''''''
''''''''エントリ関数 getHTTPPage を使用するだけです''''''''
''''''''path は読み取られる Web ページのアドレスです''''''''
''''''''getHTTPPage は読み取った Web ページのコンテンツを返します''
'''''''' ここで注目すべきは、読み込まれている Web ページのコードが gb2312 である場合です。
「gb2312 の場合は、gb2312 を使用します。UTF-8 の場合は、UTF-8 に変更します。」
''''''''コメント終了''''''''''
関数 getHTTPage(パス)
t = GetBody(パス)
getHTTPPage=BytesToBstr(t,gb2312)
終了機能
関数 GetBody(url)
エラー時は次から再開
取得 = CreateObject(Microsoft.XMLHTTP) を設定します
検索あり
.Open get、url、False、、
。送信
GetBody = .ResponseBody
で終わる
取得 = なしを設定します
終了機能
関数 BytesToBstr(body,Cset)
薄暗いオブジェクトストリーム
set objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.本体の書き込み
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 何も設定しない
終了機能
%>