代:
<%
関数 GetBody(weburl)
Set Retrieval = Server.CreateObject("MSXML2.XMLHTTP")
検索あり
.Open "Get"、weburl、False、""、""
.setRequestHeader "referer"," http://www.devdao.com/"'想改什么就改什么
。送信
GetBody = .ResponseBody
で終わる
GetBody = BytesToBstr(GetBody,"GB2312")
取得 = なしを設定します
終了関数
Function BytesToBstr(body,Cset)
薄暗いオブジェクトストリーム
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.本体の書き込み
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 何も設定しない
関数終了
Response.Write(GetBody(" http://www.devdao.com/referer.asp "))
%>