复制代码代码如下:
<%
Dj54_path = "data / data.mdb" '数据库地址
SetConn = server.createObject ("adodb.connection")
Connstr = "Provider = Microsoft.Jet.oledb.4.0; DataSource =" & Server.Mappath (DJ54_PATH)
Conn.OpenConstr
FonctionGethTTPPAGE (Httpurl)
Ifisnull (httpurl) = trueorhttpurl = "$ false $" puis
Gethttppage = "$ false $"
Sortie
Endire
Dimhttp
Sethttp = server.createObject ("msxml2.xmlhttp")
Http.open "get", httpurl, false
Http.send ()
Ifhttp.readystate <> 4Then
Sethttp = rien
Gethttppage = "$ false $"
Sortie
Endire
GethTTPPAGE = BYTESTOBSTR (Http.ResponseBody, "GB2312")
Sethttp = rien
IFerr.Number <> 0THEN
Err.Clear
Endire
Finition de fin
FunctionByTestobstr (corps, CSET)
Dimobjstream
SetObjstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.writebody
objstream.position = 0
objstream.type = 2
objstream.charset = cset
ByTestObstr = objstream.readText
objstream.close
setObjstream = rien
Finition de fin
functionmymid (byvala_strstring, byvala_strpattern)
dimmm_objregexp
dimmm_strexecute
setmm_objregexp = newRegexp
withmm_objregexp
.Pattern = a_strpattern
.IgnoreCase = True
.Global = false
setmm_strexecute = .execute (a_strstring)
ifmm_strexecute.count <> 0Then
mymid = mm_strexecute (0) .submatches (0)
endire
fin
mymid = trim (mymid)
setmm_objregexp = rien
finition de fin
FunctionRegListget (Str, Patn, Mysky)
setmpreg = newRegexp
tempreg.ignorecase = false
tempreg.global = true
Tempreg.Pattern = Patn
setmatches = tempreg.execute (str)
foreachmatchinmatches
Content = Content & Match.Value & Mysky
suivant
RegListGet = Contenu
setmatches = rien
setempreg = rien
finition de fin
Dj54_sf = gethttppage ("http://www.haosf.com/")
Dj54_sf = Remplace (dj54_sf, vbcrlf, "")
Dj54_sf = Remplace (dj54_sf, chr (10), "")
Dj54_sf = trim (mymid (dj54_sf, "zjkf.asp" & chr (34) & "> </cript> (. +?) <ScriptLanguage = javascriptsrc =" & chr (34) & "txtj2.asp" & chr (34) & ">"))
Dj54_sf = regListGet (dj54_sf, "<cript> o (. +?) </cript>", "bt54")
Dj54_sf = remplacer (dj54_sf, "/", "")
DJ54_BT54_SF = Split (DJ54_SF, "BT54")
réponse.write "采集成功 共 采集当日" & ubound (dj54_bt54_sf) -1 & "个 sf <br/>"
setrs = server.createObject ("adodb.recordSet")
sql = "select * fromsfdata"