goods.asp

网络商城系统

<!--#include file="top.asp"-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> 
  <td width="180" valign="top">
<table width="761" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="FE9ACE">
      <tr> 
        <td width="180" valign="top"><!--#include file="left.asp"--></td>
        <td width="580" valign="top" bgcolor="#FFFFFF"> 
          <table width="2" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
            <tr> 
              <td height="3"></td>
            </tr>
          </table>
          <div align="center"><img src="images/spxx.gif" width="578" height="24"> 
          </div>
          <div align="center"> 
            <table width="580" height="42" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td valign="top">
                  <%
				   If Not(isNumeric(request("id"))) Then
   Response.Write "<div align=center>你的非法操作会被记录,如有必要,我们会送到相关部门</div>"
   Response.End
    End If		
			  set rs=server.createobject("adodb.recordset")
			  sql="select * from goods where id="&request("id")
			  rs.open sql,conn,1,1
			  if rs.eof then
			  response.write"<div align=center>没有此商品的详细信息</div>"
			  else
			  sc=rs("sclassid")
			  %>
                  <br> <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td width="77%" valign="top"> <table width="90%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td>[<%=rs("sp_name")%>]&nbsp;</td>
                          </tr>
                        </table>
                        <br> <table width="90%" height="51" border="0" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td style="border-top:1px dotted #FFA6DF">市场价:<s><%=rs("marprice")%></s>元</td>
                          </tr>
                          <tr> 
                            <td style="border-bottom:1px dotted #FFA6DF">会员价:<%=rs("memprice")%>元</td>
                          </tr>
                        </table>
                        <br> <table width="90%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td><a href=javascript:rewindow('addorder.ASP?buyid=<%=rs("id")%>',500,380)><font color="#000000">[点击购买]</font></a>&nbsp; 
                              　　非注册用户可以正常下订单</td>
                          </tr>
                        </table></td>
                      <td width="23%"><a href="<%=rs("sp_pic")%>" target="_blank"><img class="border3" border="0" src="<%=rs("sp_pic")%>" width="120" height="120" alt="点击看大图"></a></td>
                    </tr>
                  </table>
                  <br> <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr  class="tabbgcolorli"> 
                      <td>　<font color="#FFFFFF">商品说明</font></td>
                    </tr>
                  </table>
                  <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td><%=rs("spsm")%>&nbsp;</td>
                    </tr>
                  </table>
                  <br> <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr  class="tabbgcolorli"> 
                      <td>　<font color="#FFFFFF">商品描述</font></td>
                    </tr>
                  </table>
                  <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td><%=rs("spms")%>&nbsp;</td>
                    </tr>
                  </table>
                  <%end if
				rs.close
				set rs=nothing
				%>
                  <br> <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr  class="tabbgcolorli"> 
                      <td>　<font color="#FFFFFF">同类商品推荐</font></td>
                    </tr>
                  </table>
                  <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td> <table width="90%" height="18" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr> 
                            <%
					set rs=server.createobject("adodb.recordset")
					sql="select top 8 * from goods where sclassid="&sc&" order by id desc"
					rs.open sql,conn,1,1
					if rs.eof then
					response.write"暂时没有同类商品"
					else%>
                            <%
			  i=0
			do while not rs.eof
			i=i+1%>
                            <td>·<a href="goods.asp?id=<%=rs("id")%>"><font color="#000000"><%=trim(rs("sp_name"))%></font></a>&nbsp;&nbsp;&nbsp;&nbsp;</td>
                            <%
			if i mod 2=0 then
			%>
                          </tr>
                          <tr> 
                            <%
			 end if
			rs.movenext
			loop
			%>
                          </tr>
                        </table>
                        　</td>
                    </tr>
                  </table>
                  <%
				end if
				rs.close
				set rs=nothing%>
                  <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr  class="tabbgcolorli"> 
                      <td>　<font color="#FFFFFF">客户评论</font></td>
                    </tr>
                  </table>
                  <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" class="border1">
                    <% set rs=server.createobject("adodb.recordset")
				     sql="select top 3 * from pl where check=true and sp_id="&request("id")
					 rs.open sql,conn,1,1
					 if rs.eof then
					 response.write"<br><div align=center>暂时没有任何评论</div>"
					 else
					 do while not rs.eof
					 %>
                    <tr> 
                      <td class="xia">客户<%=rs("code")%>的如下评论:</td>
                    </tr>
                    <tr>
                      <td class="xia"><%=rs("content")%></td>
                    </tr>
                    <%if rs("reply")<>"" then%>
                    <tr> 
                      <td class="xia">管理员对以上客户的回复:</td>
                    </tr>
                    <tr>
                      <td class="xia"><%=rs("reply")%></td>
                    </tr>
                    <%end if%>
                    <%rs.movenext
				  loop
				  end if
				  rs.close
				  set rs=nothing%>
                  </table>
                  <table width="90%" height="140" border="0" align="center" cellpadding="0" cellspacing="0">
                    <form action="commentsave.asp?id1=<%=request("id")%>" name="comment" method="post">
                      <tr> 
                        <td width="20%">您的姓名或代号:</td>
                        <td width="80%"><input type="text" name="code" class="border"></td>
                      </tr>
                      <tr> 
                        <td>您的评论:</td>
                        <td><textarea name="content" cols="39" rows="5" class="border"></textarea>
                          最多100字</td>
                      </tr>
                      <tr> 
                        <td>　</td>
                        <td><input type="submit" name="sbm" value="提交" class="border">
                          &nbsp;&nbsp;&nbsp;&nbsp;
                          <input type="reset" name="rst" value="重写" class="border"></td>
                      </tr>
                    </form>
                  </table></td>
              </tr>
            </table>
          </div></td>
		  
        <td width="4" valign="top"><br>
        </td>
      </tr>
    </table>
    <!--#include file="bottom.asp"-->