ฉันเห็นว่าเพื่อนหลายคนถูกหลอกโดยไม่มีเหตุผลดังนั้นฉันจึงปล่อยระบบค้นหานี้เป็นพิเศษเพื่อหลีกเลี่ยงการถูกหลอกอีกครั้ง!
วิธีการใช้นั้นง่ายมาก:
ป้อนชื่อโดเมนหรือชื่อเว็บไซต์ของบุคคลอื่นโดยตรงสนับสนุนภาษาจีนและภาษาอังกฤษ! คลิกเพื่อสอบถาม
การคัดลอกรหัสมีดังนี้:
<%@language = "vbscript" codePage = "936"%>
-
onerrorresumenext
ff = "ขยะ, ขยะ, คนโกหก, ไร้ยางอาย, อย่าซื้อ, โกงเงิน, พื้นที่ขยะ, สิ่งที่ดีที่สุดในขยะ, ขยะในขยะ, มักจะตัดการเชื่อมต่อปิดโดยไม่มีเหตุผล"
ifrequest.form ("ช่องทำเครื่องหมาย") <> ""
ff = แทนที่ (แทนที่ (request.form ("zff"), "", "), chr (13),", ")
endif
ifrequest.form ("st") = "baidu" แล้ว
url = "http://www.baidu.com/s/"
endif
ชั้นเรียน
รูปแบบ
FunctionAddItem (คีย์, ค่า)
'onerrorresumenext
dimtempstr
iffform = "" แล้ว
form = key+"="+server.urlencode (trim (value))
อื่น
form = form+"&"+key+"="+server.urlencode (trim (value))
endif
endfunction
endclass
functionOpenxhttp (quurl, qustr)
setxml = createObject ("microsoft.xmlhttp"))
xml.open "get", quurl & "?" & qustr, 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
endfunction
'ประกาศขอบเขตของการสกัดกั้น
FunctionGetKey (HTML, Start, Last)
filearray = split (html, start)
filearray2 = split (filearray (1), สุดท้าย)
getKey = filearray2 (0)
endfunction
FunctionSearcht (byvalstromain, byvalkey, byvalt)
keys = "ไซต์:" & stromain & "" & คีย์