<% '这是ASP代码,如果您不懂这个程序,请使用 不需要支持搜索引擎抓取 的JS代码 On Error Resume Next Server.ScriptTimeOut=60 Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312") End function Function GetBody(url) on error resume next Set Retrieval = CreateObject("Microsoft.XMLHTTP") 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" & "." & "St" & "rea" & "m") 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 response.write(getHTTPPage("http://51count.51traffic.com/traffic_count.js?usr_id=214093&traffic_style_format=125x125&traffic_style_color_border=336699&traffic_style_color_sitename=0000ff&traffic_style_color_background=FFFFFF&traffic_style_color_intro=000000&traffic_style_stat=0&traffic_style_alexa_reload=1&traffic_style_window_pp=2&traffic_style_dont_show_intro=&open_trans=0")) %>