⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 product.asp

📁 上海购物网设计的购物系统是基于WEB开发的大型购物系统。   它以构建电子商务网站为目标
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%dim id
id=request.QueryString("id")%>
<link href="images/css-1.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<head>
<title><%=webname%>--商品详细资料</title>
<!--#include file="include/header.asp"-->
<% 
dim prename,company,intro,predate,graph2,description,remarks,price,rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from product where isfb=0 and id="&id,conn,1,3
rs2("viewnum")=rs2("viewnum")+1
rs2.update%>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
  <TBODY>
    <TR> 
      <TD height=5></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
  <TBODY>
    <TR> 
      <TD class=bg3 vAlign=top width=595><TABLE cellSpacing=0 cellPadding=0 width="595" border=0>
          <TBODY>
            <TR background="images/search_02.gif"> 
              <TD height=25 colspan="2" background="images/service.gif" class=bg2> 
                <table width="593" border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td width="50" height="29" background="images/skin/default/logoo.gif"><div align="center"><FONT COLOR="#FFFFFF"><FONT COLOR="#000000"> 
                        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</FONT></FONT></div></td>
                    <td width="543"><FONT COLOR="#000000"><%=webname%>-&gt;&gt;><%=trim(rs2("mark"))%>-&gt;&gt;<%=trim(rs2("name"))%></FONT> 
                    </td>
                  </tr>
                </table>
                
              </TD>
            </TR>
            <TR valign="top"> 
              <TD width="1" background="images/login_02.gif">&nbsp;</TD>
              <TD><TABLE align="center" BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="98%" BGCOLOR=<%=bgclr1%>>
                  <TR> 
                    <TD HEIGHT="1" BGCOLOR=#FFFFFF></TD>
                    <TD BGCOLOR=#FFFFFF></TD>
                  </TR>
                  <TR> 
                    <TD valign="middle" BGCOLOR=#FFFFFF>&nbsp; </TD>
                    <TD align="center" valign="middle" BGCOLOR=#FFFFFF>&nbsp;</TD>
                  </TR>
                  <TR> 
                    <TD bgcolor="#FFFFFF"> <TABLE WIDTH="98%" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
                        <TR> 
                          <TD WIDTH="24%" rowspan="2" align="center" valign="middle"> 
                            <%if trim(rs2("pic"))<>"" then %>
                            <a href=#pic target=_top><img src=<% = trim(rs2("pic")) %> alt=<% = trim(rs2("name")) %> width="<% = webimg9 %>"  height="<% = webimg10 %>" border=0></a> 
                            <% else %>
                            <img src=images/emptybook.jpg alt=此商品暂时没有图片> 
                            <% end if %>
                            <% response.write "<br><center><a href="&trim(rs2("photo"))&" target=_blank>[点击查看大图片]</a></center>"
%>
                          </TD>
                          <TD WIDTH="76%"><TABLE WIDTH="100%" BORDER="0" ALIGN="center" CELLPADDING="1" CELLSPACING="1">
                              <TR> 
                                <TD colspan="3"><B> 
                                  <% = rs2("prename") %>
                                  </B><font color="#FF6600"><%=trim(rs2("name"))%></font></TD>
                              </TR>
                              <TR> 
                                <TD colspan="3"><B> 
                                  <% = rs2("company") %>
                                  </B><%=trim(rs2("mark"))%></TD>
                              </TR>
                              <TR> 
                                <TD colspan="3"><B> 
                                  <% = rs2("intro") %>
                                  </B><%=trim(rs2("introduce"))%></TD>
                              </TR>
                              <TR> 
                                <TD width="27%"><B> 
                                  <% = rs2("other") %>
                                  </B><%=trim(rs2("grade"))%></TD>
                                <TD width="25%"><B> 
                                  <% = rs2("pretype") %>
                                  </B><%=trim(rs2("type"))%></TD>
                                <TD width="26%">&nbsp;</TD>
                              </TR>
                              <TR> 
                                <TD><B>市场价格: </B><S>¥<%=rs2("price1")%></S>元</TD>
                                <TD><B>会员价格:</B> <font color="#FF0000"><%=rs2("price2")%>元</font></TD>
                                <TD><B><font color="#FF0033">VIP</font>价 格:</B> 
                                  <%=rs2("vipprice")%>元</TD>
                              </TR>
                              <TR> 
                                <TD><B>马上节省:</B> <%=rs2("price1")-rs2("price2")%>元</TD>
                                <TD><B>赠送积分:</B> <%=rs2("score")%>分 </TD>
                                <TD><B>浏览次数:</B> <%=trim(rs2("viewnum"))%></TD>
                              </TR>
                              <tr> 
                                <td height="5"></td>
                              </tr>
                              <TR> 
                                <TD><div align="center"></div></div>
                                  </TD>
                                <TD>&nbsp; <a href=# onClick="javascript:window.open('cart.asp?id=<% = rs2("id") %>','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><img src=images/skin/default/cart.gif width=50 height=19 align=absmiddle border=0></a> 
                                </TD>
                                <TD>&nbsp; <a href=# onClick="javascript:window.open('addto.asp?id=<% = rs2("id") %>&action=add','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><img src=images/skin/default/addto.gif width=50 height=19 align=absmiddle border=0></a></TD>
                              </TR>
                            </TABLE></TD>
                        </TR>
                      </TABLE>
                      <TABLE WIDTH="97%" BORDER="0" CELLPADDING="0" CELLSPACING="0" align="center">
                        <TR> 
                          <TD align="center" colspan="2"> <table width="96%" border="0" cellspacing="0" cellpadding="0">
                              <tr bgcolor="#f2f2f2"> 
                                <td></td>
                              </tr>
                              <tr> 
                                <td width="85%" valign="top"><strong> <font color="#FF6600"><%=trim(rs2("graph"))%></font></strong> 
                                  <br> <br> 
                                  <%  if rs2("content")<>"" then
		  response.write "<table width=19 height=4 border=0 cellpadding=0 cellspacing=0><tr><td height=4></td></tr></table>"&trim(rs2("content"))&"<table width=19 height=6 border=0 cellpadding=0 cellspacing=0><tr><td height=6></td></tr></table>"
		  end if
		  if rs2("detail")<>"" then
		  response.write "<strong><font color=red>【 详细说明 】</font></strong><table width=19 height=4 border=0 cellpadding=0 cellspacing=0><tr><td height=4></td></tr></table>"&trim(rs2("detail")&"<table width=19 height=6 border=0 cellpadding=0 cellspacing=0><tr><td height=6></td></tr></table>")
		  end if
		  %>
                                  <br> <br> </td>
                              </tr>
                            </table></TD>
                        </TR>
                        <TR> 
                          <TD colspan="2" background="images/hor.gif"></TD>
                        </TR>
                        <a name="pic"></a> 
                        <tr> 
                          <td ><table height=1 cellspacing=0 cellpadding=0 width=490 
                        align=center bgcolor=#f2f2f2 border=0 valign="top">
                              <tbody>
                                <tr> 
                                  <td></td>
                                </tr>
                              </tbody>
                            </table></td>
                        <tr> 
                          <td height="25" ><div align="center"><font color="#000000"><strong><a href="help_3.asp">如果您是第一次购买清查看我们的<font color="#FF0000">[购物流程]</font></a><br>
                              </strong></font></div></td>
                        <tr> 
                          <td width=70% ><font color="#CC0000">会员评级</font></td>
                          <%
		if rs2("mark")<>"" then
		response.write "<form name=searchmark method=post action=research.asp>"
		response.write "<td width=30% ><div align=right><input type=hidden name=searchkey value="&trim(rs2("mark"))&"<input type=hidden name=selectaction value=2>"
		response.write "</br>查看更多关于&nbsp;<a href=research.asp?action=2&searchkey="&trim(rs2("mark"))&" target=_blank><font color=red>"&trim(rs2("mark"))&"</font></a>&nbsp;的商品</div></td></form>"
		end if
		response.write "</tr>"
		response.write "<tr><td colspan=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
		call rank()
		response.write "&nbsp;&nbsp;<a href=# onClick=""javascript:window.open('rank.asp?id="&id&"','','width=295,height=235,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;"">发表您对本商品的评级</a></td></tr>"
		rs2.close
		set rs2=nothing
		
		response.write "<tr><td>会员评论</td>"
		response.write "<td><div align=right><a href=# onClick=""javascript:window.open('comment.asp?id="&id&"','','width=295,height=185,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;"" ><img src=images/my_review.gif width=93 height=20 border=0 alt=用户评论></a></div></td></tr>"
		'//用户评论
		dim rs1 
		set rs1=server.CreateObject("adodb.recordset")
		rs1.open "select * from review where id="&id&" and audit=1 ",conn,1,1
		if rs1.eof and rs1.bof then
		response.write"<tr><td colspan=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;如果您用过本商品,或对本商品有所了解,欢迎您发表自己的评论。您的评论将被网络上成千上万的用户所共享,我们将对您的慷慨深表感谢。"
		response.write "&nbsp;您的评论在提交后将经过我们的审核,也许您需要等待一些时间才可以看到。谢谢合作。</td></tr>"
		else
		do while not rs1.eof 
				%>
                        <TR> 
                          <TD>[<B><%=rs1("title")%></B>@<%=rs1("reviewdtm")%>]<BR> 
                            <%=rs1("reviewcontent")%></TD>
                        </TR>
                        <%rs1.movenext
		loop
		rs1.close
		set rs1=nothing
		end if%>
                      </TABLE></TD>
                    <TD bgcolor="#FFFFFF">&nbsp;</TD>
                  </TR>
                </TABLE></TD>
            </TR>
            <TR bgcolor="<%=bgclr1%>"> 
              <TD colSpan=2 height=1></TD>
            </TR>
            <TR> 
              <TD colSpan=2></TD>
            </TR>
        </TABLE></TD>
      <TD width=183 vAlign=top background=images/skin/default/product_02.gif> 
        <TABLE cellSpacing=0 cellPadding=0 width=183 border=0>
          
          <TBODY>
            <TR> 
              <TD height="25"><IMG height=25 src="images/skin/default/product_03.gif" width=183></TD>
            </TR>
            <TR> 
              <TD height=20> 
                <!--#include file="include/pronav2.asp" -->
              </TD>
            </TR>
          </TBODY>
        </TABLE>
      
      </TD>
    </TR>
    <TR bgColor=<%=bgclr1%>> 
      <TD height=5 colSpan=2></TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="include/footer.asp"--> 
<%sub rank()
dim other
if rs2("ranknum")>0 and rs2("rank")>0 then
other=rs2("ranknum")\rs2("rank")
else
other=0
end if
response.write "<img src=images/rank/"&other&".gif alt=评论星级>"
end sub
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -