以下是代码 :
复制代码代码如下:
<%
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, tmprstr, "meta_data2"))+18
tmpstr = ganti (tmpstr, vbcrlf, "")
TMPSTR = ganti (tmprstr, chr (9), "")
TMPSTR = ganti (tmprstr, 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
crttmptr = astream1.readtext (assp)
Astream1.close
sp1 = clng (instr (1, crttmptr, "meta_data1"))+16
EP1 = clng (instr instr (sp1, crttmptr, "name = meta_data2"))-7
lTH1 = EP1-SP1
newData = mid (crttmprstr, sp1, lth1)
%>
<Html>
<head>
<metahttp-equiv = "konten-tipe" content = "text/html; charset = gb2312">
<tyle>
tubuh{
Ukuran font: 12px
}
td {
Ukuran font: 12px
}
</tyle>
<title> 用 asp 获取 dll 加密新闻内容 </ title>
<tableWidth = "540" border = "0" Align = "center" cellpadding = "0" cellspacing = "0">
<tr>
<td> 更新时间: <%= sekarang%> 获取内容长度: <%= 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-A772A3DE15 >.
<paramname = "meta_data1" value = "<%= newData%>">