<%
函數 bytes2BSTR(vIn)
字串回傳 =
對於 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(key)
暗淡的 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 = 強度
結束功能
函數 ubb(str)
if instr(str,找到相關網頁) = 0 那麼
ubb = 沒有搜尋到任何內容
退出功能
結束如果
str = 替換(str,vbcrlf,{br})
str = 替換(str,<br>,{br})
str = 替換(str,</td>,</td>&vbcrlf)
str = 替換(str,<td,vbcrlf&<td)
昏暗的重新，匹配，匹配
設定 re = 新正規表示式
re.Global = True
re.IgnoreCase = True
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 class=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(請求(wd)) > 0 那麼
回應.write dq(請求(wd))
結束如果
%>
<表單方法=後操作=?>
<輸入類型=文字名稱=wd> <輸入類型=提交>
</形式>