最近人気があったので、収集するのは好きではありませんが、コレクションの原則を研究することに非常に興味があります。私はオンラインでコレクションの一般的な機能を手に入れ、それらを研究し、実際にそれらを実践しました。結果は成功しました。効率の問題は別として、収集の原則は複雑ではありません。検索バーに「取得」を入力して、その原則を表示できます。コレクションの例は次のとおりです。
コードコピーは次のとおりです。
<%@言語= "vbscript" codepage = "65001"%>
<%Response.CodePage = 65001%>
<%response.charset = "utf-8"%>
<%server.scripttimeout = 99999999
Response.Expires = 0
Response.ExpiresAbsolute = now()-1
response.addheader「プラグマ」、「ノーキャッシュ」
response.addheader「キャッシュコントロール」、「プライベート」
Response.cachecontrol = "no-cache"
%>
<%
'関数を宣言して、ターゲット情報を取得し、XMLコンポーネントを介して実装します。
functiongeturl(url)
setretrieval = server.createObject( "msxml2.xmlhttp")
withretrieval
.open "get"、url、false
。送信
if.status <> 200then 'は、クライアントに返信メッセージを受け入れるようにドキュメントが解析されたかどうかを決定します
exitFunction
endif
'バイナリから文字列
geturl = stb(.responsebody)
終わりに
'取得した情報を確認します。情報の長さが100未満の場合、傍受が失敗したことを意味します
エンド機能
'バイナリを文字列にめくり、それ以外の場合はargledが表示されます!
functionstb(vin)
ConstadTypetext = 2
dimbytesstream、stringreturn
setBytessTream = server.createObject( "adodb.stream")
withbytesstream
.type = adtypetext
。開ける
.writeTextVin
.position = 0
.charset = "gb2312"
.position = 2
stringreturn = .readText
。近い
終わりに
SetBytessTream =何もない
stb = stringreturn
エンド機能
functionnewstring(wstr、strng)
新聞= string(lcase(wstr)、lcase(strng))
ifnewstring <= 0thennewstring = len(wstr)
エンド機能
'インターセプトされた形式を宣言し、開始から開始し、終了します
functiongetKey(html、start、over)
start = newstring(html、start)
Over = NewString(HTML、OVER)
getKey = MID(HTML、Start、Over-Start)
エンド機能
dimsoftid、url、html、タイトル
'Baiduのコレクションは知っています
fori = 1to100
url = "http://zhidao.baidu.com/question/10000"&i& ".html"
html = geturl(url)
質問= getKey(html、 "<cq>"、 "</cq>")
回答= getKey(html、 "<ca>"、 "</ca>")
respons.write(question& "<br/>")