ASP使用HTTP 协议,发送参数

<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<html>
<head>
<meta http-equiv="Content-Type" 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("MSXML2.XMLHTTP")
    'Http.open "GET",url,false
 Http.open "POST",url,false
    Http.send()
    if Http.readystate<>4 then
        exit function
    end if
    'getHTTPPage=bytesToBSTR(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 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
%>

<title></title>
</head>

<body οnlοad="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>

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值