Saya melihat bahwa banyak teman ditipu tanpa alasan, jadi saya secara khusus melepaskan sistem kueri ini untuk menghindari tertipu lagi!
Cara menggunakannya sangat sederhana:
Langsung masukkan nama domain pihak lain atau nama situs web, dukung bahasa Mandarin dan Inggris! Klik untuk meminta
Salinan kode adalah sebagai berikut:
<%@Language = "vbscript" codepage = "936"%>
<%
OnerrorresumeNext
ff = "sampah, sampah, pembohong, tidak tahu malu, jangan membelinya, cheat uang, ruang sampah, yang terbaik dalam sampah, sampah di sampah, sering terputus, ditutup tanpa alasan"
ifRequest.Form ("kotak centang") <> "" Lalu
ff = ganti (ganti (request.form ("zff"), "", "), chr (13),", ")
Endif
ifrequest.form ("st") = "Baidu" lalu
Url = "http://www.baidu.com/s/"
Endif
ClassPostform
Public
FunctionAdditem (kunci, nilai)
'OnerRorresUMenext
Dimtempstr
Iffform = "" lalu
Form = Key+"="+server.urlencode (trim (value))
Kalau tidak
Form = form+"&"+key+"="+server.urlencode (trim (nilai))
Endif
Fungsi endfungsi
Endclass
Functionopenxhttp (quurl, qustr)
Setxml = createObject ("microsoft.xmlhttp")
Xml.open "get", quurl & "?" & Qustr, false
Xml.setRequestHeader "tipe konten", "Aplikasi/X-WWW-Form-Urlencoded"
Xml.send
Issuccess = xml.responseBody
Xml.abort ()
Setxml = tidak ada
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 = tidak ada
OpenXHTTP = StringReturn
Fungsi endfungsi
'Menyatakan ruang lingkup intersep
FunctionGetKey (html, start, last)
fileArray = split (html, mulai)
fileArray2 = split (fileArray (1), terakhir)
GetKey = fileArray2 (0)
Fungsi endfungsi
FunctionCarcht (ByValStrdomain, Byvalkey, Byvalt)
Keys = "Situs:" & Strdomain & "" & Key