<%
Function baidu(site)
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET","http://www.baidu.com/s?wd=site:"&site, False
xml.Send
rt=BytesToBstr(xml.responseBody,"gb2312")
Set xml = Nothing
Response.Write rt
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
baidu(Request.QueryString("site"))
%>
我一个TXT文件放了这么一些代码。被卡巴当成病毒给杀了。怎么都想不明白！

哎``就是这个卡巴报病毒，其他的都不报，郁闷。