复制代码代码如下：
<％
dj54_path =“ data/data.mdb”'数据库地址
setConn = server.createobject（“ adodb.connection”）
connstr =“ provider = microsoft.jet.oledb.4.0; datasource =”＆server.mappath（dj54_path）
Conn.Openconnstr
函数GetTtppage（httpurl）
Ifisnull（httpurl）= trueOrhttpurl =“ $ false $”
gethtppage =“ $ false $”
出口
Endif
dimhttp
sethttp = server.createobject（“ msxml2.xmlhttp”）
http.open“ get”，httpurl，false
http.send（）
ifhttp.readystate <> 4
sethttp =没有
gethtppage =“ $ false $”
出口
Endif
gethtppage = bytestobstr（http.Responsebody，“ gb2312”）
sethttp =没有
iferr.number <> 0
err.CLEAR
Endif
最终功能
功能bytestobstr（身体，CSET）
dimobjstream
setObjstream = server.createobject（“ adodb.stream”）
objstream.type = 1
objstream.mode = 3
Objstream.open
objstream.writebody
objstream.position = 0
objstream.type = 2
objstream.chareet = CSET
bytestobstr = objstream.readtext
objstream.close
setObjstream =没有
最终功能
functionMymid（byvala_strstring，byvala_strpattern）
dimmm_objregexp
dimmm_strexecute
setmm_objregexp = newregexp
withm_objregexp
.pattern = a_strpattern
.ignorecase = true
.global = false
setmm_strexecute = .execute（a_strstring）
ifmm_strexecute.count <> 0
mymid = mm_strexecute（0）.submatches（0）
Endif
端
mymid = trim（mymid）
setmm_objregexp =什么都没有
最终功能
functionReglistget（Str，Patrn，Mysky）
SetTempReg = NewRegexp
tempreg.ignorecase = false
tempreg.global = true
tempreg.pattern = patrn
setMatches = tempreg.execute（str）
foreachMatchinMatches
content = content＆match.value＆mysky
下一个
reglistget = content
setMatches =没有
SetteMpreg =没有
最终功能
dj54_sf = gethttppage（“ http://www.haosf.com/”）
dj54_sf =替换（dj54_sf，vbcrlf，“”）
dj54_sf =替换（dj54_sf，chr（10），“”）
dj54_sf = trim（mymid（dj54_sf，“ zjkf.asp”＆chr（34）＆”> </script>（。
dj54_sf = reglistget（dj54_sf，“ <script> o（。+？）</script>”，“ bt54”）
dj54_sf =替换（dj54_sf，“/”，“”）
dj54_bt54_sf = split（dj54_sf，“ bt54”）
wrespons.write“采集成功共采集当日”＆ubound（dj54_bt54_sf）-1＆“个sf <br/>”
setrs = server.createobject（“ adodb.recordset”）
sql =“ select*fromsfdata”