xmlhttp を使用して ASP で Web ページのコンテンツを取得する方法は、一般的により一般的であり、文字を通じて Web ページのコンテンツをインターセプトします。
次のようにコードをコピーします。url=http://www.csdn.net/
wstr=getHTTPPage(url)
start=Newstring(wstr,Resource Selection<!-- Download-->)
over=Newstring(wstr,<div class) =friendlink>)
body=mid(wstr,200,500)
response.write body
Function getHTTPPage(url)
dim objXML
set objXML=createobject(MSXML2.XMLHTTP)'define
objXML.open GET,url,false'Open
objXML.send()'Send
If objXML.readystate<>4 then 'クライアントが受け入れられるようにドキュメントが解析されたかどうかを判断します戻りメッセージ
exit 関数
End If
getHTTPPage=bBytesToBstr(objXML.responseBody)' は情報を返し、関数定義のエンコーディング
セット
を使用しますobjXML=nothing'Close
if err.number<>0 then err.Clear
End Function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr )
関数の終了
Function bBytesToBstr(body)
dim objstream
set objstream = CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = gb2312
'元のデフォルトの UTF-8 エンコーディングを GB2312 エンコーディングに変換します。それ以外の場合は、XMLHTTP を直接使用して、中国語の文字を含む Web ページを呼び出します。意味不明になります
bBytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
end Function
関数BytesToBstr(body)
dim objstream
セット objstream = CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = utf-8
'元のデフォルトの UTF-8 エンコーディングを GB2312 エンコーディングに変換します。そうしないと、XMLHTTP を直接使用して中国語の文字を含む Web ページを呼び出すと、コードが文字化けします。
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
end Function