<!--#include file="ConnUser.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="char.inc"-->

<script language=javascript>
function CheckFormUserLogin()
{
	if(document.UserLogin.UserName.value=="")
	{
		alert("请输入用户名！");
		document.UserLogin.UserName.focus();
		return false;
	}
	if(document.UserLogin.Passwd.value == "")
	{
		alert("请输入密码！");
		document.UserLogin.Passwd.focus();
		return false;
	}
	if(document.UserLogin.verifycode.value == "")
	{
		alert("请输入验证码！");
		document.UserLogin.verifycode.focus();
		return false;
	}
}
</script>
<SCRIPT language="JavaScript" type="text/javascript">
    // Begin morelink
      function morelink(morelink)
      {
        url = 'MoreLink.asp?linktype=1';
        window.open(url,morelink);
      }
    // End morelink-->
 // Begin linkreg
      function linkreg(linkreg)
      {
        url = 'LinkReg.asp';
        window.open(url,linkreg);
      }
    // End linkreg-->
// Begin vote
      function vote(vote)
      {
        url = 'Vote.asp?stype=view';
        window.open(url,vote);
      }
    // End vote-->
// Begin adduser
      function adduser(adduser)
      {
        url = 'AddUserlistbigclass.asp';
        window.open(url,adduser);
      }
    // End adduser-->
// Begin getpwd
      function getpwd(getpwd)
      {
        url = 'GetPwd.asp';
        window.open(url,getpwd);
      }
    // End getpwd-->
</script>


<%		'获取当前 URL
dim ViewUrl
if Request.ServerVariables("QUERY_STRING")<>"" then
	ViewUrl=Request.ServerVariables("url") &"?"& Request.ServerVariables("QUERY_STRING")&""
else
	ViewUrl=Request.ServerVariables("url") &""
end if
response.cookies(Forcast_SN)("ViewUrl")=ViewUrl%>

<div id=menuDiv style='Z-INDEX: 2; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px; BACKGROUND-COLOR: #9cc5f8'></div>
<!--两侧广告开始-->
<%if topbg=1 then %>
	<script src="clearevents.js"></script>
	<noscript><iframe src=*></iframe></noscript>
<%end if%>
<%if R_BG=1 then %>
	<SCRIPT language=JavaScript src="Float.asp"></SCRIPT>
<%end if%>
<!--两侧广告结束-->
<div align="center">
<table width="1002" height="27" border="0" cellspacing="0" cellpadding="0" background="IMAGES/top.gif"><tr><td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td ><img src="IMAGES/biao1.gif" width="105" height="27"></td>
    <td ><img src="IMAGES/biao2.gif" width="210" height="27"></td>
    <td ><img src="IMAGES/biao3.gif" width="120" height="27"></td>
    <td><img src="IMAGES/biao4.gif" width="210" ></td>
  </tr>
</table></td></tr></table>
    <table width="1003" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="778" align="center">
	<table width="778" border="0" cellspacing="0" cellpadding="0" background="IMAGES/panjin2_02.gif">
  <tr>
    <td>
	<TABLE WIDTH=778 BORDER=0 CELLPADDING=0 CELLSPACING=0>
    <TR> 
      <TD width="165"><a href="<%=logourl%>">
<%if gd1="1" then%>
      <img src="<%=logo%>" width="165" height="86" border="0" align="absmiddle">
<%else%>
        <object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width="165" height="86" align="absmiddle">
          <param name=movie value='<%=logo%>'>
      <param name=quality value=High>
      <param name="_cx" value="5662">
      <param name="_cy" value="1640">
      <param name="FlashVars" value="-1">
      <param name="Src" value="<%=logo%>">
      <param name="WMode" value="Window">
      <param name="Play" value="-1">
      <param name="Loop" value="-1">
      <param name="SAlign" value>
      <param name="Menu" value="-1">
      <param name="Base" value>
      <param name="Scale" value="ShowAll">
      <param name="DeviceFont" value="0">
      <param name="EmbedMovie" value="0">
      <param name="BGColor" value>
      <param name="SWRemote" value>
	  <param name="wmode" value="transparent">
      <embed src='<%=logo%>' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width="165" height="86" align="absmiddle"></embed></object><%end if%></a></TD>
      <TD width="490"> 
        <div align="center"> 
          <a href="<%=bannerurl%>"> 
      <%if gd2="1" then%>
</a><a href="<%=bannerurl%>"><img src="<%=banner%>" width="468" height="120" border="0" align="absmiddle"></a><a href="<%=bannerurl%>">      
<%else%>
      <object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width="468" height="60" align="absmiddle">
          <param name=movie value='<%=banner%>'>
    <param name=quality value=High>
    <param name="_cx" value="13785">
    <param name="_cy" value="1588">
    <param name="FlashVars" value="-1">
    <param name="Src" value="<%=banner%>">
    <param name="WMode" value="Window">
    <param name="Play" value="-1">
    <param name="Loop" value="-1">
    <param name="SAlign" value>
    <param name="Menu" value="-1">
    <param name="Base" value>
    <param name="Scale" value="ShowAll">
    <param name="DeviceFont" value="0">
    <param name="EmbedMovie" value="0">
    <param name="BGColor" value>
    <param name="SWRemote" value>
    <param name="wmode" value="transparent">
    <embed src='<%=banner%>' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width="468" height="60" align="absmiddle"></embed>
      </object>
      <%end if%>
</a>
        </div></TD>
      
	  </TR>
  </TABLE>
	<table width="778" border="0" cellspacing="0" cellpadding="0">
      <tr>
          <td height="33" background="IMAGES/pjtop.jpg"><table width="778" border="0" cellspacing="0" cellpadding="0">
      <tr><td width="200" valign="middle">
        <font color="#FFFFFF"> 
      &nbsp;&nbsp;
      <%Response.Write FormatDateTime(Date(),1) & "  周"& Mid("日一二三四五六",WeekDay(Date),1) %>
      </font> </td>
        <td width="3"><img src="IMAGES/pjtopmi.jpg" width="2" height="33"></td>
        <td width="100" align="center" background="IMAGES/20.jpg"> <a href='index.asp' class=top1> 本站首页 </a></td>
        <td width="3"><img src="IMAGES/pjtopmi.jpg" width="2" height="33"></td>
        <td width="100" align="center"> <a href='index.asp' class=top1> 政务公开</a></td>
        <td width="3"><img src="IMAGES/pjtopmi.jpg" width="2" height="33"></td>
        <td width="100" align="center"> <a href='index.asp' class=top1> 图片新闻 </a></td>
        <td width="3"><img src="IMAGES/pjtopmi.jpg" width="2" height="33"></td>
        <td width="100" align="center"> <a href='index.asp' class=top1> 信息咨询</a></td>
        <td width="3"><img src="IMAGES/pjtopmi.jpg" width="2" height="33"></td>
        <td width="100" align="center"> <a href='index.asp' class=top1> 专题专辑</a></td>
		<td width="3"><img src="IMAGES/pjtopmi.jpg" width="2" height="33"></td>
        <td width="100" align="center"> <a href='#' class=top1> 经济发展 </a></td>
        <td width="100" align="center">&nbsp;</td>
      </tr>
    </table></td>
      </tr>
      <tr>
        <td nowrap bgcolor="#ECECEC" class="topmenu">
<table width="778" height="25" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="170">&nbsp;</td>
    <td><%
dim menuid
dim menuname
dim menucontent
dim menuview
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraymenuID(1000),ArraymenuName(1000)
while not rs.EOF
RecordCount=rs.RecordCount
menuid=rs("typeid")
menuname=rs("typename")
menucontent=rs("typecontent")
menuview=rs("typeview")
TdString="<font color='#396104'>|</font>&nbsp;<a href='type.asp?typeID="& menuid &" 'class=top9 title='"& menucontent &"' class='top9'>"& menuName &"</a>" 
Response.Write TdString
ArraymenuID(i)=menuID
ArraymenuName(i)=menuName
i=i+1
rs.MoveNext
wend
rs.close
set rs=nothing
%>|</td>
    </tr>
</table>
</td>
      </tr>
    </table></td>
  </tr>
</table>

	</td>
    <td width="224" align="right" valign="top" ><table width="224" height="180" border="0" cellpadding="0" cellspacing="0" background="IMAGES/pjrbj.jpg">
      <tr>
        <td width="224" height="32"><table width="224" height="32" border="0" cellpadding="0" cellspacing="0" background="IMAGES/pjzyw.gif">
          <tr>
            <td align="center" valign="middle" ><a href="#" class=top1>&gt;&gt;简体中文</a></td>
            <td align="center" valign="middle" ><a href="#" class=top1>&gt;&gt;English</a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td valign="top"><table width="224" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><table width="224" height="32" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="75"><img src="IMAGES/pjtq.bmp"></td>
                <td background="IMAGES/pjbj.bmp">&nbsp;</td>
              </tr>
            </table></td>
          </tr>
          <tr>
            <td><table width="224" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td  width="20"></td>
	<td><marquee  direction=up height=100 scrollamount=1 scrolldelay=50 style="COLOR: #000000; class: " width=200 ;><%Response.Write FormatDateTime(Date(),1) & "  星期"& Mid("日一二三四五六",WeekDay(Date),1) %>:&nbsp;&nbsp;今天白天：多云有小雨，北风３到４级，最高气温１０摄氏度；

    今天夜间：多云，北风３到４级，最低气温３摄氏度。<br>

    明天白天到夜间：多云。后天白天到夜间：晴有时多云。<br>

    明天晨练指数为五级，不适于晨练。<br>

    医疗气象综合预报：对高血压、胃及十二指肠溃疡病有加重倾向；感冒、脑中风病人增多。<br>

    白天舒适度指数４７； ３级；人体感觉凉，不舒适。<br>

    紫外线指数４级；辐射强度：弱，对人体的影响正常，可以不采取措施。<br>

    明天穿衣指数 ５；着装厚度 １２．８ｍｍ；服装款式：风衣、大衣、外套、毛衣、薄棉外套。<br>

    空气质量预报<br>

    空气质量等级：２级；空气质量状况：良。<br>
	
    </marquee></td>
  </tr>
</table>
</td>
          </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
<!--菜单开始-->




<!--菜单结束-->  
  
</table>

  
  	<table width="760" border="0" cellpadding="0" cellspacing="0" bgcolor="#99CDFF">
	</table>
</div>

  

