- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5蘋果iphone自動時間不準確的多種校正方法
- 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 7Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 8Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 9ipad版office如何激活? office365激活的圖文說明教程
- 10最新的Adobe Illustrator CS4序列號大全
- 11Mac怎么通過設置VPN來登錄youtube等國外網站
- 12qq郵件是否已讀怎么看 QQ郵箱已經發出去的郵件怎么知道對方是否已經查看
[摘要]抓取網頁。偶要實現實實更新天氣預報。利用了XMLHTTP組件，抓取網頁的指定部分。 需要分件html源代碼 此例中的被抓取的html源代碼如下 <p align=left>2004年8月24日星期二；白天：晴有時多云南風3—4級；夜間：晴南風3—4級；氣溫：最高29℃最低19℃ <...
抓取網頁。偶要實現實實更新天氣預報。利用了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="http://www.qianhuaweb.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>
（出處：Viphot）
推薦資訊 總人氣榜
最新教程 本月人氣
- 1iPhoneSE2價格多少_iPhoneSE2最新消息
- 2ios11 iMessage支持個人轉賬_ios11 iMessage個人轉賬設置方法
- 3ios11不支持哪一些設備_ios11不支持設備列表
- 4蘋果ios11支持哪一些設備_ios11支持的機型設備大全
- 5ios11什么時候出_ios11支持哪一些設備
- 6iOS10.3.2Beta5描述文件如何下載_蘋果iOS10.3.2Bete5固件下載地址
- 7王者榮耀iPhone定制土豪金配色對應的是哪一名英雄_王者榮耀劉邦iPhone定制機
- 8王者榮耀iPhone定制玫瑰金配色對應的是哪一名英雄_王者榮耀妲己iPhone定制機
- 9王者榮耀iPhone定制紅色配色對應的是哪一名英雄_王者榮耀孫尚香iPhone定制機
- 10王者榮耀iPhone定制銀色配色對應的是哪一名英雄_王者榮耀夏侯惇iPhone定制機
- 11王者榮耀iPhone定制黑色配色對應的是哪一名英雄_王者榮耀蘭陵王iPhone定制機
- 12蘋果5能升級ios10.3.3嗎_ios10.3.3支持機型列表
