以下是代碼:
複製代碼代碼如下:
<%
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%>”>