小弟最近使用了一个别人写的获取百度相关搜索词的代码，发现代码比较精简，获取的是百度搜索结果页面的相关搜索结果。因为我比较菜，看了代码半天没有看懂他是怎么样提取出来的这些词，下面发代码希望高手帮我解释一下。
HTML code:
<%
Dim splitStr,splitStrs
splitStrs = "<A href=../word.asp?key=" '开始
splitStrss = " target=_blank>" '中间
splitStr = "</A><br>" '结束
Function GetPage(url,charset)
Set xhr = Server.CreateObject("Microsoft.XMLHTTP")
xhr.open "Get",url,False
xhr.send
GetPage = BytesToBstr(xhr.responseBody,charset)
End Function
Function BytesToBstr(body,charSet)
dim objstream
set objstream = Server.CreateObject("Adodb." & "Stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = charSet
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function getBaidu(ByVal key)
url="http://www.baidu.com/baidu?word=" & Server.urlEncode(key)
start = "<td style=""font-size:14px;font-weight:bold;height:40px;width:70px;"">相关搜索</td>"
result = GetPage(url,"gb2312")
getBaidu = ""
If InSt
