products_detail.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")
pid=Request.QueryString ("pid")
pageno=Request.QueryString ("pageno")
if id="" then
		id=0
	else
		id=cint(id)
end if		
if pid="" then
		pid=0
	else
		pid=cint(pid)
end if		
if id<>0 then
		sqltext="select * from cdanwei where enable=1 and id="&id
		rs.Open sqltext,cn,1,1
		if not rs.EOF then
			titletxt=trim(rs("name"))
			picflag=rs("picflag")
			content=checkstr(trim(rs("body")))
			content1=checkstr(trim(rs("body1")))
		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 <%if pid=0 then Response.Write ("color=#FF9900") else Response.Write ("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 
			  if pid=rs("id") then
					fontcolor="#ff9900"
					title=trim(rs("name"))
				else
					fontcolor="#000000"	
			  end if
			  %>
            <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="#000000">产品价格表</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"><%=titletxt%></td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td width="170">
          <%if picflag=1 then%>
				<img src="./admin/jpg.asp?id=<%=id%>&tabname=cdanwei" width="158" height="90">
		  <%end if%>
		  </td>
          <td class="font1"><font color="#005500"><%=content%></font></td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td bgcolor="#eeeeee" class="font2"><font color="#005500"><b>详细介绍</b></font></td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td class="font2"><%=content1%></td>
        </tr>
      </table>
      <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" colspan="2"></td>
        </tr>
        <tr> 
          <td height="30"><a href="<%=linkproducts%>?id=<%=pid%>" class="more">&lt;&lt;返回列表</a></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" -->