sale_business.asp

一个不错的企业网站源代码！

<%@ Language=VBScript%>
<%
Response.Buffer=false
Response.Expires=0
%>
<!-- #include file="dsnroot.asp" -->
<!-- #include file="links.asp" -->
<%
set cn=Server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.CreateObject("ADODB.Recordset")
menu="11111211"
pageno=Request.QueryString ("pageno")
%>
<!-- #include file="design.asp" -->
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr> 
    <td bgcolor="#66cc00" width="1"></td>
    <td width="190" valign="top" background="images/group/left_p_group.jpg" style="background-repeat: no-repeat; background-position: bottom"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><img src="images/group/left_top_p.jpg" width="190" height="45"></td>
        </tr>
      </table>
      <table width="180" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td><img src="images/sale/tp_sale.jpg" width="180" height="39"></td>
        </tr>
        <tr> 
          <td background="images/group/left_nav_bg.jpg"> 
            <table width="78%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr> 
                <td colspan="2" height="6"></td>
              </tr>
              <tr> 
                <td width="20" class="font3">※</td>
                <td><a href="<%=linksalebusiness%>" class="anews2"><font color="#FF9900">招商引资</font></a></td>
              </tr>
            </table>
            
          </td>
        </tr>
        <tr> 
          <td><img src="images/group/left_nav_bot.jpg" width="180" height="89"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="50">
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
    </td>
    <td background="images/line_v.gif" width="1"></td>
    <td valign="top" background="images/bot_bg.jpg" style="background-repeat: repeat-x; background-position: bottom" height="200">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><img src="images/sale/business_p.jpg" width="585" height="130"></td>
        </tr>
      </table>
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td background="images/group/line3.gif"  style="background-repeat: no-repeat; background-position: bottom" height="36" align="center">招商引资</td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
      <%sqltext="select id,name from danwei where enable=1 and pid=8 order by creatdate desc"
        rs.Open sqltext,cn,1,1
        listcs=10
        rs.PageSize=listcs
		if pageno="" then 
				pageno=1
			else
				pageno=cint(pageno)	
		end if	
		if rs.PageCount>0 then rs.AbsolutePage=pageno
        i=0        
        do while not rs.EOF and i<listcs%>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td colspan="2" height="10"></td>
        </tr>
        <tr> 
          <td width="20" class="font3" valign="top">※</td>
          <td><a href="<%=linksaledetail%>?id=<%=rs("id")%>&pageno=<%=pageno%>" class="anews"><%=trim(rs("name"))%></a></td>
        </tr>
      </table>
      <%rs.MoveNext 
      i=i+1
        loop%>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td height="50">
                  <%if pageno>1 then%>
						<a href="<%=linksalebusiness%>?pageno=<%=pageno-1%>"><img src="images/arrow_pre.gif" width="55" height="12" border="0"></a>
				 <%end if%>
				 <%if pageno<rs.PageCount then%>
						<a href="<%=linksalebusiness%>?pageno=<%=pageno+1%>"><img src="images/arrow_next.gif" width="55" height="12" border="0"></a>
				 <%end if%>
          </td>
        </tr>
      </table>
      <%rs.Close %>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td background="images/line_h.gif" height="1" colspan="2"></td>
        </tr>
        <tr> 
          <td height="30">&nbsp;</td>
          <td height="30" align="right" width="50"><a href="#top"><img src="images/group/bt_top.gif" width="50" height="18" border="0"></a></td>
        </tr>
        <tr> 
          <td colspan="2">&nbsp;</td>
        </tr>
      </table>
    </td>
    <td bgcolor="#66cc00" width="1"></td>
  </tr>
</table>
<!-- #include file="end.asp" -->