採集獲取內容的方法

<%...
' ExpStr(vStr,vReg,sStr)
' 返回正則匹配結果
'
' #####################################################
'
' vStr 爲原始字符串
' vReg 爲正則表達式
' sStr 爲分隔符（儘量使用原始字符串中不會出現的字符串）
'
' #####################################################


Function ExpStr(vStr,vReg,sStr)
    Dim Re,Matchs,Item,tStr
    tStr = ""
    Set Re = New RegExp
    Re.Pattern = vReg
    Re.IgnoreCase = True
    Re.Global = True
    If Re.Test(vStr) Then
        Set Matchs = Re.Execute(vStr)
        For Each Item In Matchs
            tStr = tStr & Item.Value & sStr
        Next
        tStr = Split(Left(tStr,Len(tStr) - Len(sStr)),sStr)
    End If
    Set Re = Nothing
    ExpStr = tStr
End Function

%>

 以上是 在一段代碼中，定義起始字符和結束字符，獲取中間的代碼段

以下是如何獲取url裏的代碼方法

<%
Function getHTTPPage(url)
    dim objXML
    set objXML=createobject("MSXML2.XMLHTTP")
    objXML.open "post",url,false
    objXML.send()
    If objXML.readystate<>4 then
        exit function
    End If
    getHTTPPage=BytesToBstr(objXML.responseBody)
    set objXML=nothing
    if err.number<>0 then err.Clear 
End Function


Function BytesToBstr(body)
dim objstream
set objstream = CreateObject("adodb.stream")
    objstream.Type = 1
    objstream.Mode =3
    objstream.Open
    objstream.Write body
    objstream.Position = 0
    objstream.Type = 2
    objstream.Charset = "utf-8"  '編碼方式 
    BytesToBstr = objstream.ReadText 
objstream.Close
set objstream = nothing
end Function
%>