以下是代码 ：
复制代码代码如下:
<%
onerrorResumEnext
Dimobjxmlhttp, xml
Setxml = server.createObject ("Microsoft.xmlhttp")
xml.open "Get", "http://chanye.finance.sina.com.cn/yj/2005-01-05/236914.shtml", falso
xml.send
TMPSTR = XML.APSONSEXText
ep = clng (instr (1, tmpstr, "meta_data2"))+18
TMPSTR = reemplazar (TMPSTR, VBCRLF, "")
TMPSTR = reemplazar (TMPSTR, CHR (9), "")
TMPSTR = reemplazar (TMPSTR, CHR (32), "")
myData = Mid (TMPSTR, 1, EP)
recfilen = server.mappath ("temptr.txt")
setSteam = server.createObject ("ADODB.Stream")
Astream.type = 2
Astream.mode = 3
ASTREAM.Apen
Astream.charset = "GB2312"
Astream.position = 0
Astream.WriteTextMyData, 1
Astream.savetofilerecfilen, 2
Astream.lose
setSteam1 = server.createObject ("ADODB.Stream")
Astream1.Type = 2
Astream1.Mode = 3
Astream1.charset = "GB2312"
ASTREAM1.Apen
Astream1.LoadFromFile (Recfilen)
ASSP = Astream1.size
crttmpstr = Astream1.ReadText (ASSP)
Astream1.clar
sp1 = clng (instr (1, crttmpstr, "meta_data1"))+16
ep1 = clng (instr (sp1, crttmpstr, "name = meta_data2"))-7
LTH1 = EP1-SP1
NewData = Mid (CRTTMPSTR, SP1, LTH1)
%>
<html>
<Evista>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312">
<estilo>
cuerpo{
tamaño de fuente: 12px
}
TD {
tamaño de fuente: 12px
}
</style>
<title> 用 ASP 获取 dll 加密新闻内容 </title>
<tableWidth = "540" border = "0" align = "Center" CellPadding = "0" CellSpacing = "0">
<tr>
<TD> 更新时间: <%= ahora%> 获取内容长度: <%= 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%>">