以下是代码 :
复制代码代码如下::
<%
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 (Instrument (1, TMPSTR, "meta_data2")+18
tmpstr = ersetzen (tmpstr, vbcrlf, "")
tmpstr = ersetzen (tmpstr, chr (9), "")
tmpstr = ersetzen (tmpstr, chr (32), "")
MyData = Mid (TMPstr, 1, EP)
recFilen = server.mappath ("tempstr.txt")
setAstream = server.createObject ("adodb.stream")
Astrame.Type = 2
Astrame.Mode = 3
Astrame.open
Astream.Charset = "GB2312"
Astrame.position = 0
Astrame.WritETEXTMYDATA, 1
Astrame.SavetofileCFilen, 2
Astrame.CLOSE
setAstream1 = server.createObject ("adodb.stream")
Astream1.Type = 2
Astream1.Mode = 3
Astream1.Charset = "GB2312"
Astrame1.Open
Astrame1.loadfromFile (Recfilen)
ASSP = Astream1.Size
crttmpstr = astream1.readText (ASSP)
Astrame1.CLOSE
SP1 = CLNG (Instrument (1, crttmpstr, "meta_data1"))+16
ep1 = clng (instr (sp1, crttmpstr, "name = meta_data2"))-7
lth1 = ep1-sp1
newdata = mid (crttmpstr, sp1, lth1)
%>
<html>
<kopf>
<metahttp-äquiv = "content-type" content = "text/html; charSet = gb2312">
<Styles>
Körper{
Schriftgröße: 12px
}
td {
Schriftgröße: 12px
}
</style>
<title> 用 ASP 获取 dll 加密新闻内容 </title>
<tablewidth = "540" border = "0" align = "center" cellpadding = "0" cellspacing = "0">
<tr>
<td> 更新时间: <%= jetzt%> 获取内容长度: <%= lth1%>
字节
注意要使用 http://127.0.0.1/ip1htmlview.dll 你得先下载这个 dll 文件 , 怎么下不用多说吧?! 怎么下不用多说吧?! 怎么下不用多说吧?!
<objectID = htmlip1ViewCodeBase = http: //127.0.1/ip1htmlview.dll#version=1,0,1,14Classid=Clsid: D854FC15-D3EA-4A-B2A0-A772A3DE1D09>
<paramname = "meta_data1" value = "<%= newdata%>">