私は多くの友人が理由もなく欺かれているのを見たので、私はこのクエリシステムを特別にリリースして、再び欺かれないようにしました！
使用方法は非常にシンプルです：
相手のドメイン名またはウェブサイト名を直接入力し、中国語と英語をサポートしてください！クリックしてクエリをします
コードコピーは次のとおりです。
<％@言語= "vbscript" codepage = "936"％>
<％
onerrorresumenext
ff = "ゴミ、それはゴミ、嘘つき、恥知らずで、買わないで、お金をcheしないで、ごみで最高のゴミ、ゴミのゴミ、しばしば切断され、理由もなく閉鎖されることがよくあります」
ifrequest.form（ "チェックボックス"）<> "" then
ff =置き換え（request.form（ "zff"）、 ""、 "）、chr（13）、"、 "）
endif
ifrequest.form（ "st"）= "baidu" then
url = "http://www.baidu.com/s/"
endif
classpostform
パブリックフォーム
functionadditem（key、value）
'onerrorresumenext
dimtempstr
iffform = "" then
form = key+"="+server.urlencode（trim（value）））
それ以外
form = form+"＆"+key+"="+server.urlencode（trim（value）））
endif
エンド機能
エンドクラス
functionopenxhttp（quurl、qust）
setXml = createObject（ "microsoft.xmlhttp"）
xml.open "get"、quurl＆ "？"＆qust、false
xml.setRequestheader "Content-Type"、 "Application/x-www-form-urlencoded"
xml.send
Issuccess = xml.responsebody
xml.abort（）
setxml =何もない
setBytessTream = createObject（ "adodb.stream"）
bytesstream.type = 2
bytesstream.open
bytesstream.writeTextissuccess
bytesstream.position = 0
bytesstream.charset = "gb2312"
bytesstream.position = 2
stringreturn = bytesstream.readText
bytesstream.close
SetBytessTream =何もない
openxhttp = stringreturn
エンド機能
'インターセプトの範囲を宣言します
functiongetKey（html、start、last）
filearray = split（html、start）
filearray2 = split（filearray（1）、last）
getKey = filearray2（0）
エンド機能
functionsearcht（byvalsstrdomain、byvalkey、byvalt）
keys = "site："＆strdomain＆ ""＆key