Я видел, что многие друзья были обмануты без причины, поэтому я специально выпустил эту систему запросов, чтобы не обмануть снова!
Как использовать очень просто:
Прямо введите доменное имя или имя веб -сайта другой стороны, поддержать китайский и английский! Нажмите, чтобы запросить
Кода -копия выглядит следующим образом:
<%@Language = "vbscript" codepage = "936"%>
<%
OnerRorResumenext
FF = "Мусор, это мусор, лжец, бесстыдный, не покупайте его, обманывайте деньги, мусорное пространство, лучшее в мусоре, мусор в мусоре, часто отключенные, закрытые без причины"
ifrequest.form ("fackbox") <> "" then
ff = reply (reply (request.form ("zff"), ","), chr (13), ",")
Эндиф
ifrequest.form ("ST") = "baidu" then
Url = "http://www.baidu.com/s/"
Эндиф
ClassPostform
Publicform
FunctionAdditem (ключ, значение)
'Onerrorresumenext
Dimtempstr
Iffform = "" then
form = key+"="+server.urlencode (trim (value))
Еще
form = form+"&"+key+"="+server.urlencode (trim (value))
Эндиф
Конечная функция
Endclass
Functionopenxhttp (Quurl, Qustry)
Setxml = createObject ("microsoft.xmlhttp")
Xml.open "Get", Quurl & "?" & Quustr, false
Xml.setrequestheader "Content-Type", "Application/xww-form-urlencoded"
Xml.send
Issuccess = xml.responsebody
Xml.abort ()
Setxml = ничего
SetByTessTream = createObject ("adodb.stream")
Bytesstream.Type = 2
Bytesstream.Open
Bytesstream.WriteTexTissuccess
Bytesstream.position = 0
Bytessstream.charset = "gb2312"
Bytesstream.position = 2
StringReturn = bytesstream.readtext
Bytesstream.close
SetByTessTream = ничего
Openxhttp = stringterurn
Конечная функция
'Объявите сферу перехвата
FunctionGetKey (html, старт, последний)
fileArray = split (html, start)
FileArray2 = Split (FileArray (1), Last)
GetKey = fileArray2 (0)
Конечная функция
Functionsearcht (byvalstrdomain, byvalkey, byvalt)
keys = "site:" & strdomain & "" & key