<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<%
dim id,menuname
if IsNumeric(Request.QueryString("id"))=False then
Response.Redirect"info.asp?info=错误的参数,ID必须是有效的数字"
else
id=cint(Request.QueryString("id"))
end if
set temprs=conn.execute("select menuname from menu where id="&id)
menuname=temprs("menuname")

set temprs=nothing
%>
<%
dim lm
set temprs2=conn.execute("select id from lm where lm='"&menuname&"' ORDER BY id deSC" )
lm=temprs2("id")

set temprs2=nothing
%>
<HTML><HEAD><TITLE><%=menuname%>-<%=title%></TITLE>
<META content=<%=des%> name=description>
<META content=<%=key%> name=keywords>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="images/style.css" type=text/css rel=stylesheet>

<META content="MSHTML 6.00.2900.2963" name=GENERATOR>
<style type="text/css">
<!--
.h10 {LINE-HEIGHT: 10px
}
-->
</style>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<!--#include file="head.asp"-->
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="230" valign="top"><!--#include file="left.asp"--></td>
    <td valign="top"><TABLE id=table14 height=8 cellSpacing=0 cellPadding=0 width=100 
        border=0>
      <TBODY>
        <TR>
          <TD></TD>
        </TR>
      </TBODY>
    </TABLE>
      <TABLE id=__01 cellSpacing=0 cellPadding=0 width=99% align=center 
            border=0>
      <TBODY>
        <TR>
          <TD><IMG id=in_01 height=7 alt="" 
                  src="images/in_01.jpg" width=7></TD>
          <TD background=images/in_02.jpg><IMG id=in_02 height=7 
                  alt="" src="images/in_02.jpg" width=185></TD>
          <TD><IMG id=in_03 height=7 alt="" 
                  src="images/in_03.jpg" width=8></TD>
        </TR>
        <TR>
          <TD background=images/in_04.jpg><IMG id=in_04 
                  height=40 alt="" src="images/in_04.jpg" width=7></TD>
          <TD><table width="571" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td height="700" valign="top"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td>&nbsp;</td>
                </tr>
                <tr>
                  <td>&nbsp;&nbsp;&nbsp;&nbsp;<%=menuname%> </td>
                </tr>
                <tr>
                  <td><div align="center"><img src="images/list_line.gif" width="550" height="10"></div></td>
                </tr>
              </table>
                <TABLE width=95% border=0 align="center" cellPadding=0 cellSpacing=0>
                  <TBODY>
                    <TR>
                      <TD><form mothed="post" action="showclass.asp" onSubmit="return Skin_Form1_Validator(this)"  name="Skin_Form1"><TABLE width=95% border=0 align="center" cellPadding=0 cellSpacing=0>
                          <%


Dim ipagecount
Dim ipagecurrent
Dim strorderBy
Dim irecordsshown,hangpicnum
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM news where lm='"&lm&"' ORDER BY id DESC" 
rs.pagesize = 20
rs.cachesize = 20
rs.open sql,conn,1,1
ipagecount = rs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
response.write "<tr><td align='center'>没有任何文件</tr></td>" 
else
rs.absolutepage = ipagecurrent
irecordsshown = 0
do while irecordsshown<20 and NOT rs.EOF
Response.Write"<tr align='center'>"
if not rs.eof then
for hangpicnum=1 to 1
if rs.eof then exit for
Response.Write"<td width='100%'>"
Response.Write"<TABLE width=95% border=0 align='center' cellPadding=0 cellSpacing=0><TBODY><TR><TD colspan='9'><IMG height=1 src='3.files/trans.gif' width=50></TD></TR><TR><TD width='1'><IMG height=21 src='images/trans.gif' width=1></TD><TD width='5' align=middle style='PADDING-TOP: 4px'><div align='center'><img src='images/icon.jpg' width='5' height='5'></div></TD><TD width='440' class=ContentsGrey style='PADDING-LEFT: 12px; PADDING-TOP: 4px'>["&menuname&"] <a href='news.asp?id="&rs("id")&"'>"&rs("title")&"&nbsp;</a></TD><TD width='100' align=middle style='PADDING-TOP: 4px'><div align='left'>"&year(rs("time"))&"年"&month(rs("time"))&"月"&day(rs("time"))&"日</div></TD><TD width='14'>&nbsp;</TD></TR><TR><TD colSpan=9></TD></TR><TR><TD bgColor=#311600 colSpan=9></TD> </TR></TBODY></table></td>"
rs.movenext
irecordsshown = irecordsshown +1
next
end if
loop
Response.Write"</tr>"
end if
rs.Close
set rs=nothing
Response.Write"</table>"

Response.Write"<table width='95%' align='right' border='0' cellspacing='0' cellpadding='5' class='s'><tr><td height='20'>页次："&ipagecurrent&"/"&ipagecount&"  每页显示 20 "
if ipagecurrent=1 then
Response.Write"首页 | "
else
Response.Write"<a href='showclass.asp?id="&id&"&page=1'>首页</a> | "
end if
if ipagecurrent=1 then
Response.Write"上一页 | "
else
Response.Write"<a href='showclass.asp?id="&id&"&page="&ipagecurrent-1&"'>上一页</a> | "
end if
if ipagecount>ipagecurrent then
Response.Write"<a href='showclass.asp?id="&id&"&page="&ipagecurrent+1&"'>下一页</a> "
else
Response.Write"下一页" 
end if
if ipagecount>ipagecurrent then
Response.Write"| <a href='showclass.asp?id="&id&"&page="&ipagecount&"'>末页</a> "
else
Response.Write"| 末页 "
end if
Response.Write"| <input type='hidden' class='an' name='id' value='"&id&"'> &nbsp;跳转到第&nbsp;<input class='an' type='text' name='page' size='2'>&nbsp;页 <input type='submit' value='Go' name='ok'></td></tr></table>"
%>
                        </form>
                          <br></TD>
                    </TR>
                  </TBODY>
                </TABLE></td>
            </tr>
          </table></TD>
          <TD background=images/in_06.jpg><IMG id=in_06 
                  height=40 alt="" src="images/in_06.jpg" width=8></TD>
        </TR>
        <TR>
          <TD><IMG id=in_07 height=7 alt="" 
                  src="images/in_07.jpg" width=7></TD>
          <TD background=images/in_08.jpg><IMG id=in_08 height=7 
                  alt="" src="images/in_08.jpg" width=185></TD>
          <TD><IMG id=in_09 height=7 alt="" 
                  src="images/in_09.jpg" width=8></TD>
        </TR>
      </TBODY>
    </TABLE>
      <TABLE id=table14 height=7 cellSpacing=0 cellPadding=0 width=100 
        border=0>
        <TBODY>
          <TR>
            <TD></TD>
          </TR>
        </TBODY>
      </TABLE></td>
    <td width="200" valign="top"><!--#include file="rightnews.asp"--></td>
  </tr>
</table>
<!--#include file="foot.asp"-->
</BODY></HTML>
 
