ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格:冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
XMLHTTP抓取远程数据的后期处理

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

<%

'作者信息:
'昵称:小灰
'QQ:103895
'http://asp2004.net
'http://blog.csdn.net/iuhxq

hehe = Hello("http://mmsg.qq.com/cgi-bin/gddylist?Type=13&Sort=1&Page=3", "<html>", "</html>", ".*(<td width=""35%"" bgcolor=""#[\dABCDE]{6}"">(.*)</td>)[.\n]*", "<font style=""font-size:9pt;"" color=blue>$2</font><br>")
response.Write hehe

Function Hello(strUrl, strStart, strEnd, patrn, replStr)
    Str = GetBody(strUrl)
    Str = MyMid(Str, strStart, strEnd)
    Str = ReplaceTest(patrn, replStr, Str)
    Hello = Str
End Function

Function MyMid(Str, strstart, strend)
    If strstart = "" Then
        i = 0
    Else
        i = InStr(Str, strstart)
    End If
    If strend = "" Then
        j = Len(Str)
    Else
        j = InStr(i, Str, strend)
    End If
    MyMid = Mid(Str, i, j - i + 1)
End Function

Function ReplaceTest(patrn, replStr, str1)
    Dim regEx, match, matches
    Set regEx = New RegExp
    regEx.Pattern = patrn
    regEx.IgnoreCase = True
    regEx.Global = True
    Set matches = regEx.Execute(str1)
    For Each match in matches
        ReplaceTest = ReplaceTest&regEx.Replace(Match.Value, replStr)
    Next
End Function

Function GetBody(Url)
    Set objXML = CreateObject("Microsoft.XMLHTTP")
    With objXML
        .Open "Get", Url, False, "", ""
        .SEnd
        GetBody = .ResponseBody
    End With
    GetBody = BytesToBstr(GetBody, "GB2312")
    Set objXML = Nothing
End Function

Function BytesToBstr(strBody, CodeBase)
    Set objStream = Server.CreateObject("Adodb.Stream")
    With objStream
        .Type = 1
        .Mode = 3
        .Open
        .Write strBody
        .Position = 0
        .Type = 2
        .Charset = CodeBase
        BytesToBstr = .ReadText
        .Close
    End With
    Set objStream = Nothing
End Function
%>
其他调用示例:
hehe = Hello("http://list.mp3.baidu.com/song/A.htm", "<table width=""90%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""0"" bgcolor=""#f5f5f5"" >", "<DIV align=center>", ".*(<td width=""20%""><a href="".*\.htm"" target=_blank>)(.*)(</a></td>)[.\n]*", "<font style=""font-size:9pt;"" color=blue>$2</font><br>")




相关文章

相关软件