我的设计收集

关注研究网站设计及SEO网站优化技术!致力于为客户提供最专业、最有效的全方面网站设计解决方案。

订阅RSS

ASP取另一网站数据

类别:网站前端开发    时间:2012-05-30

<%
Response.CharSet= "GB2312"  
Response.ContentType= "text/html"
Function   streamtochar(StrStream)
      set   stream=server.CreateObject("ADODB.Stream")
              stream.type=1
              stream.Mode=3
              stream.Open  
              stream.Write   Strstream
              stream.Position=   0
              stream.Type=   2
              stream.Charset= "GB2312"
              streamtochar=   stream.ReadText
              stream.Close
      set   stream=nothing
End   Function

Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.aaaa.org/link/rrr.html", False 
xml.Send
Response.Write streamtochar(xml.responseBody)
Set xml = Nothing %>

转载声明:
原载:利晶科技博客 - 关注研究最新网站设计技术及SEO网站优化!
本文链接:/29.html
如需转载必须以链接形式注明原载或原文地址,谢谢合作!

文章分类

友情链接

赣ICP备2022008273号-7 Copyright © 2006-2023 我的设计收集 版权所有