product.asp

ASP网页

<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="../dsn.asp" -->
<%  
prono=Request.QueryString("prono")
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")

mymenu="product"
%>
<!-- #include file="begin.asp" --> 

<TABLE WIDTH="778" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  <TR VALIGN="TOP"> 
    <TD WIDTH="180"> 
      <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
        <TR> 
          <TD><IMG SRC="../images/main_title_pro.gif" WIDTH="180" HEIGHT="33"></TD>
        </TR>
        <TR> 
          <TD BGCOLOR="#cccccc"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
        </TR>
        <%
		  sqltext="select classcode,classname from product_class where parentcode='101' order by classcode"
		  rs2.Open sqltext,cn,1,1
		  do while not rs2.EOF
        %>
        <TR>
          <TD BGCOLOR="#efefef" ALIGN="RIGHT" HEIGHT="25" CLASS="title"><b><FONT COLOR="#00309C"><%=trim(rs2(1))%></FONT></b>&nbsp;&nbsp;</TD>
        </TR>
        <TR> 
          <TD BGCOLOR="#cccccc"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
        </TR>
        <%
		   sqltext="select productno,title from product where classcode='"+rs2(0)+"' order by sortnum"	
		   rs.Open sqltext,cn,1,1
		   do while not rs.EOF
			if prono="" then prono=rs(0)
        %>
        <TR> 
          <TD CLASS="bodytext" ALIGN="RIGHT"><A HREF="product.asp?prono=<%=rs(0)%>"><%=trim(rs("title"))%></A>&nbsp;&nbsp;</TD>
        </TR>
        <TR> 
          <TD BGCOLOR="#cccccc"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
        </TR>
        <%
			rs.MoveNext
          loop
          rs.Close 
          
          rs2.MoveNext
        loop
        rs2.Close  
        %>
      </TABLE>
      <P>&nbsp;</P>
      <P>&nbsp;</P>
    </TD>
    <TD WIDTH="1" BGCOLOR="#9C9A9C"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
    <%
    if prono<>"" then
		sqltext="select * from product where productno="&prono
		rs.Open sqltext,cn,1,3
		if not rs.EOF then
			title=trim(rs("title"))
			basclass=trim(rs("basclass"))
			spec=trim(rs("spec"))
			describe=trim(rs("describe"))
			content=trim(rs("content"))
			picflag=trim(rs("picflag"))
		end if
		rs.Close
    end if
    
    %>
    <TD height=400>
      <P><IMG SRC="../images/title_pro.jpg" WIDTH="597" HEIGHT="57"></P>
      <TABLE WIDTH="90%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER" BGCOLOR="efefef">
        <TR>
          <TD CLASS="title"><FONT COLOR="#00309C"><B>　<%=title%></B></FONT></TD>
        </TR>
      </TABLE>
      <BR>
      <TABLE WIDTH="90%" BORDER="0" CELLSPACING="4" CELLPADDING="0" ALIGN="CENTER">
        <TR VALIGN="TOP"> 
          <TD WIDTH="20%">
          <%if basclass<>"" then%>
			<img src="../admin/pic_displayacc.asp?keyno=<%=basclass%>&code=basclass" border="0">
		  <%end if%>		
		 </TD>
          <TD CLASS="bodytext" WIDTH="40%"> 
            <P><FONT COLOR="#003399"><B>分子式：</B><%=spec%></FONT></P>
            <P><B><FONT COLOR="#003399">产品描述：</FONT></B><br><%=checkstr(describe)%></P>
            <P><a href="Javascript:opencart('<%=prono%>','<%=yhprice%>','<%=title%>')"><IMG SRC="../images/icon_addToCart.gif" WIDTH="95" HEIGHT="17" BORDER="0"></A></P>
          </TD>
          <TD WIDTH="40%">
			<%if picflag="1" then%>
				<img src="../admin/pic_displayacc.asp?keyno=<%=prono%>&code=product" border="0">
			<%else%>
			<%end if%>	
          
          </TD>
        </TR>
      </TABLE>
      <BR>
      <TABLE WIDTH="90%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER">
        <TR>
          <TD CLASS="bodytext">
			<%=checkstr(content)%>
          </TD>
        </TR>
      </TABLE>
      <P ALIGN="CENTER">&nbsp;</P>
    </TD>
  </TR>
</TABLE>

<!-- #include file="end.asp" -->
<!-- #include file="func.asp" -->