以下是代码
复制代码代码如下:
<%
OnErrorReSumenext
DIMOBJXMLHTTP, XML
Setxml = 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 = substituir (tmpstr, vbcrlf, "")
tmpstr = substituir (tmpstr, chr (9), "")
tmpstr = substituir (tmpstr, chr (32), "")
mydata = MID (tmpstr, 1, ep)
recfilen = server.mappath ("tempstr.txt")
setAstream = server.createObject ("adodb.stream")
Astream.Type = 2
Astream.mode = 3
Astream.open
Astream.Charset = "GB2312"
Astream.Position = 0
Astream.WriteTextMydata, 1
Astream.SavetofileRecfilen, 2
Astream.Close
setAstream1 = server.createObject ("adodb.stream")
Astream1.Type = 2
Astream1.mode = 3
Astream1.Charset = "GB2312"
Astream1.open
Astream1.LoadFromFile (Recfilen)
ASSP = Astream1.size
CRTTMPSTR = Astream1.readText (ASSP)
Astream1.close
sp1 = clng (Instr (1, Crttmpstr, "meta_data1"))+16
EP1 = CLNG (Instr (Sp1, Crttmpstr, "Nome = meta_data2"))-7
LTH1 = EP1-SP1
newData = MID (CRTTMPSTR, SP1, LTH1)
%>
<html>
<head>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312">
<estilo>
corpo{
Size da fonte: 12px
}
TD {
Size da fonte: 12px
}
</style>
<Title> 用 Asp 获取 dll 加密新闻内容 </ititle>
<tablewidth = "540" border = "0" align = "Center" CellPadding = "0" CellSpacing = "0">
<tr>
<td> 更新时间: <%= agora%> 获取内容长度: <%= lTh1%>
字节
注意要使用 http://127.0.0.1/ip1htmlview.dll 你得先下载这个 dll 文件 , 怎么下不用多说吧?! 怎么下不用多说吧?!
<ObjectId = htmlip1ViewCodeBase = http: //127.0.0.1/ip1htmlview.dll#version=1,0,1,14classid=clsid: d854fc15-d3ea-496a-b2a0-a772A3DE1D09>
<paramname = "meta_data1" value = "<%= newData%>">