<%
response.expires = -1
response.addheader "cache-control","no-cache"
Response.AddHeader "Pragma","no-cache"
wd=Request("d")
If Request("s")="sogous" Then
SoGouUrl="http://www.sogou.com/web?query="&wd
Else
SoGouUrl="http://www.sogou.com/web?query=site%3A"&wd
End If
TempStr= getHTTPPage(SoGouUrl)
dim SoGouWebSite
set reg=new Regexp
reg.Multiline=True
reg.Global=Flase
reg.IgnoreCase=true
reg.Pattern="<!--resultbarnum:((.|\n)*?)-->条结果"
Set matches = reg.execute(TempStr)
For Each match1 in matches
SoGouWebSite=match1.Value
Next
Set matches = Nothing
Set reg = Nothing

SoGouWebSite=Replace(SoGouWebSite,"<!--resultbarnum:","")
SoGouWebSite=Replace(SoGouWebSite,"-->条结果","")
SoGouWebSite=Replace(SoGouWebSite," ","")
SoGouWebSite=Replace(SoGouWebSite,",","")
SoGouWebSite=Replace(SoGouWebSite,"","")

If SoGouWebSite="" Then
  If Request("s")="sogous" Then
    Response.Write ("document.write (""<a href='http://www.sogou.com/web?num=10&query="&wd&"&page=10' target='_blank' title='数据获取出错，请稍后重新查询！&#10;安美奇 WWW.XAMQ.COM'><font color=#999999><b>x</b></font></a>"");")
  Else
    Response.Write ("document.write (""<a href='http://www.sogou.com/web?query=site%3A"&wd&"' target='_blank' title='数据获取出错，请稍后重新查询！&#10;安美奇 WWW.XAMQ.COM'><font color=#999999><b>x</b></font></a>"");")
  End If
Else
  If Request("s")="sogous" Then
    Response.Write ("document.write (""<a href='http://www.sogou.com/web?num=10&query="&wd&"&page=10' target='_blank' title='"&SoGouWebSite&"&#10;"&wd&"'>"&SoGouWebSite&"</a>"");")
  Else
    Response.Write ("document.write (""<a href='http://www.sogou.com/web?query=site%3A"&wd&"' target='_blank' title='"&SoGouWebSite&"&#10;"&wd&"'>"&SoGouWebSite&"</a>"");")
  End If
End If

Function getHTTPPage(Path)
        t = GetBody(Path)
        getHTTPPage=BytesToBstr(t,"gb2312")
End function

Function GetBody(url) 
        on error resume next
        Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
        	Retrieval.SetTimeOuts 100,100,100,300
'setTimeouts的参数顺序也是固定的，按顺序为：域名解析超时时间（resolveTimeout）、连接超时时间（connectTimeout）、数据发送超时时间（sendTimeout）、数据接收超时时间（receiveTimeout）。
        With Retrieval 
        .Open "Get", url, False, "", "" 
        .Send 
        GetBody = .ResponseBody
        End With 
        Set Retrieval = Nothing 
End Function

Function BytesToBstr(body,Cset)
        dim objstream
        set objstream = Server.CreateObject("ado"&"db.str"&"eam")
        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
%>