采集获取内容的方法

<% ...
' 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
% >