products_price.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="11112111"
id=Request.QueryString ("id")
if id="" then
		id=0
	else
		id=cint(id)
end if
if id=0 then
	sqltext="select top 1 id from danwei where enable=1 and pid=17 order by pl"
	rs.Open sqltext,cn,1,1
	if not rs.EOF then
		id=rs("id")
	end if
	rs.Close 
end if		
%>
<!-- #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/products/tp_products.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="<%=linkproducts%>" class="anews2"><font color=#000000>最新产品</font></a></td>
              </tr>
            </table>
            <%sqltext="select id,name from danwei where enable=1 and pid=6 order by pl"
			  rs.Open sqltext,cn,1,1
			  do while not rs.EOF 
			  %>
            <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="<%=linkproducts%>?id=<%=rs("id")%>" class="anews2"><font color="<%=fontcolor%>"><%=trim(rs("name"))%></font></a></td>
              </tr>
            </table>
            <%rs.MoveNext 
              loop
              rs.Close %>
            <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="products_price.asp" 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">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><img src="images/products/products_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">
          <%sqltext="select id,name,body from danwei where enable=1 and pid=17 order by pl"
            rs.Open sqltext,cn,1,1
            do while not rs.EOF
              if id=rs("id") then
					fontcolor="#006600"
					if trim(rs("body"))<>"" then
							contenttxt=checkstr(trim(rs("body")))
					end if		
				    titletxt=trim(rs("name"))
				else	
					fontcolor="#000000"	
			  end if		
            %>
				<a href="products_price.asp?id=<%=rs("id")%>" class="anews"><font color="<%=fontcolor%>"><%=trim(rs("name"))%></font></a>&nbsp;&nbsp;
				
		<%rs.MoveNext 
		  loop
		  rs.Close %>
		 </td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr>
          <td align="center">&nbsp;</td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr>
          <td align="center">天宏<%=titletxt%>价目表</td>
        </tr>
      </table>
      <%=contenttxt%>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td height="50">&nbsp;</td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td background="images/line_h.gif" height="1"></td>
        </tr>
        <tr> 
          <td height="30" align="right"><a href="#top"><img src="images/group/bt_top.gif" width="50" height="18" border="0"></a></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
    </td>
    <td bgcolor="#66cc00" width="1"></td>
  </tr>
</table>
<!-- #include file="end.asp" -->