p_info.asp

仿阿里巴巴系统用ＡＳＰ开发的系统。代码精简

<%
dim sql
dim rs
dim rstype
if not isEmpty(request("product_id")) then
   product_id=request("product_id")
else
   product_id=1
end if
sql="select * from spzs where id="+cstr(product_id)+" order by id desc" 
set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
%> 
<TABLE height=420 border=0 cellPadding=0 cellSpacing=0 width="100%">
  <TBODY>
  <TR vAlign=top align=center>
     <TD width="100%" bgcolor="#ffffff" align="center" valign=top height=200>
       <TABLE border=0 cellPadding=0 cellSpacing=0 width="94%">
         <TBODY>
         <TR>
           <TD vAlign=top width=35%><img src="../../../uploadpic/<%=rs("picture")%>" width=180 height=170 border=0></TD>
           <TD widht=5%>&nbsp;&nbsp;&nbsp;</TD>
           <TD width=60%><b><%=rs("cpmc")%></b><BR><BR>产品编号：<font face="Arial"><b><%=rs("cpbh")%></b></font><br>
               <BR>参考价格：<%=rs("cpjg")%><BR>
               <BR>产品产地：<%=rs("cpcd")%><BR>
               <BR>产品商标：<%=rs("cpsb")%><BR>
           </TD>
          </TR>
          </TBODY>
        </TABLE>
      </td>
   </tr>
   <tr>
      <td bgcolor="#ffffff" valign=top align=center>
         <TABLE border=0 cellPadding=0 cellSpacing=0 width="94%">
           <TBODY>
           <TR>
             <TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=Replace(rs("xxsm"),chr(13),"<br>&nbsp;&nbsp;") %></TD>
           </TR> 
           </TBODY>
         </TABLE>
       </td>
    </TR>
   </TBODY>
</TABLE>
<%rs.close     
  set rs=nothing
  conn.close
  set conn=nothing
%>