<!--#include file="conn.asp" -->
<%
strCurrMenu="15278"
ThisPage=request.ServerVariables("URL")
strQuery=""
strTitle="垀衄陔恓"
if GetVariable("class")<>"" then
	SourCode=conn.execute("Select c_code From web_news_class Where mn_id=" & strCurrMenu & " and id="&GetVariable("class"))(0)
	strQuery=strQuery & " And c_code Like '" & SourCode &"%'"
	strTitle=GetVariable("classname")
end if

if GetVariable("key")<>"" then
	strQuery=strQuery & " And (nTitle Like '%" & GetVariable("key") & "%' or nHtmlText like '%" & GetVariable("key") & "%' or nKey like '%" & GetVariable("key") & "%') "
	strTitle="刲坰ㄩ" & GetVariable("key")
end if

'植涴羲宎黍杅擂
strSQL="Select * From v_web_news Where nAudit<>0 " & strQuery & " And mn_id=" & strCurrMenu & " Order by ID Desc"
rs.open strSQL,conn,1,1
'煦珜珆尨場宎趙
page=GetVariable("page")
if page="" then
	page=1
else
	page=Cint(page)
end if

Section=GetVariable("section")
if Section="" then
	Section=1
else
	Section=Cint(Section)
end if
'曹講董硉
intPageSize=15		'藩珜珆尨暮翹杅
intSectionSize=5		'嗣屾珜峈珨僇ㄛ砉GOOGLE珨欴
PrevSectionText="<FONT face=webdings>7</FONT>"		'奻珨僇腔蟈諉恅趼
NextSectionText="<FONT face=webdings>8</FONT>"		'狟珨僇腔蟈諉恅趼
PrevPageText="<FONT face=webdings>3</FONT>"			'奻珜腔蟈諉恅趼	
NextPageText="<FONT face=webdings>4</FONT>"			'狟珜腔蟈諉恅趼

strPageUrl="?class=" & GetVariable("class") & "&classname=" & GetVariable("classname") & "&key=" & GetVariable("key") & "&mnid=" & strCurrMenu

rs.pagesize=intPageSize
intCount=rs.RecordCount 
intPageCount=rs.pagecount
intSectionCount=(intPageCount - 1) \ intSectionSize + 1
if intCount>0 then
	rs.AbsolutePage=page 
end if 
%>

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="common/style.css" type="text/css">
</head>

<body text="#000000" leftmargin="0" topmargin="0" bgcolor="#E4E4E4" BodyBegin>
<!--#include file="top.asp"-->
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td width="547" valign="top" bgcolor="#FFFFFF"><img src="images/1_6.gif" width=547 height=11 alt=""> 
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td height="21"><b class="fs-14px"><font color="#666666">▽</font><font color="#0053A6">陔恓雄怓<font color="#666666">▼</font></font></b><font color="#999999">＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃</font><font color="#0053A6"><b><font color="#DC8A38">&gt;&gt;&gt;</font></b></font></td>
        </tr>
        <tr> 
          <td> 
            <hr>
          </td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="20">
        <tr> 
          <td height="400" valign="top" bgcolor="#FFFFFF"> 
            <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr> 
                <td height="25"><strong><%=strTitle%>: 僕<%=intCount%>跺賦彆</strong></td>
              </tr>
              <tr> 
                <td><TABLE width="90%" 
                          border=0 align="center" cellPadding=0 cellSpacing=0>
                    <TBODY>
                      <TR> 
                        <TD><TABLE cellSpacing=0 cellPadding=0 width="100%" 
                          border=0>
                            <TBODY>
                              <TR> 
                                <TD width="65%" height="25"><table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
                                    <%
										  '羲宎怀堤郔陔陔恓
										   for i=1 to intPageSize
												if rs.eof then exit For
												if i mod 2 =0 then
													strColor="#FFFFFF"
												else
													strColor="#F9F9F9"
												end if
										  %>
                                    <tr> 
                                      <td width="10%" height="22" align="right">﹞ 
                                      </td>
                                      <td width="90%" height="22"><a href="newshow.asp?id=<%=trim(rs("ID"))%>&mnid=<%=strCurrMenu%>&classname=陔恓雄怓&uppage=<%=ThisPage%>" target="_blank"><%=trim(rs("nTitle"))%></a></td>
                                    </tr>
                                    <%
											rs.movenext
										next
										%>
                                  </table></TD>
                              </TR>
                              <TR> 
                                <TD height="25">&nbsp;</TD>
                              </TR>
                            </TBODY>
                          </TABLE></TD>
                      </TR>
                    </TBODY>
                  </TABLE>
                  <br> <table width="92%" border="0" align="center">
                    <tr> 
                      <td></td>
                    </tr>
                    <tr> 
                      <td height="28" align="right" ><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td align="right"> 僕衄<%=intCount%>暮翹ㄛ煦<%=intPageCount%>珜ㄛ絞ヶ珜<%=Page%>ㄛ藩珜珆尨<%=intPageSize%>沭暮翹 
                              <%
			'數呾藩珨僇腔羲宎珜
			intStarPage=(Section-2) * intSectionSize + 1
			'ヶ珨僇
			if Section<=1 then
				response.Write(PrevSectionText & " ")
			else
				response.Write("<a href='" & strPageUrl & "&page=" & intStarPage & "&section=" & Section-1 & "'>" & PrevSectionText & "</a> ")
			end if 
			
			'珆尨珜鎢蹈桶
			response.Write("菴")
			intStarPage=(Section-1) * intSectionSize + 1
		    for p=intStarPage to intStarPage + intSectionSize - 1
				if p > intPageCount then exit for
				if p=page then
		    		response.Write("<strong>[" & p & "]</strong> ")
				else
		    		response.Write("<a href='" & strPageUrl & "&page=" & p & "&section=" & Section & "'>[" & p & "]</a> ")
				end if	
		    next
			response.Write("珜")
			'綴珨僇
			intStarPage=(Section) * intSectionSize + 1
			if Section>=intSectionCount then
				response.Write(" " & NextSectionText)
			else
				response.Write(" <a href='" & strPageUrl & "&page=" & intStarPage & "&section=" & Section+1 & "'>" & NextSectionText & "</a> ")
			end if 
		  %>
                              ﹛ </td>
                          </tr>
                        </table></td>
                    </tr>
                    <tr> 
                      <td height="23" align="right" >&nbsp;</td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td>&nbsp;</td>
              </tr>
            </table>
            <p><br>
            </p>
            </td>
        </tr>
      </table>
    </td>
    <td height="263" width="223" valign="top" background="images/1_9.gif"><img src="images/1_7.gif" width=223 height=28 alt=""> 
      <table width="97%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="28" width="8%">&nbsp;</td>
          <td height="28" width="92%" bgcolor="#359FDF"> <div align="center"><b class="fs-14px"><span class="fs-13px"><font color="#FFFFFF">陔恓雄怓煦濬</font></span></b></div></td>
        </tr>
        <tr> 
          <td height="10">&nbsp;</td>
          <td height="10" valign="bottom">&nbsp;</td>
        </tr>
              <%
									'羲宎怀堤煦濬
									strcode=""
									for i=1 to Len(SourCode) \ 4
									strcode=strcode&" or c_code like '"&left(SourCode,i*4)&"____'"
									next
									if strcode<>"" then
									strcode="(1<>1"&strcode&" or Len(c_code)=4)"
									else
									strcode=" Len(c_code)=4"
									end if
									strSQL="Select * From web_news_class Where mn_id=" & strCurrMenu&" and " & strcode & "  Order by c_code"
									'response.Write(strsql)
									Set rs=Server.CreateObject("ADODB.RecordSet")
									rs.open strSQL,conn,1,1
									for i=1 to rs.recordcount
									Level=(Len(rs("c_code"))/4-1)*3
									%>
          <tr> 
            <td height="10" width="8%">&nbsp;</td>
            
          <td width="92%" height="10" valign="bottom"> 
            <%
			If Len(rs("c_code"))>4 Then Response.Write "念"
			Response.Write String(Level,"-")
			%>
            <a href="?class=<%=rs("id")%>&classname=<%=trim(rs("c_name"))%>"><%=trim(rs("c_name"))%></a> 
          </td>
          </tr>
          <tr> 
            <td height="2" width="8%">&nbsp;</td>
            <td height="2" width="92%"> <hr> </td>
          </tr>
                          <%
									rs.movenext
								next
								%>
        <tr> 
          <td height="2" width="8%">&nbsp;</td>
          <td height="2" width="92%">&nbsp;</td>
        </tr>
      </table>
      <!--Link Begin-->
      <%
							isLink=GetKey("Enable",WebUserID,"link")
							if isLink="Yes" then
							%>
      <table width="97%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="28" width="8%">&nbsp;</td>
          <td height="28" width="92%" bgcolor="#359FDF"> 
            <div align="center"><b class="fs-14px"><span class="fs-13px"><font color="#FFFFFF">衭①蟈諉</font></span></b></div>
          </td>
        </tr>
        <tr> 
          <td height="29" width="8%">&nbsp;</td>
          <td height="37" rowspan="4"> 
            <table width="100%" border="0" cellpadding="7" cellspacing="0">
              <tr> 
                <td height="108"  valign="top"> ﹛ 
                  <div align="center">
                    <script language="JavaScript" src="admin/link/link.asp"></script>
                  </div>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td height="2" width="8%">&nbsp;</td>
        </tr>
        <tr> 
          <td height="4" width="8%">&nbsp;</td>
        </tr>
        <tr> 
          <td height="2" width="8%">&nbsp;</td>
        </tr>
        <tr> 
          <td height="2" width="8%">&nbsp;</td>
          <td height="2" width="92%">&nbsp;</td>
        </tr>
      </table>
      <%
							  end if
							  %>
      <!--Link End-->
    </td>
  </tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td height="34" background="images/bg.gif">
      <table width="770" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="547" height="48"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="10">
              <tr> 
                <td><font color="#273F56">鼠侗華硊ㄩ帤眭<br>萇趕ㄩ E-Mail:celia@163.com<br>Copyright&copy;2005-2006 celia All Rights Reserved.<br></font></td>
              </tr>
            </table>
          </td>
          <td width="223" height="48" background="images/foot.gif" align="center">蠟岆掛桴菴 
            <script language="JavaScript" src="admin/count/counter.asp"></script>
            弇溼恀氪</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<script language="JavaScript" src="common/init.js"></script><br><script language=Javascript src="common/tranbig5.Js"></script>
</body>
</html>



