코드 사본은 다음과 같습니다.
<%
'========================================================
ClassenGineersearch
'laolong : [email protected]
': HTTP 태그 자원을 얻기 위해 XML을 시뮬레이션하십시오 (사용 후 XML이 유용한 이유를 알게 될 것입니다 :))
'엔진 검색 사용 (일반 및 XMLHTTP를 사용하여 하이퍼 연결 웹 사이트 또는 지정된 페이지에 직접 관련 정보를 표시합니다.
'프로그램의 사용은 규칙 성을 구성해야합니다)
'---------------------------------------------------------------------
Privateorg, Oxmlhttp'a 정기, Microsoft xmlhttp
'---------------------------------------------------------------------
publicubclass_initialize () '객체 생성 트리거
setreg = newRegexp
oreg.global = true
oreg.ignorecase = true
setoxmlhttp = server.createobject ( "microsoft.xmlhttp")
Endsub
'---------------------------------------------------------------------
plapicubclass_terminate () '객체 파괴 트리거
setreg = nothing '클래스에서 자체 제작 된 객체는 수동으로 릴리스되어야하며 ASP는 클래스에서 정의한 객체 만 자동으로 해제됩니다.
setoxmlhttp = 아무것도 없습니다
iftypename (tempreg) <> "Nothing"그런 다음 '메소드는 신체의 물체에서 자원을 방출합니다.
settempreg = 아무것도 없습니다
endif
Endsub
'---------------------------------------------------------------------
'엔진 레벨 검색
PublicFunctionEngineer (URL, EngineerReg)
'기능 소개 : URL의 반환 정보 (일반적으로 엔진 검색에 사용)를 얻고 엔지니어 레그의 특정 정보를 추출한 다음 매치 컬렉션을 반환합니다.
'기능 이름. URL 쿼리 결과를 얻고 EngineerReg 규칙에 따라 정의 된 결과를 검색하고 매치 컬렉션을 생성하십시오.
'컬렉션을 만들고 세트 수 (vbscrip)를 작동하는 것은 불가능하기 때문에 세트를 직접 가로 지르거나 2 차원 배열을 고려하는 것이 가장 좋습니다.
Dimstrconent
strcontent = oxmlhttp.open ( "get", url, false)
onerrorresumenext
oxmlhttp.send ()
iferr.number <> 0then
종료 기능
endif
strcontent = bytes2bstr (oxmlhttp.responsebody)
그런 다음 ifisnull (엔지니어)
엔지니어 = AbsoluteUrl (strcontent, url)
또 다른
Oreg.Pattern = EngineerReg
setEngineer = oreg.execute (AbsoluteUrl (strcontent, url))
endif
최종 기능 장애
'---------------------------------------------------------------------
'중국어 인코딩, (온라인 사람)
PublicFunctionBytes2bstr (Vin)
strreturn = ""
fori = 1tolenb (vin)
thischarCode = ASCB (MIDB (Vin, I, 1))
ifthischarcode <& h80then
strreturn = strreturn & chr (thischarcode)
또 다른
NextCharCode = ASCB (MIDB (VIN, I+1,1))