<!--#include file="conntq.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/index.css" rel="stylesheet" type="text/css">
<title>无标题文档</title>
</head>

<body>
<%
set rs = server.CreateObject ("Adodb.recordset")
if request("page")="" then 
	page = "1"
else
page = request("page")
end if
%>
<table border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td rowspan="2" valign="top" bgcolor="#eeeeee">
<table width="" cellspacing="1" cellpadding="3" bgcolor="#CCCCCC" align="center">
<tr>
	<td bgcolor="#E3E3E3">
		地区
	</td>
</tr>
<%
sql = "select * from weather where  flag='****' order by shunxu asc "
rs.open sql,conntq,1,1

do while not rs.eof
diqu = rs("diqu")
if diqu = "huabei" then
	diqu = "华北地区"
end if
if diqu = "huadong" then
	diqu = "华东地区"
end if
if diqu = "dongbei" then
	diqu = "东北地区"
end if
if diqu = "zhongnan" then
	diqu = "中南地区"
end if
if diqu = "xinan" then
	diqu = "西南地区"
end if
if diqu = "xibei" then
	diqu = "西北地区"
	aa = rs("diqu")
	bb = rs("shengfen")
end if
if diqu = "gongaotai" then
	diqu = "港澳台地区"
end if
%>
<tr>
	<td align="left" bgcolor="#eeeeee">
		<a href= diqu.asp?diqu=<%=rs("diqu")%>&sheng=<%=rs("shengfen")%>><font color=blue><%=diqu%></font></a>	</td>
</tr>
<%
rs.movenext
loop
rs.close
%>
</table></td>

  <td align="left" valign="top" bgcolor="#eeeeee">
    <table cellspacing="1" cellpadding="3" bgcolor="#CCCCCC" align="left">
	<tr>
		<td bgcolor="#E3E3E3">
			<%
			'if session("diqu2")="" or session("diqu2")<>session("diqu1") then
			if request("diqu")="" then
			diqu = aa
			else
			diqu = request("diqu")
			end if
			if diqu = "huabei" then
				diqu = "华北地区"
			end if
			if diqu = "huadong" then
				diqu = "华东地区"
			end if
			if diqu = "dongbei" then
				diqu = "东北地区"
			end if
			if diqu = "zhongnan" then
				diqu = "中南地区"
			end if
			if diqu = "xinan" then
				diqu = "西南地区"
			end if
			if diqu = "xibei" then
				diqu = "西北地区"
			end if
			if diqu = "gongaotai" then
				diqu = "港澳台地区"
			end if
			response.Write diqu
			%></td>
	</tr>
      <%
if request("diqu")="" then
sql = "select distinct shengfen from weather where diqu = '"&aa&"'"
else
sql = "select distinct shengfen from weather where diqu = '"& request("diqu") &"'"
end if
rs.open sql,conntq,1,1
do while not rs.eof
%>
      <tr>
        <td align="left" bgcolor="#eeeeee">
          
            <a href= diqu.asp?page=3&sheng=<%=rs("shengfen")%>&diqu=<%=request("diqu")%>><font color=blue><%=rs("shengfen")%></font></a>          </td>
      </tr>
      <%
rs.movenext
loop
rs.close
%>
    </table>
</td>
<td valign="top" bgcolor="#eeeeee">


    <table cellspacing="1" cellpadding="3" bgcolor="#CCCCCC" align="left">
	<tr>
		<td bgcolor="#E3E3E3">
			<%
			if request("sheng")="" then
				response.Write(bb)
			else
				response.write(request("sheng"))
			end if
			%></td>
	</tr>
      <%
if request("sheng")="" then
sql = "select * from weather where shengfen = '"&bb&"'"
else
sql = "select * from weather where shengfen = '"& request("sheng") &"'"
end if
rs.open sql,conntq,1,1
do while not rs.eof
url = rs("url")
url = right(url,len(url)-instr(url,"="))

%>
      <tr>
        <td align="left" bgcolor="#eeeeee">
          
            <a href= weather.asp?id=<%=url%> target="main"><font color=blue><%=rs("addresname")%></font></a>          </td>
      </tr>
      <%
rs.movenext
loop
rs.close
set rs = nothing
%>
    </table>   </td>
</tr>
</table>
</body>
</html>
