激情久久久_欧美视频区_成人av免费_不卡视频一二三区_欧美精品在欧美一区二区少妇_欧美一区二区三区的

服務(wù)器之家：專注于服務(wù)器技術(shù)及軟件下載分享
分類導(dǎo)航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術(shù)|正則表達(dá)式|C/C++|IOS|C#|Swift|Android|VB|R語言|JavaScript|易語言|vb.net|

香港云服务器
服務(wù)器之家 - 編程語言 - ASP教程 - ASP 中使用 HTTP 協(xié)議發(fā)送參數(shù)詳解

ASP 中使用 HTTP 協(xié)議發(fā)送參數(shù)詳解

2019-10-29 14:55asp教程網(wǎng) ASP教程

ASP 中使用 HTTP 協(xié)議發(fā)送參數(shù)詳解

  1. <%@LANGUAGE=“VBSCRIPT“ CODEPAGE=“CP_ACP“%>  
  2.     <html>  
  3.     <head>  
  4.     <meta http-equiv=“Content-Type“ content=“text/html; charset=Shift-JIS“>  
  5.     <SCRIPT LANGUAGE=“JavaScript“>  
  6.     <!--  
  7.      function SelText(){  
  8.       var oRangeRef = document.body.createTextRange();  
  9.       alert(oRangeRef.text);  
  10.      }  
  11.     //-->  
  12.     </SCRIPT>  
  13.     <%  
  14.     function getHTTPPage(url)  
  15.         dim Http  
  16.         set Http=server.createobject(“MSXML2.XMLHTTP“)  
  17.         'Http.open “GET“,url,false  
  18.      Http.open “POST“,url,false  
  19.         Http.send()  
  20.         if Http.readystate<>4 then  
  21.             exit function  
  22.         end if  
  23.         'getHTTPPage=bytesToBSTR(Http.responseBody,“GB2312“)  
  24.      getHTTPPage=bytesToBSTR(Http.responseBody,“Shift-JIS“)  
  25.         set http=nothing  
  26.         if err.number<>0 then  
  27.      err.Clear  
  28.      end if  
  29.     end function  
  30.  
  31.     Function BytesToBstr(body,Cset)  
  32.             dim objstream  
  33.             set objstream = Server.CreateObject(“adodb.stream“)  
  34.             objstream.Type = 1  
  35.             objstream.Mode =3  
  36.             objstream.Open  
  37.             objstream.Write body  
  38.             objstream.Position = 0  
  39.             objstream.Type = 2  
  40.             objstream.Charset = Cset  
  41.             BytesToBstr = objstream.ReadText  
  42.             objstream.Close  
  43.             set objstream = nothing  
  44.  
  45.     End Function  
  46.     %>  
  47.  
  48.     <title></title>  
  49.     </head>  
  50.  
  51.     <body onload=“SelText()“>  
  52.     <%  
  53.     Dim Url,Html  
  54.     'Url=“http://localhost/CSharpWebAppTest/WebForm1.aspx?tmp=33333“  
  55.     'Url=“http://localhost/CSharpWebAppTest/WebForm1.aspx“  
  56.     Url= “http://www.whois.sc/221.216.169.120“  
  57.     'Url=“http://localhost/akira/default.asp“  
  58.     Html = getHTTPPage(Url)  
  59.     Response.write Html  
  60.     %>  
  61.     </body>  
  62.     </html>  

延伸 · 閱讀

精彩推薦
689
主站蜘蛛池模板： 久久久精品福利 | 日韩视频精品一区 | 99爱视频| 国产精品一区二区三区在线播放 | 欧美一区2区三区4区公司二百 | 中文在线观看视频 | 色999国产| 欧美1区2区| 视频一区二区中文字幕 | 成人毛片100免费观看 | 久久久久久久久久久影视 | 欧美一级黄色录像片 | 久久国产精品一区 | 蜜桃网站免费 | 亚洲精品久久久久久久久久 | 一级电影在线观看 | 欧美成人精品欧美一级乱黄 | 久草在线新时代视觉 | 久久资源总站 | 成人免费网站在线观看视频 | 日日狠狠久久偷偷四色综合免费 | 欧美特黄一级高清免费的香蕉 | 全视频tv | 亚久久| 中文字幕在线观看1 | 萌白酱福利视频在线网站 | 成年免费大片黄在线观看岛国 | 黄色免费观看网站 | 国产毛片网站 | 免费日韩片 | 久久久久日本精品一区二区三区 | 一级毛片免费观看 | 国产精选电影免费在线观看网站 | 欧美成人激情 | 久久精品a一级国产免视看成人 | 成人在线不卡 | 91久久线看在观草草青青 | 一区二区三区日韩 | 免费a视频在线观看 | 日本在线视频一区二区三区 | 亚洲人成电影在线 |