news.asp

一个企业网站的php源代码

<!--#include file="top.asp" -->
<%
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'★                                                                  ★
'☆                漂亮的企业网站ASP免费版本                         ☆
'★                                                                  ★
'☆  版权所有: ML                                                    ☆
'★                                                                  ★
'☆  程序制作: ML                                                    ☆
'★            email:[e-mail]                               ★
'☆            QQ:1474579                                            ☆
'★            商业版本请联系购买!!!                                 ★
'☆                                                                  ☆
'★                                                                  ★
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
%>
  <table width="778" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
    <tr> 
      <td width="184" valign="top" background="image/07.jpg"> 
        <!--#include file="left.asp" --> </td>
      <td width="631" valign="top"><div align="center"> 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr> 
              <td>&nbsp;</td>
            </tr>
          </table>
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr> 
              <td><img src="image/37.jpg" width="594" height="37"></td>
            </tr>
          </table>
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td>&nbsp;</td>
            </tr>
          </table>
          <table width="560" border="0" cellspacing="10" cellpadding="0">
            <%
			 SQL="Select * from product where pro_name='news' order by id desc"
		  	Set rs=Server.CreateObject("ADODB.RecordSet")
			rs.Open SQL,con,1,1
			rs.PageSize=12
			count=1
			if Request("count")<>"" then
			count=Cint(Request("count"))
				if count<1 then
					count=1
				end if
				if count>rs.PageCount then
					count=rs.PageCount
				end if
			end if
			if not rs.Bof and not rs.Eof then
		  		rs.ABSolutePage=count
		  	end if
			pagecountx=rs.pagecount
			for i=0 to rs.PageSize
				if ((count-1)*rs.PageSize)+i>rs.RecordCount-1 then
					exit for
				end if
			%>
			<tr> 
              <td width="20"><div align="center"><img src="image/35.jpg" width="11" height="13"></div></td>
              <td width="403" class="text03"><a href="news_more.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a></td>
              <td width="77" class="text03">[<%=rs("pub_date")%>]</td>
            </tr>
			<%
			rs.movenext
			next
			%>
          </table>
          <table width="562" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><img src="image/36.jpg" width="562" height="1"></td>
            </tr>
            <tr> 
              <td class="text03"><div align="right"><!--#include file="fy.asp" -->
&nbsp;&nbsp;</div></td>
            </tr>
          </table>
        </div></td>
    </tr>
  </table>
  <!--#include file="down.asp" -->
<!--#include file="close.asp" -->