蓝色空间天气小偷复制代码代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '------------------------------ '程序名称：蓝色空间天气小偷 '程序设计：小马 'QQ：55100100 '网站：http://www.bluespace.cn(蓝色空间) '日期：2005-11-15 '------------------------------ Dim strArray(9,2),AreaID strArray(1,0) = "index.htm" strArray(1,1) = "华北地区" strArray(2,0) = "hd.htm" strArray(2,1) = "华东地区" strArray(3,0) = "hn.htm" strArray(3,1) = "华南地区" strArray(4,0) = "hz.htm" strArray(4,1) = "华中地区" strArray(5,0) = "db.htm" strArray(5,1) = "东北地区" strArray(6,0) = "xb.htm" strArray(6,1) = "西北地区" strArray(7,0) = "xn.htm" strArray(7,1) = "西南地区" strArray(8,0) = "ga.htm" strArray(8,1) = "港澳台地区" AreaID = Request.QueryString If AreaID = "" Then AreaID = 1 Sub GetPage() Dim strUrl,strTmp,strTmp1 strUrl = "http://weather.265.com/"&strArray(AreaID,0) strTmp = GetHttpPage(strUrl) strTmp1 = strCut(strTmp,""," <% Call GetPage() %>