蓝色空间 天气小偷
网络编程 2025-03-29 19:31www.168986.cn编程入门
代码片段如下：
```vbscript
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% '-
'程序名称：蓝色空间天气获取程序
'程序设计：小马
'QQ联系：55100100
'官方网站：<
'创建日期：2005年11月15日
'-
Dim strArray(9,2), AreaID
strArray(1,0) = "index.htm" ; strArray(1,1) = "华北地区"
strArray(2,0) = "hd.htm" ; strArray(2,1) = "华东地区"
'...省略其他地区代码...
AreaID = Request.QueryString("AreaID") '获取地区ID参数，若未设置则默认为AreaID=1
Sub GetPage()
Dim strUrl, strTmp, strTmp1
strUrl = " & strArray(AreaID, 0) '构建天气页面URL地址
strTmp = getHTTPPage(strUrl) '获取HTTP页面内容
strTmp1 = strCut(strTmp, "