<%
함수 bytes2BSTR(vIn)
strReturn =
i = 1의 경우 LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
ThisCharCode < &H80이면
strReturn = strReturn & Chr(ThisCharCode)
또 다른
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
나는 = 나는 + 1
종료 조건
다음
bytes2BSTR = ubb(strReturn)
기능 종료
함수 dq(키)
희미한 XmlHttp
XmlHttp = CreateObject(Microsoft.XMLHTTP) 설정
XmlHttp.Open GET,http://www.baidu.com/s?wd=&key&&pn=&request(pn), false
XmlHttp.setRequestHeader 콘텐츠 유형, 텍스트/XML
XmlHttp.보내기
dq = bytes2BSTR(XmlHttp.responseBody)
기능 종료
기능 BR(Str)
Str = 바꾸기(Str,{br},<br>)
Str = 바꾸기(Str,vbcrlf,<br>)
Str = 바꾸기(Str,<br> <br>,<br>)
Str = 바꾸기(Str,<br><br>,<br>)
Str = 바꾸기(Str,<br><br>,<br>)
BR = Str
기능 종료
함수 ubb(str)
instr(str,找到相关网页) = 0이면
ubb = 没有搜索到任何内容
종료 기능
종료하면
str = 바꾸기(str,vbcrlf,{br})
str = 바꾸기(str,<br>,{br})
str = 바꾸기(str,</td>,</td>&vbcrlf)
str = 바꾸기(str,<td,vbcrlf&<td)
희미하게,성냥,성냥
re = 새 RegExp 설정
re.Global = 참
re.IgnoreCase = 참
re.Pattern=.*/<td class=f>(.*)/<//td>
일치 항목 설정 = re.Execute(str)
경기의 각 경기에 대해
ubb=ubb&BR(일치.값)
다음
re.Pattern=(/- /<a .[^/<]*>확대도 사진/</a>)
ubb = re.replace(ubb,)
re.Pattern=(/<a class=m.[^/<]*>.[^/<]*/</a>)
ubb = re.replace(ubb,)
re.Pattern=(/<font color=#008000>.[^/<]*/<//font>)
ubb = re.replace(ubb,<hr>) '당신이 좋아하는 것
ubb = 바꾸기(ubb,<td 클래스=f>,)
ubb = 바꾸기(ubb,</td>,)
ubb = BR(UBB)
re.Pattern=(找到상关网页.*秒)
일치 항목 설정 = re.Execute(str)
일치 = 일치(0) 설정
ubb = ubb & 매치 & <br>
str = 바꾸기(str,</div>,</div>&vbcrlf)
re.Pattern=/<div class=p>(.*)/<//div>
일치 항목 설정 = re.Execute(str)
일치 = 일치(0) 설정
희미한 링크
더링크 = 매치
re.Pattern=href=s?(.[^>]*)
TheLink = re.replace(TheLink,href=$1)
ubb = ubb & TheLink
종료 기능
len(request(wd)) > 0이면
response.write dq(요청(wd))
종료하면
%>
<양식 방법=포스트 작업=?>
<입력 유형=텍스트 이름=wd> <입력 유형=제출>
</form>