gpt4 book ai didi

asp中利用xmlhttp抓取网页内容的代码

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 31 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章asp中利用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℃ "  干干净净的了。记录一下。  。

复制代码代码如下

<%  On Error Resume Next  Server.ScriptTimeOut=9999999  Function getHTTPPage(Path)  t = GetBody(Path)  getHTTPPage=BytesToBstr(t,"GB2312")  End function  Function GetBody(url)  on error resume next  Set Retrieval = CreateObject("Microsoft.XMLHTTP")  With Retrieval  .Open "Get", url, False, "", ""  .Send  GetBody = .ResponseBody  End With  Set Retrieval = Nothing  End Function  Function BytesToBstr(body,Cset)  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 = Cset  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  %>  <html>  <BODY bgColor=#ffffff leftMargin=0 topMargin=0 MARGINHEIGHT=0 MARGINWIDTH=0>  <!-- 开始 -->  <%  Dim wstr,str,url,start,over,dtime  dtime=Year(Date)&"年"&Month(Date)&"月"&Day(Date)&"日"  url="//www.zzvips.com/"  wstr=getHTTPPage(url)  start=Newstring(wstr,dtime)  over=Newstring(wstr,"</p>")  body=mid(wstr,start,over-start)  response.write "<MARQUEE onmouseover=this.stop(); onmouseout=this.start();>"&body&"</marquee>"  %>  <!-- 结束 -->  </body></html>  。

最后此篇关于asp中利用xmlhttp抓取网页内容的代码的文章就讲到这里了,如果你想了解更多关于asp中利用xmlhttp抓取网页内容的代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

31 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com