以下是代码：
复制代码代码如下:
-
onerrorresumenext
dimobjxmlhttp, xml
setxml = server.createObject ("microsoft.xmlhttp"))
xml.open "get", "http://chanye.finance.sina.com.cn/yj/2005-01-05/236914.shtml"
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
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 (instr (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 加密新闻内容 </title>
<TableWidth = "540" Border = "0" Align = "Center" CellPadding = "0" CellSpacing = "0">
<tr>
<Td> 更新时间: <%= ตอนนี้%> 获取内容长度: <%= 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-B2A0-A772A3DE1D09
<paramname = "meta_data1" value = "<%= newData%>">