' 首先，進行小偷程式的一些初始化設定，以上**的作用分別是忽略掉所有非致命性錯誤，把小偷程式的執行超時時間設定得很長（這樣不會出現執行超時的錯誤），轉換原來預設的utf-8編碼轉換成gb2312編碼，否則直接用xmlhttp元件呼叫有中文字元的網頁得到的將是亂碼。
'然後呼叫xmlhttp元件建立乙個物件並進行初始化設定。
function bytestobstr(body,cset)dim objstreamset objstream = server.createobject("adodb.stream")objstream.type = 1objstream.mode =3objstream.openobjstream.write bodyobjstream.position = 0objstream.type = 2objstream.charset = csetbytestobstr = objstream.readtextobjstream.closeset objstream = nothingend function
function newstring(wstr,strng)newstring=instr(lcase(wstr),lcase(strng))if newstring<=0 then newstring=len(wstr)end function
'處理抓取回來的資料需要呼叫adodb.stream元件並進行初始化設定。%>
以下即為頁面顯示部分:
city = request.querystring("id")'程式傳回的id變數（即使用者選擇的城市）賦給id
url=""'這裡設定需要抓取的頁面位址，當然你也可以直接指定某個位址而不使用變數
wstr=gethttppage(url)'獲取指定頁面的全部資料
start=newstring(wstr,"")'這裡設定需要處理的資料的頭部，這個變數應視不同情況而設定，具體內容可以通過檢視需要抓取的頁面的源**來確定。因為在這個程式裡我們需要抓取整個頁面,所以設定為頁面全部抓取。注意，設定的內容必須是頁面內容唯一的，不可以重複。
strover=""&chr(13)&chr(10)strover=strover&"
body=mid(wstr,start,over-start)'設定顯示頁面的範圍
'下面就是動用乾坤挪移+++的時候了，通過replace可以用一些字元替換掉資料中指定的字元。
'本程式中已經完成了替換的工作，如果有其他需要的話可以繼續進行類似的替換操作。
response.write body%>
Flex 天氣預報
效果如下截圖 建立乙個flex專案weather 在weather.mxml中新增乙個httpwebservice如下 result onresult event resultformat e4x 定義乙個onresult函式如下 bindable private var xml xml new x...
python天氣預報
1.引入requests import requests def query now 查詢實時天氣 return none query city input 請輸入要查詢的城市名稱 2.準備url位址 url query city 3.發請求,接收資料 response requests.get u...
天氣預報完成
終於把這個天氣預報搞好了，不過功能很簡單，目前只能查當天當地城市5天天氣。文章末尾附城市列表資料庫檔案 其實後台資料庫都已經做好了，按城市和拼音查詢的介面也有，自動定位模組也寫好了，只是懶的搞了，自己用用就算了。不過明顯比墨跡的啟動快，墨跡由於是商業軟體，出於商業上考慮，加了n多的內容。等哪天朋友有...