<% '*********************************************************************************** ' 文件名.........: Weather.asp ' 作者...........: flanker ' 说明...........: 自动获取天气预报 ' 注意...........: ' 版权...........: Copyright (c) 2003, http://www.bbe8.com ' 修改记录.......: 时间人员备注 ' --------- ------- ------------------------------------------- ' 2003-01-21 flanker 创建文件 '*********************************************************************************** %> <% shen = Trim(Request("shen")) Action = Trim(Request("Action")) Select Case(Action) Case("") ShowList() '显示列表 Case("1") ShowDetail() '显示详细 end select '-----------------------------显示列表---------------------------- Function ShowList() Response.Write "全国天气预报" set ShowRs = conn.execute("Select * from Part1 order by id") %>

全国各地天气预报,全国各地天气查询


省:
市:

全国邮政编码查询,各国电话区号查询

全国火车时刻查询

<% end Function '---------------------------显示详细------------------------------- Function ShowDetail() shi = Trim(Request("shi")) if Shi = "" or shi = "0" then Response.Write "缺少必须参数！" Response.end end if Response.Write ""&GetShiName(shi)&"" if left(shi,2) = "TW" then myurl = "http://cn.weather.yahoo.com/TWXX/"&Shi&"/index_c.html" else myurl = "http://cn.weather.yahoo.com/CHXX/"&Shi&"/index_c.html" end if Content = getHTTPPage(myurl) if Content = "" or len(Content) < 500 then ShowError() Temp1 = instr(Content,"今天天气") Temp3 = instr(Content," 0 then Temp2 = instr(Temp1,Content,"") if Temp1 =0 or Temp1 < 0 or Temp2 = 0 or Temp2 < 0 or Temp2 < Temp1 then showError() Content = mid(Content,Temp1,Temp2-Temp1) else Temp2 = instr(Temp3,Content,"

" Response.Write "

" end Function %>