首页 相关文章 用Asp获取Dll加密新闻内容

用Asp获取Dll加密新闻内容

以下是代码:
<%
on error resume next
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://chanye.finance.sina.com.cn/yj/2005-01-05/236914.shtml", False
xml.Send
tmpstr= xml.responseText
ep=clng(instr(1,tmpstr,"meta_data2"))+18
tmpstr=replace(tmpstr,vbcrlf,"")
tmpstr=replace(tmpstr,chr(9),"")
tmpstr=replace(tmpstr,chr(32),"")
mydata=mid(tmpstr,1,ep)
recfilen=server.MapPath("tempstr.txt")
set Astream=Server.CreateObject("Adodb.Stream")
...[ 查看全文 ]

2016-01-29 标签:

用Asp获取Dll加密新闻内容的相关文章

手机页面
收藏网站 回到头部