ASP 中使用 HTTP 协议发送参数详解

时间:2021-05-28

<%@LANGUAGE=“VBSCRIPT“CODEPAGE=“CP_ACP“%>
<html>
<head>
<metahttp-equiv=“Content-Type“content=“text/html;charset=Shift-JIS“>
<SCRIPTLANGUAGE=“JavaScript“>
<!--
functionSelText(){
varoRangeRef=document.body.createTextRange();
alert(oRangeRef.text);
}
//-->
</SCRIPT>
<%
functiongetHTTPPage(url)
dimHttp
setHttp=server.createobject(“MSXML2.XMLHTTP“)
'Http.open“GET“,url,false
Http.open“POST“,url,false
Http.send()
ifHttp.readystate<>4then
exitfunction
endif
'getHTTPPage=bytesToBSTR(Http.responseBody,“GB2312“)
getHTTPPage=bytesToBSTR(Http.responseBody,“Shift-JIS“)
sethttp=nothing
iferr.number<>0then
err.Clear
endif
endfunction

FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject(“adodb.stream“)
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing

EndFunction
%>

<title></title>
</head>

<bodyonload=“SelText()“>
<%
DimUrl,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.writeHtml
%>
</body>
</html>

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章