莆田鞋業源代碼

回應。content type = " text/html；charset=gb2312 "

打電話問天氣()

子天氣()

Url="/inc/07_dc107.htm " '莆田的天氣。

打電話給IsObjInstalled(“微軟。XMLHTTP”)

weatherStr= getHTTPPage(url)

如果weatherStr= " "那麽

Response .寫“抱歉，天氣預報加載失敗！”

其他

set reg=new Regexp

註冊。Multiline=True

註冊。全局=假

註冊。IgnoreCase=true

註冊。Pattern = " & ltTD height = " " 57 " " align = " " center " " bgcolor = " " # eef3f 8 " " & gt；((.|\n)*？)& lt/TD & gt；& lt/tr >；

set matches = reg . execute(weatherStr)

每場比賽1場比賽

weatherStr=match1。價值

然後

設置匹配=無

設置reg = Nothing

如果InStr(weatherStr，"且未找到")> 0，則

Response .寫“抱歉，天氣預報加載失敗！”

其他

weatherStr=Replace(weatherStr，" & ltbr >；," ")

% & gt

& ltfont color = " # cc 0000 " style = " font-size:9pt " >今天的天氣:

& lt%

如果…就會結束

如果…就會結束

末端接頭

//采用微軟。XMLHTTP組件來收集數據。

函數getHTTPPage(url)

出錯時繼續下壹步

dim http

set http = server . createobject(" Microsoft。XMLHTTP”)

http . open“GET”，url，false

Http.send()

如果Http.readystate & lt& gt那麽4

退出功能

如果…就會結束

getHTTPPage = bytes 2 bstr(http . response body)

設置http =無

if err.number & lt& gt0然後出錯。清楚的

結束功能

//采用ADODB。流來處理收集的數據，並將二進制文件轉換為文本字符。

功能字節2bStr(vin)

Dim BytesStream，StringReturn

Set BytesStream = Server。CreateObject("ADODB。流”)

字節流。類型= 2

字節流。打開

字節流。WriteText vin

字節流。位置= 0

字節流。Charset = "GB2312 "

字節流。位置= 2

StringReturn =BytesStream。閱讀文本

BytesStream.close

設置字節流=無

Bytes2bStr = StringReturn

結束功能

//檢查組件，使用xmlhttp抓取網頁或AspHTTP。

函數IsObjInstalled(strClassString)

出錯時繼續下壹步

IsObjInstalled = False

Err = 0

Dim xTestObj

設置xTestObj = Server。CreateObject(strClassString)

如果0 = Err，則

如果AspHttpOpen=1，則

IsObjInstalled = True

Response.write“系統不支持XMLHTTP組件”

" Response.write "當前組件ASPHTTP "

response.end()

其他

IsObjInstalled = False

" Response.write "當前組件XMLHTTP "

如果…就會結束

其他

IsObjInstalled = False

" Response.write "當前組件XMLHTTP "

如果…就會結束

Set xTestObj = Nothing

Err = 0

結束功能

% & gt