ASP网站制作之XMLHTTP抓取远程数据的前期处置

只看该作者 · 发表于 2015-1-16 23:11:15

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

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

x

想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的xml|数据<%

作者信息:
昵称:小灰
QQ:103895
http://asp2004.net
http://blog.csdn.net/iuhxq

hehe=Hello("http://mmsg.qq.com/cgi-bin/gddylist?Type=13&Sort=1&Page=3","<html>","</html>",".*(<tdwidth=""35%""bgcolor=""#[dABCDE]{6}"">(.*)</td>)[.
]*","<fontstyle=""font-size:9pt;""color=blue>$2 ")
response.Writehehe

FunctionHello(strUrl,strStart,strEnd,patrn,replStr)
Str=GetBody(strUrl)
Str=MyMid(Str,strStart,strEnd)
Str=ReplaceTest(patrn,replStr,Str)
Hello=Str
EndFunction

FunctionMyMid(Str,strstart,strend)
Ifstrstart=""Then
i=0
Else
i=InStr(Str,strstart)
EndIf
Ifstrend=""Then
j=Len(Str)
Else
j=InStr(i,Str,strend)
EndIf
MyMid=Mid(Str,i,j-i+1)
EndFunction

FunctionReplaceTest(patrn,replStr,str1)
DimregEx,match,matches
SetregEx=NewRegExp
regEx.Pattern=patrn
regEx.IgnoreCase=True
regEx.Global=True
Setmatches=regEx.Execute(str1)
ForEachmatchinmatches
ReplaceTest=ReplaceTest&regEx.Replace(Match.Value,replStr)
Next
EndFunction

FunctionGetBody(Url)
SetobjXML=CreateObject("Microsoft.XMLHTTP")
WithobjXML
.Open"Get",Url,False,"",""
.SEnd
GetBody=.ResponseBody
EndWith
GetBody=BytesToBstr(GetBody,"GB2312")
SetobjXML=Nothing
EndFunction

FunctionBytesToBstr(strBody,CodeBase)
SetobjStream=Server.CreateObject("Adodb.Stream")
WithobjStream
.Type=1
.Mode=3
.Open
.WritestrBody
.Position=0
.Type=2
.Charset=CodeBase
BytesToBstr=.ReadText
.Close
EndWith
SetobjStream=Nothing
EndFunction
%>
其他挪用示例：
hehe=Hello("http://list.mp3.baidu.com/song/A.htm","<tablewidth=""90%""border=""0""align=""center""cellpadding=""3""cellspacing=""0""bgcolor=""#f5f5f5"">","<DIValign=center>",".*(<tdwidth=""20%""><ahref="".*.htm""target=_blank>)(.*)(</a></td>)[.
]*","<fontstyle=""font-size:9pt;""color=blue>$2 ")

asp对于服务器的要求较高，一般的服务器如果访问量一大就垮了，不得不重启。

只看该作者 · 发表于 2015-1-20 08:08:48

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

只看该作者 · 发表于 2015-2-2 21:33:36

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

只看该作者 · 发表于 2015-2-8 06:19:55

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

只看该作者 · 发表于 2015-2-24 12:16:18

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

只看该作者 · 发表于 2015-3-7 12:08:59

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

只看该作者 · 发表于 2015-3-15 04:39:07

用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

只看该作者 · 发表于 2015-3-21 18:21:42

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网站制作之XMLHTTP抓取远程数据的前期处置

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

相关帖子