ASP编程实例：抓取网上房产信息的方法与步骤
159 浏览量
更新于2024-08-28
收藏 58KB PDF 举报
本文档是一篇实例教程，详细介绍了如何使用ASP (Active Server Pages) 实现抓取网上房产信息的功能。ASP是一种服务器端脚本语言，用于创建动态网页，该程序主要通过以下几个步骤和技术来实现目标：
1. **语言设置**：
使用`<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”936″%>`设置了脚本语言为VBScript，并指定字符集为936（通常表示GBK，适用于中文字符）。
2. **连接管理**：
包含了`conn.asp`文件，这可能是数据库连接配置文件，用来管理和建立与数据源（如数据库）的连接，以便后续读取或写入数据。
3. **辅助函数**：
`inc/function.asp` 文件包含了一些实用的函数，如 `BytesToBstr` 和 `Instr` 函数。`BytesToBstr` 是一个字符编码转换函数，它接收一个二进制流（body）和指定的字符集（code），将二进制数据转换为字符串。`Instr` 函数则用于查找子字符串在另一个字符串中的位置，这里可能用于处理文本内容中的特定关键词。
4. **文档类型声明**：
`<!DOCTYPE HTML PUBLIC “-//W3C//DTD HTML 4.01 Transitional//EN” “http://www.w3.org/TR/html4/loose.dtd”>` 定义了文档类型为HTML4.01 Transitional，这是一种文档结构标准，用于确保页面遵循正确的语法和结构。
5. **页面刷新和跳转**：
`<meta http-equiv=”refresh” content=”300;URL=steal_house.asp”>` 设置了一个300秒（5分钟）后自动跳转到 `steal_house.asp` 页面，这可能是抓取过程的一部分，或者用作轮询机制以检查新的房产信息。
6. **错误处理和超时设置**：
`onerrorresumenext` 声明了错误处理方式，而 `Server.ScriptTimeout=999999` 设置了无限的脚本执行时间，避免因执行时间过长导致中断。
在实际操作中，这个程序可能会使用HTTP请求库（如WinHttp.WinHttpRequest）来发送HTTP GET或POST请求到房地产网站，解析HTML内容，提取房产信息（如价格、地址等），然后可能使用正则表达式（replace、str函数、substr等）进行数据清洗和提取。最后，抓取的数据会被存储在数据库中，或者显示在前端页面上供用户查看。
总结来说，这篇文章提供了一个基础框架，展示了如何结合ASP的基本语法、网络请求和字符串处理技巧来自动化抓取和处理网上房产信息的过程。对于想要学习网络爬虫或ASP编程的人来说，这是一个很好的实践案例。
实例讲解实现抓取网上房产信息的实例讲解实现抓取网上房产信息的ASP程序程序
<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”936″%>
<!– #include file=”conn.asp” –>
<!– #include file=”inc/function.asp” –>
<!DOCTYPE HTML PUBLIC “-//W3C//DTD HTML 4.01 Transitional//EN” “http://www.w3.org/TR/html4/loose.dtd”>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″>
<meta http-equiv=”refresh” content=”300;URL=steal_house.asp”>
</head>
<body>
<%
on error resume next
‘
Server.ScriptTimeout = 999999
‘========================================================
‘字符编码函数
‘====================================================
Function BytesToBstr(body,code)
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 =code
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
‘取行字符串在另一字符串中的出现位置
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function
‘替换字符串函数
function ReplaceStr(ori,str1,str2)
ReplaceStr=replace(ori,str1,str2)
end function
‘====================================================
function ReadXml(url,code,start,ends)
set oSend=createobject(“Microsoft.XMLHTTP”)
SourceCode = oSend.open (“GET”,url,false)
oSend.send()
ReadXml=BytesToBstr(oSend.responseBody,code )
start=Instr(ReadXml,start)
ReadXml=mid(ReadXml,start)
ends=Instr(ReadXml,ends)
ReadXml=left(ReadXml,ends-1)
end function
function SubStr(body,start,ends)
start=Instr(body,start)
SubStr=mid(body,start+len(start)+1)
ends=Instr(SubStr,ends)
下载后可阅读完整内容，剩余5页未读，立即下载
点击了解资源详情
254 浏览量
752 浏览量
5326 浏览量
175 浏览量
138 浏览量
166 浏览量
weixin_38530211
- 粉丝: 1
- 资源: 970
我的内容管理
展开
