一区二区三区在线-一区二区三区亚洲视频-一区二区三区亚洲-一区二区三区午夜-一区二区三区四区在线视频-一区二区三区四区在线免费观看

服務器之家：專注于服務器技術及軟件下載分享
分類導航

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

服務器之家 - 編程語言 - ASP教程 - ASP 中使用 HTTP 協議發送參數詳解

ASP 中使用 HTTP 協議發送參數詳解

2019-10-29 14:55asp教程網 ASP教程

ASP 中使用 HTTP 協議發送參數詳解

  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>  

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板： 美女张开腿让男人桶的 视频 | 精品国产三级av在线 | 情趣内衣在线观看 | 美女扒开腿让男人桶爽动态图片 | 国产精品林美惠子在线观看 | 喷潮女王cytherea全部视频 | 欧美视频精品一区二区三区 | 国产美女亚洲精品久久久综合91 | 91久久精品青青草原伊人 | 狠狠久久久久综合网 | 午夜伦伦电影理论片大片 | w7w7w7w7w免费| 好湿好滑好硬好爽好深视频 | 九九在线精品亚洲国产 | 国产精品久久久久久久久 | 国产情侣露脸自拍 | 水野朝阳厨房系列在线观看 | 偷拍自拍校园春色 | 国产精品自拍一区 | 国产精品久久国产精品99 | 91香蕉视频在线观看 | 天天亚洲综合 | 国产免费视频 | 大妹子最新视频在线观看 | 免费370理论片中文字幕 | avtt天堂网 手机资源 | 九九国产在线视频 | 亚洲欧美国产另类视频 | 蜜臀91 | 欧美第十页 | 亚洲天堂日韩在线 | 久久这里只有精品视频e | 成人免费公开视频 | 国产精品久久久久影院色老大 | 日韩国产成人精品视频人 | 99国内精品 | 男人影院天堂网址 | 日韩av.com | 手机跑分排行最新排名 | 欧美摸胸 | 97精品久久天干天天蜜 |