ASP使用HTTP 协议,发送参数

王朝html/css/js·作者佚名  2006-12-17
窄屏简体版  字體: |||超大  

ASP使用HTTP 协议,发送参数

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 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>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航