繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > XMLHTTP抓取远程数据的后期处理
- ASP
- asp中利用数组实现数据库记录的批量录入方法
- vbs(asp)的栈类
- 加密處理使密碼更安全[CFS編碼加密]
- 在asp中通过vbs类实现rsa加密与解密
- 披著羊皮的大野狼 - Session
- 简体中文编码对应器
- len(),lift(),right()不能正常识别中文的解决方法
- 实现WEB中的@虚拟域名系统(原理篇)
- 巧用ASP生成PDF文件
- 二级域名原理以及程序，申请即可开通
- 无组件上传图片到数据库中，最完整解决方案
- 在ASP中使用SQL语句之1:SELECT 语句
- 在ASP中使用SQL语句之2:用WHERE子句设置查询条件
- 在ASP中使用SQL语句之3:LIKE、NOT LIKE和 BETWEEN
- 在ASP中使用SQL语句之4:联合语句
- 在ASP中使用SQL语句之5:开始执行
- 在ASP中使用SQL语句之6:存储查询
- 在ASP中使用SQL语句之7:ORDER BY
- 在ASP中使用SQL语句之8:随机数
- 在ASP中使用SQL语句之9:表单操作
ASP 中的 XMLHTTP抓取远程数据的后期处理
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 240 ::
收藏到网摘: n/a
<%
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®Ex.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>")
评论 (0) All
