<%@ Language=VBScript%>
<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="function.asp"-->
<!--#include file="char.inc"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="政府，政府网，政府网站，政府网站源码，政府网站管理系统，E创政府网站，E创政府网站管理系统，E创网络http://www.e-cweb.net">
<title><%=jjgn%></title>
<LINK href=news.css rel=stylesheet>
<link rel="Shortcut Icon" href="e-cweb.ico"><!--IE地址栏前换成自己的图标--> 
<link rel="Bookmark" href="e-cweb.ico"><!--可以在收藏夹中显示出你的图标-->
<SCRIPT> 
<!-- 
window.defaultStatus="<%=gg1%>"; 
//--> 
</SCRIPT>
<script language="JavaScript">
<!--
if (self != top) top.location.href = window.location.href
//-->
</script>
<script language=JavaScript>
<!--
//
var version = "other"
browserName = navigator.appName;   
browserVer = parseInt(navigator.appVersion);
if (browserName == "Netscape" && browserVer >= 3) version = "n3";
else if (browserName == "Netscape" && browserVer < 3) version = "n2";
else if (browserName == "Microsoft Internet Explorer" && browserVer >= 4) version = "e4";
else if (browserName == "Microsoft Internet Explorer" && browserVer < 4) version = "e3";
function marquee1()
{
	if (version == "e4" | version == "n3")
	{
		document.write("<marquee style='BOTTOM: 0px; FONT-WEIGHT: 100px; HEIGHT:100px;  TEXT-ALIGN: left; TOP: 0px' id='news' scrollamount='1' scrolldelay='10' behavior='loop' direction='up' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
	}
}

function marquee2()
{
	if (version == "e4" | version == "n3")
	{
		document.write("</marquee>")
	}
}

function marquee_logo_news()
{
	if (version == "e4")
	{
		document.write("<marquee style='BOTTOM: 0px; FONT-WEIGHT: 1200px; HEIGHT:31px;  TEXT-ALIGN: left; TOP: 0px' id='link_map' scrollamount='2' scrolldelay='10' behavior='alternate' direction='right' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
	}
}

function marquee3()
{
	if (version == "e4" | version == "n3")
	{
		document.write("<marquee direction='left' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
	}
}

function marquee4()
{
	if (version == "e4" | version == "n3")
	{
		document.write("</marquee>")
	}
}

function marquee5()
{
	if (version == "e4" | version == "n3")
	{
		document.write("<marquee style='BOTTOM: 0px; FONT-WEIGHT: 100px; HEIGHT:100px;  TEXT-ALIGN: left; TOP: 0px' id='news' scrollamount='1' scrolldelay='10' behavior='loop' direction='up' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
	}
}

function marquee6()
{
	if (version == "e4" | version == "n3")
	{
		document.write("</marquee>")
	}
}

//-->
</script>
<script language="JavaScript1.2">
function makevisible(cur,which){
if (which==0)
cur.filters.alpha.opacity=100
else
cur.filters.alpha.opacity=20
}
</script>

<script LANGUAGE="javascript">
<!--
function checkdata()
{
if (document.user.UserName.value=="")
	{
	  alert("对不起，请输入您的论坛用户名！");
	  document.user.UserName.focus();
	  return false;
	 }
else if (document.user.Password.value=="")
	{
	  alert("对不起，请输入您的论坛密码！");
	  document.user.Passwd.focus();
	  return false;
	 }
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
//-->
</script>
</head>
<body topmargin="0" >
<!--#include file="Top.asp"-->
<%
dim typeid
dim typename
dim typecontent
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_Type_Table &" where typeview=1 order by typeorder"
rs.Open rs.Source,conn,1,1
i=1

Dim ArraytypeID(10000),ArraytypeName(10000)
rs.close
set rs=nothing

set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_Type_Table &" where typeview=1 order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraytyID(10000),ArraytyName(10000),Arraytyview(10000)
if not rs.EOF then
rseof=1

while not rs.EOF
RecordCount=rs.RecordCount
tyID=rs("typeID")
tyName=trim(rs("typeName"))
tycontent=rs("typecontent")
tyview=trim(rs("typeview"))
ArraytyID(i)=tyID
ArraytyName(i)=tyName
Arraytyview(i)=tyview
i=i+1

rs.MoveNext
wend
rs.close
%>
  
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr valign="top">
    <td width="190" height="783" background="IMAGES/ec_11.gif">
	  <div align="center"><!--#include file="a_left.asp" --></div>	</td>
    <td width="587">
	<div align="center">
	  <div align="center">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="393" valign="top"><!--#include file="E_Daodu.asp" --></td>
            <td width="191" valign="top"><div align="right"></div>
              <table width="189" height="160" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td height="29" valign="middle"><img src="Images/ec_10.gif" width="189" height="31"></td>
                </tr>
                <tr>
                  <td height="127" valign="top"><div align="center">
                      <%
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
%>
                      <table width="90%" height="60" border="0" cellpadding="0" cellspacing="0">
                        <tr>
                          <td align="center"><%=CutStr(htmlencode4(rsb("title")),20)%>
                              <script language="JavaScript" type="text/javascript">marquee1();</script>
                              <%=CheckStr(rsb("content"))%>
                              <script language="JavaScript" type="text/javascript">marquee2();</script>
                              <%=rsb("dateandtime")%><br />
                            <a href="E_Board.asp" target="_blank" class="class">以前公告</a></td>
                        </tr>
                      </table>
                    <%else Response.Write "<tr><td align=center><br>暂  无</td></tr>"
		end if
     rsb.close
      set rsb=nothing%>
                  </div></td>
                </tr>
              </table>
              <table width="189" height="181" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td height="27"><img src="Images/ec_18.gif" width="189" height="27"></td>
                </tr>
                <tr>
                  <td height="154" valign="top"><table width="87%"  border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr>
                        <td height="150"><!--#include file="ReviewIndex.asp"--></td>
                      </tr>
                  </table></td>
                </tr>
              </table></td>
          </tr>
        </table>
        <!--广告调用-->
        <script language=javascript src=./zongg/ad.asp?i=12></script>
        <!--广告调用结束-->
        <table width="571" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="6"></td>
          </tr>
        </table>
        <%
for i=1 to RecordCount
typeID=Arraytyid(i)
typeName=ArraytyName(i)
%>
        <table width="571" border="0" align="center" cellpadding="0" cellspacing="0" id="AutoNumber6" style="border-collapse: collapse">
          <tbody>
            <tr>
              <td width="49%" valign="top" bgcolor="#FFFFFF">
                <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber12">
                  <tbody>
                    <tr>
                      <td  background="Images/ec_30.gif" height="29" colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td width="88%"><font><A class=top HREF="E_Type.asp?typeid=<%=typeid%>">&nbsp;&nbsp;<%=typeName%></A></font></td>
                          <td width="12%"><a class="class" href="E_Type.asp?typeid=<%=typeid%>"><img src="images/more.gif" alt="更多<%=typeName%>" width="28" height="9" border="0" /></a></td>
                        </tr>
                      </table></td>
                    </tr>
                    <tr>
                      <td width="10%" align="left" valign="top" bgcolor="#E3E3E3">
                        <%
set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
	if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
		rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
	end if
	if Request.cookies(eChuang)("key")="" then
		rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and newslevel=0 and picnews=1 and picname is not null) order by newsid DESC"
	end if
	if Request.cookies(eChuang)("key")="selfreg" then
		if Request.cookies(eChuang)("reglevel")=3 then
			rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
		end if
		if Request.cookies(eChuang)("reglevel")=2 then
			rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
		end if
		if Request.cookies(eChuang)("reglevel")=1 then
			rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
		end if
	end if
else
	rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
rs.Open rs.Source,conn,1,1
if rs.EOF then
	Response.Write "<img src='images/notopic.gif' width=56 border=0 height=56>"
else
while not rs.EOF
	title=rs("title")
	fileExt=lcase(getFileExtName(rs("picname")))
	%>
                        <a class="class" target="_blank" href="E_ReadNews.asp?newsid=<%=rs("newsid")%>" title="<%=htmlencode4(title)%>">
                        <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                        <img src="<%=FileUploadPath & rs("picname")%>" width="56" border=1 style=border-color:#ffffff height="56"> </a>
                        <%end if%>
                        <%if fileext="swf" then%>
                        <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="56" height="56">
                          <param name="movie" value="<%=FileUploadPath & rs("picname")%>">
                          <param name="quality" value="high">
                          <param name="Play" value="-1">
                          <param name="Loop" value="0">
                          <param name="Menu" value="-1">
                          <embed src="<%=FileUploadPath & rs("picname")%>" width="56" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash"></embed>
                        </object>
                        <%end if%>
                        <%
	rs.MoveNext
wend
	end if
	rs.close
	set rs=nothing
	%></td>
                      <td width="90%" valign="top" bgcolor="#FFFFFF">
                        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber11">
                          <% dim rs3
	set rs3=server.CreateObject("ADODB.RecordSet")
	if uselevel=1 then
		if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
			rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
		end if
		if Request.cookies(eChuang)("key")="" then
			rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
		end if
		if Request.cookies(eChuang)("key")="selfreg" then
			if Request.cookies(eChuang)("reglevel")=3 then
				rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
			end if
			if Request.cookies(eChuang)("reglevel")=2 then
				rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
			end if
			if Request.cookies(eChuang)("reglevel")=1 then
				rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
			end if
		end if
	else
		rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
	end if
	rs3.Open rs3.Source,conn,1,1
	while not rs3.EOF
		newsurl="E_ReadNews.asp?NewsID=" & rs3("NewsID")
		newswwwurl=rs3("titleface")
		fileExt=lcase(getFileExtName(rs3("picname")))
		if showyear=1 then
			datetime="<font class=middle>(" & year(rs3("UpdateTime"))  &"年"& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
		else
			datetime="<font class=middle>("& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
		end if
		if rs3("picnews")=1 then
			if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then
			img=" <img src='images/news_img.gif' border='0'>"
				else
			img="<img src='images/news_media.gif' border='0'>"
			end if
		else
			img=""
		end if

		'增加小类名称程序开始
	if rs3("bigclassID")<>"" then 
		B=rs3("bigclassID")
		set rs22=server.createobject("adodb.recordset")
		sql="SELECT bigclassID,E_BigClassName FROM "& db_BigClass_Table &" WHERE bigclassID="&B
		Set rs22=Conn.Execute(sql)
		A=rs22("E_BigClassName")
		rs22.close
		set rs22=Nothing
	else
		A="本栏"
	end if

		'增加小类名称程序结束
		%>
                          <tbody>
                            <tr>
                              <td>
                                <table width="100%" border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
                                  <tbody>
                                    <tr>
                                      <td height="22"> <img src="IMAGES/point.gif" width="10" height="7"> <%=img%> <a class="middle" href="<%if rs3("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs3("title"))%>" target="_blank"> <font color="<%=rs3("titlecolor")%>"> <%=CutStr(htmlencode4(rs3("title")),26)%> </font> </a>
                                          <!--标题后评论提示-->
                                          <% if rs3("titlesize")>=1 then %>
                                          <A class=middle HREF="<%=path%>Review.asp?NewsID=<%=rs3("NewsID")%>" target="_blank" ><font color=red><b>评</b></font></A>
                                          <%end if %>
                                          <!--标题后评论提示-->
                                          <%''if showauthor="1" then%>
                                          <%''=rs3("Author")%>
                                          <%''end if%></td>
                                    </tr>
                                    <tr>
                                      <td height="1" background="IMAGES/bg_line.gif"></td>
                                    </tr>
                                  </tbody>
                              </table></td>
                            </tr>
                            <%
								rs3.MoveNext
wend
%>
                          </tbody>
                      </table></td>
                    </tr>
                  </tbody>
              </table></td>
              <%i=i+1
              typeID=Arraytyid(i)
              typeName=ArraytyName(i)
              if i<=RecordCount then
              %>
              <td width="2%" valign="top" background="images/t.gif"></td>
              <td width="49%" valign="top" bgcolor="#FFFFFF">
                <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber13">
                  <tbody>
                    <tr>
                      <td background="Images/ec_30.gif"  height="29" colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td width="88%"><font><A class=top HREF="E_Type.asp?typeid=<%=typeid%>">&nbsp;&nbsp;<%=typeName%></A><A class=top HREF="E_Type.asp?typeid=<%=typeid%>"></A></font></td>
                            <td width="12%"><a class="class" href="E_Type.asp?typeid=<%=typeid%>"><img src="images/more.gif" alt="更多<%=typeName%>" width="28" height="9" border="0" /></a><a class="class" href="E_Type.asp?typeid=<%=typeid%>"></a></td>
                          </tr>
                        </table></td>
                    </tr>
                    <tr>
                      <td width="10%" align="left" valign="top" bgcolor="#E3E3E3">
                        <%
set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="" then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and newslevel=0 and picnews=1 and picname is not null) order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="selfreg" then
	if Request.cookies(eChuang)("reglevel")=3 then
	rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
	end if
	if Request.cookies(eChuang)("reglevel")=2 then
	rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
	end if
	if Request.cookies(eChuang)("reglevel")=1 then
	rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
	end if
end if
else
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
rs.Open rs.Source,conn,1,1
if rs.EOF then
Response.Write "<img src=images/notopic.gif width=56 border=0 height=56>"
else
while not rs.EOF
title=rs("title")
fileExt=lcase(getFileExtName(rs("picname")))
%>
                        <a class="class" target="_blank" href="E_ReadNews.asp?newsid=<%=rs("newsid")%>" title="<%=htmlencode4(title)%>">
                        <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                        <img src="<%=FileUploadPath & rs("picname")%>" width="56" border=1 style=border-color:#ffffff height="56" /></a>
                        <%end if%>
                        <%if fileext="swf" then%>
                        <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="56" height="56">
                          <param name="movie" value="<%=FileUploadPath & rs("picname")%>" />
                          <param name="quality" value="high" />
                          <param name="Play" value="-1" />
                          <param name="Loop" value="0" />
                          <param name="Menu" value="-1" />
                          <embed src="<%=FileUploadPath & rs("picname")%>" width="56" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash"></embed>
                        </object>
                        <%end if%>
                        <%
				rs.MoveNext
wend
end if
rs.close
set rs=nothing
%>                      </td>
                      <td width="90%" valign="top" bgcolor="#FFFFFF">
                        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber14">
                          <%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="selfreg" then
	if Request.cookies(eChuang)("reglevel")=3 then
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
	end if
	if Request.cookies(eChuang)("reglevel")=2 then
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
	end if
	if Request.cookies(eChuang)("reglevel")=1 then
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
	end if
end if
else
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
rs3.Open rs3.Source,conn,1,1
while not rs3.EOF
newsurl="E_ReadNews.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
fileExt=lcase(getFileExtName(rs3("picname")))
if showyear=1 then
datetime="<font class=middle>(" & year(rs3("UpdateTime"))  &"年"& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
else
newsurl="E_ReadNews.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
datetime="<font class=middle>("& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
end if

if rs3("picnews")=1 then
			if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then
			img=" <img src='images/news_img.gif' border='0'>"
			else
			img="<img src='images/news_media.gif' border='0'>"
			end if
			else
			img=""
		end if
%>
                          <%
		'增加小类名称程序开始
	if rs3("bigclassID")<>"" then 
		B=rs3("bigclassID")
		set rs22=server.createobject("adodb.recordset")
		sql="SELECT bigclassID,E_BigClassName FROM "& db_BigClass_Table &" WHERE bigclassID="&B
		Set rs22=Conn.Execute(sql)
		A=rs22("E_BigClassName")
		rs22.close
		set rs22=Nothing
	else
		A="本栏"
	end if

		'增加小类名称程序结束
%>
                          <tbody>
                            <tr>
                              <td><table width="100%" border="0" cellpadding="2" cellspacing="0">
                                  <tbody>
                                    <tr>
                                      <td height="22"><img src="IMAGES/point.gif" width="10" height="7"><%=img%> <a class="middle" href="<%if rs3("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs3("title"))%>" target="_blank"> <font color="<%=rs3("titlecolor")%>"> <%=CutStr(htmlencode4(rs3("title")),26)%> </font> </a>
                                          <!--标题后评论提示-->
                                          <% if rs3("titlesize")>=1 then %>
                                          <A class=middle HREF="<%=path%>review.asp?NewsID=<%=rs3("NewsID")%>" target="_blank" ><font color=red><b>评</b></font></A>
                                          <%end if %>
                                          <!--标题后评论提示-->
                                          <%''if showauthor="1" then%>
                                          <%''=rs3("Author")%>
                                          <%''end if%>                                      </td>
                                    </tr>
                                    <tr>
                                      <td background="IMAGES/bg_line.gif" height="1"></td>
                                    </tr>
                                  </tbody>
                              </table></td>
                            </tr>
                            <%rs3.MoveNext
wend
%>
                          </tbody>
                      </table></td>
                    </tr>
                  </tbody>
              </table></td>
              <%end if%>
            </tr>
          </tbody>
        </table>
        <%
next
rs3.close
set rs3=nothing
%>
        <br><table width="560" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="40" height="144" background="Images/ec_43.gif"><img src="Images/ec_41.gif" width="40" height="144"></td>
            <td width="523" background="Images/ec_43.gif"><!--#include file="NewsTopPhoto.asp"--></td>
            <td width="10" background="Images/ec_43.gif"><div align="right"><img src="Images/ec_46.gif" width="13" height="144"></div></td>
          </tr>
        </table>
        <table width="571" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="6"></td>
          </tr>
        </table>
        <table width="570" border="0" cellspacing="4" cellpadding="0">
          <tr>
            <td><center>
              <a href="#"><img src="Images/ec_51.gif" width="141" height="57" border="0"></a>
            </center>            </td>
            <td><center>
              <img src="Images/ec_52.gif" width="141" height="57" border="0">
            </center>            </td>
            <td><center>
              <img src="Images/ec_54.gif" width="141" height="57" border="0">
            </center>            </td>
            <td><center>
              <img src="Images/ec_56.gif" width="141" height="57" border="0">
            </center>            </td>
          </tr>
        </table>
	  </div>
	</div>	</td>
  </tr>
  <tr valign="top">
    <td height="198" colspan="2"><div align="center">
	  <!--广告调用-->
	  <script language=javascript src=./zongg/ad.asp?i=13></script>
	  <!--广告调用结束-->
<table width="779" height="108" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="15"><img src="IMAGES/link_bg_01.gif" width="15" height="108"></td>
          <td width="748" background="IMAGES/link_bg_02.gif"><table width="100%" height="31" align="center" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <%if showlinkmap=1 then%>
              <td colspan="2" align="center" height="31"><%if linkshownum >8 then
		Response.Write "<script language=JavaScript>marquee_logo_news();</script><P align=left>"& vbcrlf
	end if
	set rs10=server.CreateObject("ADODB.RecordSet") 
	rs10.Source="select top "& linkshownum &" * from "& db_Link_Table &" where linktype=2 and pass=1 order by ID DESC "
	rs10.Open rs10.Source,conn,1,1
	for i=1 to linkshownum
		if not rs10.EOF then%>
                  <a href="<%=rs10("weburl")%>" target="_blank" title="<%=rs10("webname")%>&#13;&#10;简介：<%=rs10("content")%>&#13;&#10;站长：<%=rs10("webmaster")%>&#13;&#10;申请时间：<%=rs10("dateandtime")%>"><img src="<%=rs10("logo")%>" width="88" height="31" border="0" align=left></a>
                  <%rs10.MoveNext
		else%>
                  <a href="#" onClick="javascript:linkreg()"><img src="images/nologo.gif" width=88 height=31 border=0 align=left></a>
                  <%end if
	Next%>              </td>
              <%
	rs10.Close
	set rs10=nothing
end if%>
            </tr>
          </table>
            <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
              <tr>
                <%if showlink=1 then
set rs10=server.CreateObject("ADODB.RecordSet") 
rs10.Source="select top "& linkshownum &" * from "& db_Link_Table &" where linktype=0 and pass=1 order by ID DESC "
rs10.Open rs10.Source,conn,1,1
for i=1 to 6
	if not rs10.EOF then
	%>
                <td height=31 align="center"><a class="middle" href="<%=rs10("weburl")%>" target="_blank" title="<%=rs10("content")%>
站长：<%=rs10("webmaster")%>
申请时间：<%=rs10("dateandtime")%>"><%=rs10("webname")%></a></td>
                <%
rs10.MoveNext
else
%>
                <td height=31 align="center"><a class="middle" href="#" onClick="javascript:linkreg()">您的位置</a></td>
                <%end if
	Next
rs10.Close
set rs10=nothing
%>
                <td align="center"><input type=button style="cursor:hand" name=link1 value="申请" onClick="javascript:linkreg()">
                    <input type=button style="cursor:hand" name=link1 value="更多" onClick="javascript:morelink()">                </td>
              </tr>
              <%end if%>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="1" background="IMAGES/bg_line.gif"></td>
              </tr>
            </table>
            <table width="100%" border="0" align="center" cellpadding="0" cellspacing="4" bgcolor="#FFFFFF">
              <tr>
                <td width="141"><div align="center">
                    <select style="WIDTH: 90%" 
                  onChange="window.open(this[this.selectedIndex].value,'','')" 
                  name=select4>
                      <option selected>-中央部门网站-</option>
                      <option value="http://www.court.gov.cn/">最高人民法院</option>
                      <option value="http://www.spp.gov.cn/gzdt/">最高人民检察院</option>
                      <option value="http://npc.people.com.cn/">全国人大办公厅</option>
                      <option value="http://www.fmprc.gov.cn/chn">外交部</option>
                      <option value="http://www.sdpc.gov.cn">国家发展计划委员会</option>
                      <option value="http://www.setc.gov.cn">国家经贸委</option>
                      <option value="http://www.moe.edu.cn">教育部</option>
                      <option value="http://www.most.gov.cn">科学技术部</option>
                      <option value="http://www.costind.gov.cn">国防科工委</option>
                      <option value="http://www.seac.gov.cn">国家民委</option>
                      <option value="http://www.mps.gov.cn">公安部</option>
                      <option value="http://www.mca.gov.cn">民政部</option>
                      <option value="http://www.mof.gov.cn">财政部</option>
                      <option value="http://www.mop.gov.cn">人事部</option>
                      <option value="http://www.mlr.gov.cn">国土资源部</option>
                      <option value="http://www.cin.gov.cn">建设部</option>
                      <option value="http://www.chinamor.cn.net">铁道部</option>
                      <option value="http://www.moc.gov.cn">交通部</option>
                      <option value="http://www.mii.gov.cn">信息产业部</option>
                      <option value="http://www.agri.gov.cn">农业部</option>
                      <option value="http://www.mwr.gov.cn">水利部</option>
                      <option value="http://www.moftec.gov.cn">外经贸部</option>
                      <option value="http://www.pbc.gov.cn">中国人民银行</option>
                      <option value="http://www.moh.gov.cn">卫生部</option>
                      <option value="http://www.sfpc.gov.cn">国家计生委</option>
                      <option value="http://www.ccnt.gov.cn">文化部</option>
                      <option value="http://www.molss.gov.cn">劳动和社会保障部</option>
                    </select>
                </div></td>
                <td width="142"><div align="center">
                    <SELECT style="WIDTH: 90%" 
                  onchange="window.open(this[this.selectedIndex].value,'','')" 
                  name=select3>
                      <option selected>-省市政府网站-</option>
                      <option value="http://www.beijing.gov.cn">北京市</option>
                      <option value="http://www.shanghai.gov.cn">上海市</option>
                      <option value="http://www.tj.gov.cn">天津市</option>
                      <option value="http://www.cq.gov.cn">重庆市</option>
                      <option value="http://www.jiangsu.gov.cn">江苏省</option>
                      <option value="http://www.gd.gov.cn">广东省</option>
                      <option value="http://www.zhejiang.gov.cn">浙江省</option>
                      <option value="http://www.ah.gov.cn">安徽省</option>
                      <option value="http://www.hainan.gov.cn">海南省</option>
                      <option value="http://www.sc.gov.cn">四川省</option>
                      <option value="http://www.gzgov.gov.cn">贵州省</option>
                      <option value="http://www.hlj.gov.cn">黑龙江</option>
                      <option value="http://www.jiangxi.gov.cn">江西省</option>
                      <option value="http://www.yn.gov.cn">云南省</option>
                      <option value="http://www.shaanxi.gov.cn">陕西省</option>
                      <option value="http://www.gansu.gov.cn">甘肃省</option>
                      <option value="http://www.henan.gov.cn">河南省</option>
                      <option value="http://www.hubei.gov.cn">湖北省</option>
                      <option value="http://www.jl.gov.cn">吉林省</option>
                      <option value="http://www.ln.gov.cn">辽宁省</option>
                      <option value="http://www.shanxi.gov.cn">山西省</option>
                      <option value="http://www.hunan.gov.cn">湖南省</option>
                      <option value="http://www.qh.gov.cn">青海省</option>
                      <option value="http://www.xinjiang.gov.cn">新疆</option>
                      <option value="http://www.gxi.gov.cn">广西</option>
                      <option value="http://www.info.gov.hk">香港</option>
                      <option value="http://www.macau.gov.mo">澳门</option>
                    </SELECT>
                </div></td>
                <td width="140"><div align="center">
                  <SELECT style="WIDTH: 90%" 
                  onchange="window.open(this[this.selectedIndex].value,'','')" 
                  name=select>
                    <option>-省级机关网站-</option>
                    <option value="http://www.xxxxxxxxx.com"></option>
                      </SELECT>
                </div></td>
                <td width="142"><div align="center">
                    <SELECT style="WIDTH: 90%" 
                  onchange="window.open(this[this.selectedIndex].value,'','')" 
                  name=select5>
                      <option selected>-县内部门网站-</option>
                      <option value="http://www.xxxxxxxxx.com"></option>
                    </SELECT>
                </div></td>
                <td width="141"><select style="WIDTH: 90%" 
                  onChange="window.open(this[this.selectedIndex].value,'','')" 
                  name=select2>
                  <option selected>-新闻媒体网站-</option>
                  <option value="http://www.xinhua.org">新华网</option>
                  <option value="http://www.people.com.cn">人民网</option>
                  <option value="http://www.eastday.com">东方网</option>
                  <option value="http://www.gmw.com.cn">光明网</option>
                  <option value="http://cn.yahoo.com">雅虎</option>
                  <option value="http://www.163.com">网易新闻</option>
                  <option value="http://news.sina.com.cn">新浪网</option>
                  <option value="http://news.sohu.com">搜狐新闻</option>
                  <option value="http://www.bjd.com.cn">京报网</option>
                  <option value="http://www.phoenixtv.com/home/0,1328,1-1,00.html">凤凰网</option>
                  <option value="http://www.chinadaily.com.cn">中国日报</option>
                  <option value="http://www.cctv.com">央视国际</option>
                  <option value="http://www.chinanews.com.cn">中国新闻社</option>
                  <option value="http://www.stdaily.com">科技日报</option>
                  <option value="http://www.economicdaily.com.cn">经济日报</option>
                  <option value="http://www.bjyouth.com.cn">北京青年报</option>
                  <option value="http://www.263.net">首都在线</option>
                  <option value="http://www.cyol.net">中青在线</option>
                  <option value="http://www.21dnn.com">千龙新闻网</option>
                  <option value="http://www.cri.com.cn">中国国际广播电台</option>
                  <option value="http://www.cnradio.com">中央人民广播电台</option>
                  <option value="http://www.btv.org.cn">北京电视台</option>
                  <option value="http://www.bjradio.com.cn">北京人民广播电台</option>
                </select></td>
              </tr>
            </table></td>
          <td width="16"><div align="right"><img src="IMAGES/link_bg_04.gif" width="15" height="108"></div></td>
        </tr>
      </table>
      </div></td>
  </tr>
</table>
  <%else
Response.Write "<table width=988 align=center border=0 height=50><tr><td align=center>暂 无 文 章 类 别，请 <a href=login.asp>登 陆</a> 后 添 加！</td></tr></table>"
end if%>
<%end if%>
<!--#include file="Bottom.asp" -->
</body>
</HTML>