国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

實例解析抓取天氣預(yù)報的程序_ASP教程

2024-07-21 02:05:02
字體:
供稿:網(wǎng)友

推薦:ASP返回某字符串最后出現(xiàn)的位置
% dwwwStr= divdwww.cn/divdivwww.dwww.cn/div設(shè)計家園 dwwwStr= InStrRev(dwwwStr,/div) response.write dwwwStr % InstrRev 描述 返回某字符串在另一個字符串中出現(xiàn)的從結(jié)尾計起的位置。 語法 InstrRev(string1, string2[, start[, compare]]) InstrRe

早上在公司上班的時候,看到外邊下起了雪,2008年的第一場雪,比以往來的更晚一點,呵呵,冷啊。。

于是想辦法寫抓天氣預(yù)報的程序,看到了QQ的天氣預(yù)報挺不錯的。。呵呵。。就抓你了!

如圖:

代碼:

<%
'On Error Resume Next
'作者:無情 來源: 轉(zhuǎn)載請保留出處
Response.ContentType="text/html; charset=gb2312"

Call weather()

Sub weather()

url="http://weather.news.qq.com/inc/07_ss252.htm" '上海的天氣

Call IsObjInstalled("Microsoft.XMLHTTP")

weatherStr= getHTTPPage(url)

if weatherStr="" then
response.write "抱歉,天氣預(yù)報加載失敗!"
else
set reg=new Regexp
reg.Multiline=True
reg.Global=false
reg.IgnoreCase=true
reg.Pattern="<td height=""77"" class=""wht2 lk37"">((.|/n)*?)</td>"

Set matches = reg.execute(weatherStr)
For Each match1 in matches
weatherStr=match1.Value
Next
Set matches = Nothing
Set reg = Nothing

if InStr(weatherStr,"沒有找到與")>0 then
response.write "抱歉,天氣預(yù)報加載失敗!"
Else
weatherStr=Replace(weatherStr,"<td height=""77"" class=""wht2 lk37"">","")
weatherStr=Replace(weatherStr,"<div class=""txbd"">","")
weatherStr=Replace(weatherStr,"</div>"," ")
weatherStr=Replace(weatherStr,"</td>","")

response.write "上海天氣預(yù)報:"&weatherStr&""

end if

end if

End Sub

'// 采用 Microsoft.XMLHTTP 組件采集數(shù)據(jù)
Function getHTTPPage(url)
'on error resume next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
End function

分享:解析Asp實現(xiàn)Dig程序中的投票
ASP做一個dig程序中的投票(有的叫頂一下,踩一下),由于代碼較長,只貼出核心部分:投票中的代碼 網(wǎng)頁顯示投票的部分: div class=Vote1script src='/voteResult.asp?id=1action=view'/script/div 效果如圖: 520)this.width=500 border=0>,然后點投一

共2頁上一頁12下一頁
發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 建宁县| 新干县| 大英县| 昌图县| 曲松县| 西和县| 湄潭县| 红原县| 华容县| 蒲城县| 新乡市| 清丰县| 屏南县| 新闻| 绥棱县| 浦东新区| 贵德县| 改则县| 江都市| 沙洋县| 米脂县| 周至县| 大理市| 井冈山市| 广平县| 灌云县| 高碑店市| 花莲县| 襄城县| 攀枝花市| 余姚市| 寿宁县| 安康市| 大竹县| 洛浦县| 田林县| 镇原县| 黄浦区| 股票| 江口县| 大足县|