나는 많은 친구들이 이유없이 속임수를 찍는 것을 보았습니다.
사용 방법은 매우 간단합니다.
상대방의 도메인 이름 또는 웹 사이트 이름을 직접 입력하고 중국어와 영어를 지원하십시오! 쿼리를 클릭하십시오
코드 사본은 다음과 같습니다.
<%@language = "vbscript"CodePage = "936"%>
<%
onerrorresumenext
FF = "쓰레기, 쓰레기, 거짓말 쟁이, 부끄러운, 사지 마지, 사치 돈, 쓰레기 공간, 쓰레기에서 최고, 쓰레기의 쓰레기, 종종 분리 된 이유없이 폐쇄됩니다."
ifrequest.form ( "checkbox") <> "" "그런 다음
ff = replace (replace (request.form ( "zff"), "", "), chr (13),", ")
endif
ifrequest.form ( "st") = "baidu"
url = "http://www.baidu.com/s/"
endif
classpostform
publicform
functionadditem (키, 가치)
'onerrorresumenext
dimtempstr
iffform = ""그런 다음
form = key+"="+server.urlencode (trim (value))
또 다른
form = form+"&"+key+"="+server.urlencode (trim (value))
endif
최종 기능 장애
엔드 클래스
functionopenxhttp (quurl, quster)
setxml = createobject ( "microsoft.xmlhttp")
xml.open "get", quurl & "?"& Quster, false
XML.SetRequestHeader "Content-Type", "Application/X-www-form-urlencoded"
xml.send
issuccess = xml.responsebody
xml.abort ()
setxml = 아무것도 없습니다
setByTessTream = createObject ( "adodb.stream")
바이트 스트림. 타입 = 2
바이트 스트림
bytestream.writetextissuccess
바이트 스트림. 위치 = 0
bytesttream.charset = "gb2312"
바이트 스트림. 위치 = 2
StringReturn = BytestReam.ReadText
바이트 스트림 .close
setByTessTream = 아무것도
OpenXhttp = StringReturn
최종 기능 장애
'인터셉트의 범위를 선언하십시오
functiongetKey (HTML, 시작, 마지막)
filearray = split (html, 시작)
filearray2 = split (filearray (1), 마지막)
getkey = filearray2 (0)
최종 기능 장애
functionsearcht (byvalstrdomain, Byvalkey, Byvalt)
키 = "사이트 :"& strdomain & ""& key