www.gusucode.com > 绿色环保工作企业网站源码程序 > VideoClass.asp

    <!--#Include File="inc/Check_Sql.asp"-->
<!--#include file="Inc/conn.asp"-->
<!--#include file="Inc/config.asp" -->
<!--#include file="inc/Function.asp"-->
<!-- #include file="Head.asp" -->
<% 
BigClass=request("BigClass")
SmallClass=request("SmallClass")
%><body topmargin="0">
<TABLE cellSpacing=0 cellPadding=0 width=1002 align=center border=0>
  <TBODY>
    <TR>
      <TD vAlign=top width=210><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR>
              <TD><IMG height=40 src="imgbly/lt9.gif" width=210></TD>
            </TR>
            <TR>
              <TD align=middle><TABLE 
            style="BORDER-RIGHT: #e9e9e9 1px solid; BORDER-TOP: #e9e9e9 1px solid; BORDER-LEFT: #e9e9e9 1px solid; BORDER-BOTTOM: #e9e9e9 1px solid" 
            cellSpacing=0 cellPadding=0 width=178 border=0>
                  <TBODY>
                    <TR>
                      <TD height=15>&nbsp;</TD>
                    </TR>
                    <TR>
                      <TD><TABLE cellSpacing=0 cellPadding=0 width=162 align=center 
                  border=0>
                          <TBODY>
                            <TR>
                              <TD class=lNav1><a href="NewsClass.asp?BigClass=&#20225;&#19994;&#26032;&#38395;">企业新闻</a></TD>
                            </TR>
                            <TR>
                              <TD height="5"></TD>
                            </TR>
                            <TR>
                              <TD class=lNav1><a href="NewsClass.asp?BigClass=&#19994;&#20869;&#36164;&#35759;">业内资讯</a></TD>
                            </TR>
							 <TR>
                              <TD height="5"></TD>
                            </TR>
                            <TR>
                              <TD class=lNav1><a href="NewsClass.asp?BigClass=&#25216;&#26415;&#25991;&#26723;">技术文档</a></TD>
                            </TR>
							 <TR>
                              <TD height="5"></TD>
                            </TR>
                            <TR>
                              <TD class=lNav1><a href="NewsClass.asp?BigClass=&#35270;&#39057;&#20013;&#24515;">视频中心</a></TD>
                            </TR>
                          </TBODY>
                      </TABLE></TD>
                    </TR>
                    <TR>
                      <TD height=15>&nbsp;</TD>
                    </TR>
                  </TBODY>
              </TABLE></TD>
            </TR>
          </TBODY>
        </TABLE>
          <!-- #include file="leftps.asp" --></TD>
      <TD style="BACKGROUND: url(imgbly/bg_body.gif) repeat-y 50% top" vAlign=top><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR>
              <TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                  <TBODY>
                    <TR>
                      <TD background=imgbly/bg_rt.gif><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                          <TBODY>
                            <TR>
                              <TD><IMG src="imgbly/rt12.gif" width="209" height=41></TD>
                              <TD>&nbsp;</TD>
                              <TD class=loc 
                      style="BACKGROUND: url(img/bg_rtjiao.gif) no-repeat right 50%; COLOR: #9f9f9f" 
                      align=right>你现在的位置:<A href="index.asp">首页</A> &gt; <a  href="NewsClass.asp?BigClass=<%=BigClass%>"><%=BigClass%></a> </TD>
                            </TR>
                          </TBODY>
                      </TABLE></TD>
                      <TD width=17>&nbsp;</TD>
                    </TR>
                  </TBODY>
              </TABLE></TD>
            </TR>
          </TBODY>
        </TABLE>
          <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
            <TBODY>
              <TR>
                <TD width=17 height=26>&nbsp;</TD>
                <TD>&nbsp;</TD>
                <TD width=17>&nbsp;</TD>
              </TR>
              <TR>
                <TD>&nbsp;</TD>
                <TD align="center" style="LINE-HEIGHT: 24px"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                  <% 
page=clng(request("page"))		 
Set rs=Server.CreateObject("ADODB.RecordSet") 
if BigClass<>"" and SmallClass <>"" then
sql="select * from news where BigClassName='"&BigClass&"' and SmallClassName='"&SmallClass&"' order by AddDate desc"
rs.Open sql,conn,1,1
elseif BigClass<>"" then
sql="select * from news where BigClassName='"&BigClass&"' order by AddDate desc"
rs.Open sql,conn,1,1
end if
if rs.eof and rs.bof then
  response.Write("暂时没有记录")
else 
%>
                  <% 
rs.PageSize=20
if page=0 then page=1 
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page  
for j=1 to rs.PageSize 
%>
                  <tr>
                    <td width="6%" height="30" align="center" style="BORDER-bottom: #E7E7E7 1px dashed"><img src="Img/arrow_6.gif" width="11" height="11"></td>
                    <td width="65%" height="24" style="BORDER-bottom: #E7E7E7 1px dashed"><% if rs("FirstImageName")<>"" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %>
                        <a href="VideoNews.asp?id=<%= RS("id") %>" target="_blank"><%= RS("TITLE") %></a> </td>
                    <td width="29%" style="BORDER-bottom: #E7E7E7 1px dashed"><font color="#999999">[<%=FormatDateTime(RS("AddDate"),2)%>] (点击<font color="#ff0000"><%= RS("hits") %></font>) </font></td>
                  </tr>
                  <%
rs.movenext
if rs.eof then exit for
next
%>
                  <tr valign="bottom">
                    <td height="50" colspan="3" align="center" ><form method=Post action="NewsClass.asp?BigClass=<%=BigClass%>&SmallClass=<%=SmallClass%>">
                        <%if Page<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=1>首页</a>&nbsp;"
    response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=" & Page-1 & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=" & (page+1) & ">"
    response.write "下一页</a> <a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&SmallClass="&SmallClass&"&page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次:<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
    response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
   response.write " 转到:<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
   response.write " <input class=input type='submit'  value=' Goto '  name='cndok'></span></p>"     
%>
                    </form></td>
                  </tr>
                  <% 
end if
rs.close
set rs=nothing
%>
                </table></TD>
                <TD>&nbsp;</TD>
              </TR>
              <TR>
                <TD height=10>&nbsp;</TD>
                <TD>&nbsp;</TD>
                <TD>&nbsp;</TD>
              </TR>
            </TBODY>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="Inc/foot.asp"-->
</body>