代码: 
<% 
Function GetBody(weburl)  
    Set Retrieval = Server.CreateObject("MSXML2.XMLHTTP")  
    With Retrieval  
        .Open "Get", weburl, False, "", ""  
        .setRequestHeader "referer","http://www.devdao.com/"’想改什么就改什么 
        .Send  
        GetBody = .ResponseBody 
    End With  
    GetBody = BytesToBstr(GetBody,"GB2312") 
    Set Retrieval = Nothing  
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 

Response.Write(GetBody("http://www.devdao.com/referer.asp")) 
%>