<%
'编码转换
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 GetBody(weburl)
    Set Retrieval = CreateObject("Msxml2.ServerXMLHTTP")
    With Retrieval
        .Open "Get", weburl, False, "", ""
        .Send
        GetBody = .ResponseBody
    End With
    GetBody = BytesToBstr(GetBody,"GB2312")
    Set Retrieval = Nothing
End Function

'获取GetBody中指定内容
Function GetSpcBody(wstr,start,over)
    Dim RegEx
    Set RegEx = New Regexp'设置配置对象
    RegEx.IgnoreCase = True'忽略大小写
    RegEx.Global = True'设置为全文搜索
    RegEx.Pattern = "" & start & "(.+?)" & over & "" '正则表达式
    Set Matches =RegEx.Execute(wstr)'开始执行配置
    GetSpcBody=""
    For Each Match in Matches
    GetSpcBody = GetSpcBody & RegEx.replace(Match.Value,"$1") '循环匹配
    Next
    set RegEx=nothing
End Function

'获取某网址指定内容
Function GetBodyByUrl(weburl,start,over)
    GetBodyByUrl=GetSpcBody(GetBody(weburl),start,over)
End function

Dim content
content=GetBodyByUrl("http://article.rongshuxia.com/viewart.rs?aid=3913735","<title>","</title>")
response.write "该文章的标题为：" & content
%>