[转载]XMLHTTP 抓取[天气预报]网页内容

转载自:www.csdn.net

抓取网页。偶要实现实实更新天气预报。利用了XMLHTTP组件,抓取网页的指定部分。
需要分件html源代码
此例中的被抓取的html源代码如下
<p align=left>2004年8月24日星期二;白天:晴有时多云南风3—4级;夜间:晴南风3—4级;气温:最高29℃最低19℃ </p>
而程序中是从
以2004年8月24日为关键字搜索,直到</p>结速
而抓取的内容就变成了"2004年8月24日星期二;白天:晴有时多云南风3—4级;夜间:晴南风3—4级;气温:最高29℃最低19℃ "
干干净净的了。记录一下。

None.gif < %
None.gif
On   Error   Resume   Next
None.gifServer.ScriptTimeOut
= 9999999
None.gif
Function  getHTTPPage(Path)
None.gif        t 
=  GetBody(Path)
None.gif        getHTTPPage
= BytesToBstr(t, " GB2312 " )
None.gif
End function  
None.gif
Function  GetBody(url) 
None.gif        
on   error   resume   next
None.gif        
Set  Retrieval  =   CreateObject ( " Microsoft.XMLHTTP "
None.gif        
With  Retrieval 
None.gif        .Open 
" Get " , url,  False "" ""  
None.gif        .Send 
None.gif        GetBody 
=  .ResponseBody
None.gif        
End   With  
None.gif        
Set  Retrieval  =   Nothing  
None.gif
End Function
None.gif
None.gif
Function  BytesToBstr(body,Cset)
None.gif        
dim  objstream
None.gif        
set  objstream  =  Server.CreateObject( " adodb.stream " )
None.gif        objstream.Type 
=   1
None.gif        objstream.Mode 
= 3
None.gif        objstream.Open
None.gif        objstream.Write body
None.gif        objstream.Position 
=   0
None.gif        objstream.Type 
=   2
None.gif        objstream.Charset 
=  Cset
None.gif        BytesToBstr 
=  objstream.ReadText 
None.gif        objstream.Close
None.gif        
set  objstream  =   nothing
None.gif
End Function
None.gif
Function  Newstring(wstr,strng)
None.gif        Newstring
= Instr ( lcase (wstr), lcase (strng))
None.gif        
if  Newstring <= 0   then  Newstring = Len (wstr)
None.gif
End Function
None.gif%
>

转载于:https://www.cnblogs.com/rungroo/archive/2005/12/14/297322.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
未来社区的建设背景和需求分析指出,随着智能经济、大数据、人工智能、物联网、区块链、云计算等技术的发展,社区服务正朝着数字化、智能化转型。社区服务渠道由分散向统一融合转变,服务内容由通用庞杂向个性化、服务导向转变。未来社区将构建数字化生态,实现数据在线、组织在线、服务在线、产品智能和决策智能,赋能企业创新,同时注重人才培养和科研平台建设。 规划设计方面,未来社区将基于居民需求,打造以服务为中心的社区管理模式。通过统一的服务平台和应用,实现服务内容的整合和优化,提供灵活多样的服务方式,如推送式、订阅式、热点式等。社区将构建数据与应用的良性循环,提高服务效率,同时注重生态优美、绿色低碳、社会和谐,以实现幸福民生和产业发展。 建设运营上,未来社区强调科学规划、以人为本,创新引领、重点突破,统筹推进、整体提升。通过实施院落+社团自治工程,转变政府职能,深化社区自治法制化、信息化,解决社区治理中的重点问题。目标是培养有活力的社会组织,提高社区居民参与度和满意度,实现社区治理服务的制度机制创新。 未来社区的数字化解决方案包括信息发布系统、服务系统和管理系统。信息发布系统涵盖公共服务类和社会化服务类信息,提供政策宣传、家政服务、健康医疗咨询等功能。服务系统功能需求包括办事指南、公共服务、社区工作参与互动等,旨在提高社区服务能力。管理系统功能需求则涉及院落管理、社团管理、社工队伍管理等,以实现社区治理的现代化。 最后,未来社区建设注重整合政府、社会组织、企业等多方资源,以提高社区服务的效率和质量。通过建立社区管理服务综合信息平台,提供社区公共服务、社区社会组织管理服务和社区便民服务,实现管理精简、高效、透明,服务快速、便捷。同时,通过培育和发展社区协会、社团等组织,激发社会化组织活力,为居民提供综合性的咨询和服务,促进社区的和谐发展。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值