Url = "http://www.baidu.com/s?q1="&word&"&rn=10"
content = getHTTPPage(Url)

'**********  ASP抓取远程页面功能类函数  **********

function getHTTPPage(url)  
         dim Http  
         set Http=server.createobject("MSXML2.XMLHTTP")  
         Http.open    "GET",url,false  
         Http.send()  
         if Http.readystate<>4 then    
         exit function  
         end if  
         getHTTPPage=bytesToBSTR(Http.responseBody,"UTF-8")  
         set http=nothing  
         if err.number<>0 then    
   err.Clear  
   end if      
   end function  

   Function BytesToBstr(body,Cset)  
         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 = Cset  
             BytesToBstr = objstream.ReadText    
             objstream.Close  
             set objstream = nothing  
   
   End Function
'**********  函数调取结束  *********   
%>

<%
'字符串函数获取标题和内容
temp=1
For i=1 To 9
Len1 = Instr(temp,content,"<tr><td class=f>")
Len2 = Instr(len1+1,content, "</td></tr></table>")
Text1=mid(content,Len1+16,Len2-(Len1+16))
Text2=mid(content,Len2+18)
temp=(Len2+1)
len1=""
len2=""
if instr(text1,domain)>0 then
text1=Replace(text1,"""","")
Response.Write "<div class=key>搜索 <font color=red>"&word&"</font> 第<strong> <font color=red>"&i&"</font> </strong>个出现 "&domain&"<br>"&Text1&"<br></div>"

'更新并写入数据库内容
set rsdo=server.createobject("adodb.recordset")
    exec="select * from Dream_URL where domain_web='"&domain&"'"
rsdo.open exec,conn,1,3
rsdo("Ranking")=i
rsdo("datetime")=now()
rsdo.update
rsdo.close
set rsdo=nothing
conn.close
set conn=nothing

end if
Text2=""
Next
%>

   我想问一下高手，红字的那个是什么意思，应该怎么理解，能具体下描述吗，谢谢，各位了