<%
函数 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> <输入类型=提交>
</形式>