asp
guolucky2003
这个作者很懒,什么都没留下…
展开
-
xmlhttp 抓取网页内容1
On Error Resume NextServer.ScriptTimeOut=9999999Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312")End functionFunction bytes2BSTR(vIn)strReturn = "" For j原创 2004-10-29 11:41:00 · 866 阅读 · 0 评论 -
xmlhttp 抓取网页内容2
抓取网页。偶要实现实实更新天气预报。利用了XMLHTTP组件,抓取网页的指定部分。需要分件html源代码此例中的被抓取的html源代码如下2004年8月24日星期二;白天:晴有时多云南风3—4级;夜间:晴南风3—4级;气温:最高29℃最低19℃ 而程序中是从以2004年8月24日为关键字搜索,直到结速而抓取的内容就变成了"2004年8月24日星期二;白天:晴有时多云南风3—4级;夜间:晴南风3—4原创 2004-10-29 11:50:00 · 965 阅读 · 0 评论