脚本宝典收集整理的这篇文章主要介绍了ASP 中使用 HTTP 协议发送参数详解,脚本宝典觉得挺不错的,现在分享给大家,也给大家做个参考。
<%@LANGUAGE=“
vbSCRIPT“&nbs
p;CODEPAGE=“CP_ACP“%>
<ht
ML>
<head>
<
;meta http-equiv=“Content
-ty
PE“ content=“text/html; charset=Shift-JIS“>
<SCRIPT LANGUAGE=“JavaScript“>
<!--
function SelText(){
VAR oRangeRef = document.body.createTextRange();
alert(oRangeRef.text);
}
//-->
</SCRIPT>
<%
function getHTTPPage(url)
dim Http
set Http=server.createobject(“MS
XML2.XMLHTTP“)
'Http.open “GET“,url,false
Http.open “POST“,url,false
Http.send()
if Http.ready
state<>4 then
ex
IT function
end if
'getHTTPPage=by
testoBSTR(Http.responseBody,“GB2312“)
getHTTPPage=bytesToBSTR(Http.responseBody,“Shift-JIS“)
set http=nothing
if err.number<>0 then
err.Clear
end if
end function
Function BytesToBstr(body,Cset)
dim objstre
am 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
%>
<title></title>
</head>
<body onload=“SelText()“>
<%
Dim Url,Html
'Url=“http://localhost/
csharpWebAppTest/WebForm1.aspx?
tmp=33333“
'Url=“http://localhost/CSharpWebAppTest/WebForm1.aspx“
Url= “http://www.whois.sc/221.216.169.120“
'Url=“http://localhost/akira/default.asp“
Html = getHTTPPage(Url)
Response.write Html
%>
</body>
</html>