以下是代码：
复制代码代码如下：
<％
Onorresumenext
dimobjxmlhttp，xml
setxml = server.createobject（“ microsoft.xmlhttp”）
xml.open“ get”，http://chanye.finance.sina.com.cn/yj/2005-01-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（“ tempstr.txt”）
setAstream = server.createobject（“ adodb.stream”）
astream.type = 2
astream.mode = 3
Aretam.open
astream.Charset =“ GB2312”
astream.position = 0
astream.writeTextMyData，1
Astram.Savetofilerecfilen，2
Aretream.close
setAstream1 = server.createobject（“ adodb.stream”）
astream1.type = 2
astream1.mode = 3
astream1.Charset =“ GB2312”
astream1。打开
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，“ name = meta_data2”）） - 7
LTH1 = EP1-SP1
newdata = mid（crttmpstr，sp1，lth1）
％>
<html>
<头>
<metahttp-equiv =“ content-type” content =“ text/html; charset = gb2312”>
<样式>
身体{
字体大小：12px
}
TD {
字体大小：12px
}
</style>
<title>用ASP获取dll </title>
<tablewidth =“ 540” border =“ 0” align =“ center” cellpadding =“ 0” cellSpacing =“ 0”>
<tr>
<td>更新时间：<％= Now％>获取内容长度：<％= lth1％>
字节
注意要使用http://127.0.0.1/ip1htmlview.dll你得先下载这个dll文件，怎么下不用多说吧？！，怎么下不用多说吧？！
<objectid = htmlip1viewCodeBase = http：//127.0.0.1/ip1htmlview.dll#version = 1,0,1,1,1,1,14classid = clsid：d854fc15-d3 ea-496a-496a-b2a0-b2a0-b2a0-b2a0-a7772a3de1de1de1de1>
<paramname =“ meta_data1” value =“ <％= newdata％>”>