仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 531|回复: 9
打印 上一主题 下一主题

[学习教程] ASP网页编程之xmlhttp 抓取网页内容2

[复制链接]
若天明 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:25:49 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的;抓取网页。偶要完成实实更新天色预告。使用了XMLHTTP组件,抓取网页的指定部分。
必要分件html源代码
此例中的被抓取的html源代码以下
<palign=left>2004年8月24日礼拜二;日间:晴偶然多云熏风3―4级;夜间:晴熏风3―4级;气温:最高29℃最低19℃</p>
而程序中是从
以2004年8月24日为关头字搜刮,直到</p>结速
而抓取的内容就酿成了"2004年8月24日礼拜二;日间:晴偶然多云熏风3―4级;夜间:晴熏风3―4级;气温:最高29℃最低19℃"
干洁净净的了。纪录一下。

<%
OnErrorResumeNext
Server.ScriptTimeOut=9999999
FunctiongetHTTPPage(Path)
t=GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
EndfunctionFunctionGetBody(url)
onerrorresumenext
SetRetrieval=CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"Get",url,False,"",""
.Send
GetBody=.ResponseBody
EndWith
SetRetrieval=Nothing
EndFunction
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
FunctionNewstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
ifNewstring<=0thenNewstring=Len(wstr)
EndFunction
%>
<html>
<BODYbgColor=#ffffffleftMargin=0topMargin=0MARGINHEIGHT=0MARGINWIDTH=0>
<!--入手下手-->
<%
Dimwstr,str,url,start,over,dtime
dtime=Year(Date)&"年"&Month(Date)&"月"&Day(Date)&"日"
url="http://www.qianhuaweb.com/"
wstr=getHTTPPage(url)
start=Newstring(wstr,dtime)
over=Newstring(wstr,"</p>")
body=mid(wstr,start,over-start)
response.write"<MARQUEEonmou搜索引擎优化ver=this.stop();onmou搜索引擎优化ut=this.start();>"&body&"</marquee>"

%>
<!--停止-->
</body></html>


只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天
愤怒的大鸟 该用户已被删除
沙发
发表于 2015-1-17 18:11:07 | 只看该作者
如何更好的使自己的工具看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
若天明 该用户已被删除
板凳
 楼主| 发表于 2015-1-21 07:04:44 | 只看该作者
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
冷月葬花魂 该用户已被删除
地板
发表于 2015-1-30 10:30:38 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
兰色精灵 该用户已被删除
5#
发表于 2015-2-6 10:03:47 | 只看该作者
不能只是将它停留在纸上谈兵的程度上。
海妖 该用户已被删除
6#
发表于 2015-2-15 22:49:15 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
7#
发表于 2015-3-4 16:59:30 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
精灵巫婆 该用户已被删除
8#
发表于 2015-3-11 20:31:03 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
老尸 该用户已被删除
9#
发表于 2015-3-19 12:07:21 | 只看该作者
他的语法和设计思路和VB完全相同,导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是,相当多的ASP教程混合了Javascript,VBscript等等脚本语言,搞的初学者。
莫相离 该用户已被删除
10#
发表于 2015-3-28 01:51:06 | 只看该作者
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-5-14 20:20

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表