以下是代码：
复制代码代码如下：
<％
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 =置換（tmpstr、vbcrlf ""）
tmpstr =置換（tmpstr、chr（9）、 ""）
tmpstr =置換（tmpstr、chr（32）、 ""）
mydata = mid（tmpstr、1、ep）
Recfilen = server.mappath（ "tempsstr.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（str（sp1、crttmpstr、 "name = meta_data2"））-7
LTH1 = EP1-SP1
newData = MID（CRTTMPSTR、SP1、LTH1）
％>
<html>
<head>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312">
<style>
体{
フォントサイズ：12px
}
TD {
フォントサイズ：12px
}
</style>
<title>用asp获取dll
<TableWidth = "540" border = "0" align = "center" cellpadding = "0" cellspacing = "0">
<tr>
<td>更新时间：<％= now％>获取内容长度：<％= lth1％>
字节
http://127.0.0.1/ip1htmlview.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％>">