当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP有函数可以把某个网页通过STREAM下载吗？

ASP
用密码保护页面 (II)
用密码保护页面 (III)
简单的文件目录浏览源程序
ASP中的函数应用方法及应用举例(一)
ASP中的函数应用方法及应用举例(二)
完整的访问统计系统（一：数据库篇）
完整的访问统计程序（二 程序篇）
完整的访问统计程序(三 应用篇)
一个提供用户输入时期的绝好程序之(一)
一个提供用户输入时期的绝好程序之(二)
构建你的网站新闻自动发布系统之五
构建你的网站新闻自动发布系统之六
完整的访问统计程序（二 程序篇）
完整的访问统计程序(三 应用篇)
ASP环境下邮件列表功能的实现 （一）
ASP环境下邮件列表功能的实现 （二）
ASP环境下邮件列表功能的实现 （三）
ASP环境下邮件列表功能的实现 （四）
ASP进阶之文章在线管理更新(1)
ASP进阶之文章在线管理更新(2)

No. « 215 216 217 218 »

技术文章搜索

关键字

ASP有函数可以把某个网页通过STREAM下载吗？

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 62 ::
收藏到网摘: n/a

       <script language="vbscript">
  Function bytes2BSTR(vIn)
  
  Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
  strReturn = ""
  
  For i = 1 To LenB(vIn)
   ThisCharCode = AscB(MidB(vIn,i,1))
   If ThisCharCode < &H80 Then
   strReturn = strReturn & Chr(ThisCharCode)
   Else
   NextCharCode = AscB(MidB(vIn,i+1,1))
   strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
   i = i + 1
   End If
  Next
  
  bytes2BSTR = strReturn
  End Function
  </script>
  <script language="javascript">
  var xmlhttp= new ActiveXObject("Msxml2.xmlhttp")
  xmlhttp.open("GET","http://www.csdn.net/",false)
  xmlhttp.send()
  alert(bytes2BSTR(xmlhttp.ResponseBody))
  </script>
  
  ASP版本的：
  
  <script language="vbscript">
  Function bytes2BSTR(vIn)
  
  Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
  strReturn = ""
  
  For i = 1 To LenB(vIn)
   ThisCharCode = AscB(MidB(vIn,i,1))
   If ThisCharCode < &H80 Then
   strReturn = strReturn & Chr(ThisCharCode)
   Else
   NextCharCode = AscB(MidB(vIn,i+1,1))
   strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
   i = i + 1
   End If
  Next
  
  bytes2BSTR = strReturn
  
  End Function
  
  Dim xmlhttp
  set xmlhttp=Server.CreateObject("Msxml2.xmlhttp")
  xmlhttp.open "GET","http://www.csdn.net/",false
  xmlhttp.send
  response.write bytes2BSTR(xmlhttp.ResponseBody)
  </script>
  
  C#版本的：
  http://www.ccw.com.cn/htm/center/prog/02_5_9_2.asp
  
  using System.IO;
  using System.Net;
  using System.Text;
  在
  private void button1_Click(object sender, System.EventArgs e)
  {
  
  }
  
  byte[] buf = new byte[38192];
  HttpWebRequest request = (HttpWebRequest)WebRequest.Create(textBox1.Text);
  HttpWebResponse response = (HttpWebResponse)request.GetResponse();
  Stream resStream = response.GetResponseStream();
  int count = resStream.Read(buf, 0, buf.Length);
  textBox2.Text = Encoding.Default.GetString(buf, 0, count);
  resStream.Close();