<table width="189" border="0" cellpadding="0" cellspacing="0" bgcolor="EBEBEB" style="border-left: 1px solid #cccccc; border-bottom: 0px solid #cccccc;border-right: 1px solid #cccccc;">
      <tr>
        <td>
<!------红色顶部开始--------------------------------------------------------------->
		<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><table width="100%"  border="0" cellpadding="0" cellspacing="0" bgcolor="#C91B14" style="border-left: 1px solid #cccccc;border-right: 1px solid #cccccc">
      <tr>
        <td align="center"><table width="95%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><img src="IMAGES/pjtopshizh.jpg" width="118" height="29"></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="6" align="center"><img src="IMAGES/pjtopline.jpg" width="187" height="6"></td>
      </tr>
      <tr>
        <td align="center"><table width="95%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><a href="#"><img src="IMAGES/topzc.jpg" width="182" height="29" border="0"></a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td align="center"><table width="95%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><a href="#"><img src="IMAGES/topfg.jpg" width="182" height="29" border="0"></a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td align="center"><table width="95%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><a href="#"><img src="IMAGES/topjh.jpg" width="182" height="29" border="0"></a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td align="center"><table width="95%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><a href="#"><img src="IMAGES/topsj.jpg" width="182" height="29" border="0"></a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td align="center"><table width="95%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><table width="95%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img src="IMAGES/topbg.jpg" width="182" height="26"></td>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
	  <tr><td>&nbsp;</td></tr>
<tr><td height="28" background="IMAGES/topggline.jpg">
		<table width="95%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="21"><img src="IMAGES/topgsgg.jpg"></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
 
</table>

<!-----红色顶部结束---------------------------------------------------------------->
</td>
      </tr>
      <tr>
        <td >
		<!--公告开始------------------>
		<table width="100%" height="150" border="0" cellpadding="0" cellspacing="0">
		<%
set rsb=server.CreateObject("ADODB.RecordSet") 
rsb.Source="select * from "& db_Board_Table &" where inuse=1"
rsb.Open rsb.Source,conn,1,1
if not rsb.EOF then
%>
		<tr> 
                <td align="center" valign="middle"><table width="190" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center"> 
			
		<%=CutStr(htmlencode4(rsb("title")),26)%>

		<script language=JavaScript>marquee1();</script> <br>
		<br>
		<%=CheckStr(rsb("content"))%> <script language=JavaScript>marquee2();</script> <%=rsb("dateandtime")%><br>
		<a href="Board.asp" target="_blank" class=class>&gt;&gt;更多公告</a></td>
  </tr>
</table>
</td>
		</tr>
		<%else Response.Write "<tr><td align=center><br>暂  无</td></tr>"
		end if
     rsb.close
      set rsb=nothing%>
	</table>
		<!--公告结束-------------------->
<!----------------------------局长信箱开始-->
<table width="100%"  border="0" cellpadding="0" cellspacing="0" bgcolor="#C91B14" style="border-left: 1px solid #cccccc;border-right: 1px solid #cccccc;border-bottom: 1px solid #cccccc">
  <tr>
    <td height="26" align="center" background="IMAGES/topggline2.gif"><table width="95%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="26"><img src="IMAGES/leftshizhang.gif" width="118" height="29"></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td align="center"><table width="95%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="6"><img src="IMAGES/pjtopline.jpg" width="187" height="6"></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td align="center"><table width="100%" height="54"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><a href="#"><img src="IMAGES/leftshouli.gif" width="95" height="54" border="0"></a></td>
    <td width="3" align="center" valign="bottom"><img src="IMAGES/topmidi.gif" width="3" height="54"></td>
    <td><a href="mailto:dvb100@tom.com"><img src="IMAGES/leftxiexin.gif" width="97" height="54" border="0"></a></td>
  </tr>
</table>
</td>
  </tr>
  <tr>
    <td height="28" background="IMAGES/topggline.jpg"><img src="IMAGES/lefttoprd.gif" width="74" height="20"></td>
  </tr>
</table>

<!----------------------------局长信箱结束-->		
		</td>
      </tr>
      <tr>
        <td></td>
      </tr>
	  <tr><td><table width="100%"  border="0" cellpadding="0" cellspacing="0" >
          
          <tr>
            <td align="center" valign="middle"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="98%" id="AutoNumber5">
<% 
dim iiii
iiii = 0
if DbType = "MSSQL" then
		rs.Source="select top " & top_txt & " * from "& db_News_Table &" where updatetime>'"& now()-30 &"' and checkked=1 order by click DESC"   '选择本月
else
		rs.Source="select top " & top_txt & " * from "& db_News_Table &" where (updatetime>now()-30) and checkked=1 order by click DESC"   '选择本月
end if
rs.Open rs.Source,conn,1,1
if rs.bof and rs.eof then 
	response.write "<tr><td align=center><br>暂 无<br><br></td></tr>" 
else 
	do while not rs.eof%>
<tr> 
	<td height=18> · 
		<%if rs("picnews")=1 then%><img src="images/news_img.gif"> <%end if%>
		<a class=middle href="ReadNews.asp?NewsID=<%=rs("NewsID")%>" title="<%=htmlencode4(rs("title"))%>" target="_blank" ><%=CutStr(htmlencode4(rs("title")),24)%></a>
                </td>
			  </tr>
<% iiii = iiii + 1
    if iiii>top_txt-1 then exit do
	rs.movenext     
	loop
end if  
rs.close   
set rs=nothing%>
</table></td>
          </tr>
          <tr>
            <td align="center" valign="middle">&nbsp;</td>
          </tr>
         
        </table></td></tr>
      <tr>
        <td><table width="100%"  border="0" cellpadding="0" cellspacing="0" >
          <tr>
            <td height="28" background="IMAGES/topggline.jpg" style="border-left: 1px solid #cccccc;border-right: 1px solid #cccccc;border-bottom: 1px solid #cccccc"><img src="IMAGES/leftfwpt.gif"  ></td>
          </tr>
          <tr>
            <td height="50" align="center" valign="middle"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="150" height="40">
              <param name="movie" value="IMAGES/bszn.swf">
              <param name="quality" value="high">
              <embed src="IMAGES/bszn.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="150" height="40"></embed>
            </object></td>
          </tr>
          <tr>
            <td height="50" align="center" valign="middle"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="150" height="40">
              <param name="movie" value="IMAGES/bzxz.swf">
              <param name="quality" value="high">
              <embed src="IMAGES/bzxz.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="150" height="40"></embed>
            </object></td>
          </tr>
		   <tr>
            <td height="50" align="center" valign="middle"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="150" height="40">
              <param name="movie" value="IMAGES/xzsp.swf">
              <param name="quality" value="high">
              <embed src="IMAGES/xzsp.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="150" height="40"></embed>
            </object></td>
          </tr>
		   <tr>
            <td height="50" align="center" valign="middle"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="150" height="40">
              <param name="movie" value="IMAGES/zcjd.swf">
              <param name="quality" value="high">
              <embed src="IMAGES/zcjd.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="150" height="40"></embed>
            </object></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td><table width="100%"  border="0" cellpadding="0" cellspacing="0" >
          <tr>
            <td height="28" background="IMAGES/topggline.jpg" style="border-left: 1px solid #cccccc;border-right: 1px solid #cccccc;border-bottom: 1px solid #cccccc"><img src="IMAGES/leftgyny.gif" ></td>
          </tr>
          <tr>
            <td height="44 "align="center" valign="middle"><a href="#"><img src="IMAGES/zhongzhi.jpg" width="170" height="40" border="0"></a></td>
          </tr>
          <tr>
            <td height="44 "align="center" valign="middle"><a href="#"><img src="IMAGES/yangzhi.jpg" width="170" height="40" border="0"></a></td>
          </tr>
          <tr>
            <td height="44 "align="center" valign="middle"><a href="#"><img src="IMAGES/pjgy.gif" width="170" height="40" border="0"></a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td><table width="100%"  border="0" cellpadding="0" cellspacing="0" >
          <tr>
            <td height="28" background="IMAGES/topggline.jpg" style="border-left: 1px solid #cccccc;border-right: 1px solid #cccccc;border-bottom: 1px solid #cccccc"><img src="IMAGES/leftzsyz.gif" ></td>
          </tr>
          <tr>
            <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="47" align="center" valign="middle"><a href="#"><img src="IMAGES/pjzhaoshang_tz.gif" width="90" height="37" border="0"></a></td>
                <td align="center" valign="middle"><a href="#"><img src="IMAGES/pjzhaoshang_zc.gif" width="90" height="37" border="0"></a></td>
              </tr>
              <tr>
                <td height="47" align="center" valign="middle"><a href="#"><img src="IMAGES/pjzhaoshang_fx.gif" width="90" height="37" border="0"></a></td>
                <td align="center" valign="middle"><a href="#"><img src="IMAGES/pjzhaoshang_cx.gif" width="90" height="37" border="0"></a></td>
              </tr>
              <tr>
                <td height="47" align="center" valign="middle"><a href="#"><img src="IMAGES/pjzhaoshang_gx.gif" width="90" height="37" border="0"></a></td>
                <td align="center" valign="middle"><a href="#"><img src="IMAGES/pjzhaoshang_zs.gif" width="90" height="37" border="0"></a></td>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
	  <tr><td> <%if showspecial="1" then%> <table width="100%"  border="0" cellpadding="0" cellspacing="0" >
          <tr>
            <td height="28" background="IMAGES/topggline.jpg" style="border-left: 1px solid #cccccc;border-right: 1px solid #cccccc;border-bottom: 1px solid #cccccc"><img src="IMAGES/leftztzj.gif" ></td>
          </tr>
          <tr>
            
          <td > 
            <%if showspecial=1 then%>
            <%set rs2=server.CreateObject("ADODB.RecordSet")  '专题
rs2.Source="select Top " & top_sp & " * from "& db_Special_Table &"  order by SpecialID DESC "
rs2.Open rs2.Source,conn,1,1
if not rs2.EOF then
while not rs2.EOF

TrString="&nbsp;·&nbsp;<a class=class href='Special_News.asp?SpecialID=" & rs2("SpecialID") &"'>" & trim(CutStr(htmlencode4(rs2("SpecialNameRed")),24)) & "</a><br>"
Response.Write TrString

rs2.MoveNext
wend
%>
           <br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a class=class href=Special.asp>更多专题...</a> 
            <%
else
Response.Write "<tr><td width=100% align=center height=40>暂无专题</td></tr>"
end if
rs2.Close
set rs2=nothing

  
%>
          </td>
        </tr><%end if%>
          <tr>
            <td align="center" valign="middle">&nbsp;</td>
          </tr>
        </table><%end if%></td></tr>
      <tr>
        <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="28" background="IMAGES/topggline.jpg" style="border-left: 1px solid #cccccc;border-right: 1px solid #cccccc;border-bottom: 1px solid #cccccc"><img src="IMAGES/leftzxxx.gif" ></td>
          </tr>
          <tr>
            <td align="center"><!--#include file="ReviewIndex.asp"--></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
          </tr>
        </table></td>
      </tr>
	  
	  <!---投票开始-->
      <tr><%if showvote="1" then%>
        <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="28" background="IMAGES/topggline.jpg" style="border-left: 1px solid #cccccc"><img src="IMAGES/leftshdc.gif" ></td>
          </tr>
          <tr>
            
              <%
		set rs=conn.execute("SELECT * FROM " & db_Vote_Table & " where IsChecked=1") 
		if rs.eof then
		%>
		<tr align="center">
          <TD height="30" valign="bottom">尚无任何投票</TD>
        </tr>
                <%else%>
              <TR> 
                <TD width=100% align="center"><b><br>
                </b><%=rs("Title")%></TD>
              </TR>
                    <FORM action="Vote.asp" target="newwindow" method=post name=research>
                      <TR> 
                        <TD vAlign=top width="100%"> <br>
                          <%
for i=1 to 8
	if rs("Select"&i)<>"" then
%>
                          <INPUT style="border: 0" <%if i=1 then%>checked<%end if%> name=Options type=radio value=<%=i%>> 
                          <%=i%>.<%=rs("Select"&i)%><BR> 
                          <%	end if
next
%>
                        </TD>
                      </TR>
                      <TR> 
                        <TD width="100%" height=30 align=center> <INPUT style="cursor:hand" type=submit value="投它一票" id=submit1 name=submit1> 
                          <INPUT onclick="javascript:vote()" type="button" value="查看结果" id=button1 name=button1 style="cursor:hand"> 
                        </TD>
          </TR>
                    </FORM>
<%end if%>

          <tr>
            <td></td>
          </tr>
        </table><%end if%></td>
      </tr>
	  <tr><td><table width="198" border="0" cellspacing="0" cellpadding="0">
              <tr ><% if showdata=1 then%> 
            <td height="28" background="IMAGES/topggline.jpg" style="border-left: 1px solid #cccccc;border-right: 1px solid #cccccc;border-bottom: 1px solid #cccccc"><img src="IMAGES/leftxtsj.gif" ></td>
          </tr>
          <tr > 
            <td > <br> 

		<%								
		function gettipnum()
			dim tmprs
			tmprs=conn.execute("Select Count(NewsID) from "& db_News_Table &" where checkked=1")
			gettipnum=tmprs(0)
			set tmprs=nothing
			if isnull(gettipnum) then gettipnum=0
		end function

		function todays()
			dim tmprs
			tmprs=conn.execute("Select count(NewsID) from "& db_News_Table &" Where checkked=1 and year(updatetime)="& year(date()) &" and month(updatetime)="& month(date()) &" and day(updatetime)="& day(date()) &"")
			todays=tmprs(0)
			set tmprs=nothing
			if isnull(todays) then todays=0
		end function

		function getusernum()
			dim rs
			rs=ConnUser.execute("Select Count("& db_User_ID &") from "& db_User_Table &"")
			getusernum=rs(0)
			set rs=nothing
			if isnull(getusernum) then getusernum=0
		end function

		function getgg()
			dim rs
			if db_Sex_Select = "FeiTium" then
				rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where  "& db_User_Sex &"='男' ")
				getgg=rs(0)
				set rs=nothing
			else
				if db_Sex_Select = "Number" then
					rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where  "& db_User_Sex &"=1")
					getgg=rs(0)
					set rs=nothing
				end if
			end if
			if isnull(getgg) then getgg=0
		end function

		function getmm()
			dim rs
			if db_Sex_Select = "FeiTium" then
				rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where  "& db_User_Sex &"='女' ")
				getmm=rs(0)
				set rs=nothing
			else
				if db_Sex_Select = "Number" then
					rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where  "& db_User_Sex &"=0")
					getmm=rs(0)
					set rs=nothing
				end if
			end if
			if isnull(getmm) then getmm=0
		end function

		function getother()
			dim rs
			if db_Sex_Select = "FeiTium" then
				rs=ConnUser.execute("Select Count("& db_User_ID &") from "& db_User_Table &" where  "& db_User_Sex &" = '保密' ")
				getother=rs(0)
				set rs=nothing
			else
				if db_Sex_Select = "Number" then
					rs=ConnUser.execute("Select Count("& db_User_ID &") from "& db_User_Table &" where  "& db_User_Sex &" <>1 and  "& db_User_Sex &"<>0 ")
					getother=rs(0)
					set rs=nothing
				end if
			end if
			if isnull(getother) then getother=0
		end function
		%>
		&nbsp;&nbsp;○- 今日文章：<font color=red><%=todays()%></font><br> 
		&nbsp;&nbsp;○- 文章总数：<font color=red><%=gettipnum()%></font><br>
		&nbsp;&nbsp;○- 会员总数：<font color=red><%=getusernum()%></font><br> 
		<!--#include file=LastMember.asp --><br>
		<%if showcount=1 then%>
			<script src=Cnt.asp></script>
			<!--#include file=zx.asp -->
				  <br> &nbsp;&nbsp;○- 当前在线：<font color=red><%=i%></font><br><br>
		<%end if%>
            </td>
          </tr>
          <%end if%>
		  <tr> 
            <td valign="top"> </td>
          </tr>
            </table></td></tr>
      <tr>
        <td>
		<%if showuser=1 then%>
		<table width="198" border="0" cellspacing="0" cellpadding="0">
          <tr > 
            <td height="28" background="IMAGES/topggline.jpg" style="border-left: 1px solid #cccccc;border-right: 1px solid #cccccc;border-bottom: 1px solid #cccccc"><img src="IMAGES/leftfgph.gif" ></td>
          </tr>
          <tr >
            <td ><!--#include file=TopUser.asp --></td>
          </tr>
          <tr >
            <td ><!--#include file=Topdep.asp --></td>
          </tr>
        </table>
		<%end if%>
		</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
    </table>