<% DJ54_path = "data/data.mdb" '數據庫地址 Set conn= Server.CreateObject("ADODB.Connection") connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(DJ54_path) conn.Open connstr Function GetHttpPage(HttpUrl) If IsNull(HttpUrl)=True Or HttpUrl="$False$" Then GetHttpPage="$False$" Exit Function End If Dim Http Set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",HttpUrl,False Http.Send() If Http.Readystate<>4 then Set Http=Nothing GetHttpPage="$False$" Exit function End if GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") Set Http=Nothing If Err.number<>0 then Err.Clear End If End Function
Function BytesToBstr(Body,Cset) Dim Objstream Set Objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function
function mymid(byval A_strString,byval A_strPattern) dim MM_objRegexp dim MM_strExecute
set MM_objRegexp=new regexp with MM_objRegexp .Pattern=A_strPattern .IgnoreCase=True .Global=false set MM_strExecute=.Execute(A_strString) if MM_strExecute.count<>0 then mymid=MM_strExecute(0).SubMatches(0) end if end with mymid=trim(mymid) set MM_objRegexp=nothing end function
Function RegListGet(str,patrn,mysky) set tempReg=new RegExp tempReg.IgnoreCase=false tempReg.Global=true tempReg.Pattern=patrn set matches=tempReg.execute(str) for each match in matches content=content&match.value&mysky next RegListGet=content set matches=nothing set tempReg=nothing end Function
