ASP编程实例：抓取网上房产信息的方法与步骤

replace

replace函数

92 浏览量更新于2024-08-28 收藏 58KB PDF 举报

身份认证购VIP最低享 7 折!

30元优惠券

本文档是一篇实例教程，详细介绍了如何使用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>

</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页未读，立即下载

weixin_38530211

粉丝: 1
资源: 970

ASP编程实例：抓取网上房产信息的方法与步骤

实例讲解ASP实现抓取网上房产信息

ASP程序设计实例讲解+附源代码

c语言程序实例讲解.pdf

labview modbus rtu 实例讲解.pdf

qserialport 实例程序详细讲解

spring aop实例讲解

使用asp net来调用淘宝客api开发的实例讲解

java程序步骤_java编写程序的步骤是什么？java编写程序步骤实例讲解

爬虫抓取技术实例

springboot aop实例讲解

Pso 同步位置输出实例讲解

visionpro视觉工具原理及实例讲解pdf 下载

c++ 工业软件开发程序实例框架讲解

tms320c6000实例讲解

asp.net就业实例教程(第2版)

asp net基础实例教程

视觉工具-原理及实例讲解.pdf

labview modbus rtu 实例讲解

asp netcore mvc实例

最新资源