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

📄 list.asp

📁 网络商店源码 实现商品浏览 购物车 后台管理等
💻 ASP
📖 第 1 页 / 共 2 页
字号:
                              <%if rs("kucun")>0 then%>
                              上架 
                              <%else%>
                              <font color="#FF0000">缺货</font> 
                              <%end if%>
                            </td>
                          </tr>
                          <tr> 
                            <td height="25">【<%=rs("isbn1")%>】<%=rs("isbn")%></td>
                          </tr>
                          <tr> 
                            <td height="25">【<%=rs("jj")%>】<%=rs("shopchuban")%></td>
                          </tr>
                          <tr> 
                            <td height="25">【评分】 
                              <%if rs("pingjizong")>0 and rs("pingji")>0 then
xx=rs("pingjizong")\rs("pingji")
else
xx=5
end if
response.write "<img src=images/pingji/"&xx&".gif alt=评论星级>"%>
                              &nbsp;&nbsp;&nbsp;共有<%=rs("pingji")%>位网友参与打分</td>
                          </tr>
                          <tr> 
                            <td height="25">【所属类别】 
                              <%set rs2=server.createobject("adodb.recordset")
									rs2.open "select * from shop_anclass where anclassid="&rs("anclassid"),conn,1,1
									if rs2.recordcount>0 then
									response.write "<a href=class.asp?lx=big&anid="&rs2("anclassid")&" targer=_blank>"&rs2("anclass")&"</a> > "
									end if
									rs2.close
									set rs2=server.createobject("adodb.recordset")
									rs2.open "select * from shop_nclass where nclassid="&rs("nclassid"),conn,1,1
									if rs2.recordcount>0 then
									response.write "<a href=class.asp?lx=small&anid="&rs2("anclassid")&"&nid="&rs2("nclassid")&" targer=_blank>"&rs2("nclass")
									end if
									rs2.close
									set rs2=nothing%>
                            </td>
                          </tr>
                          <tr> 
                            <td height="40"><a href="gouwu.asp?id=<%=rs("shopid")%>&action=add" ><img src="images/gm1.gif" width="110" height="36" border="0"></a>&nbsp;&nbsp;<a href="shoucang.asp?id=<%=rs("shopid")%>&action=add" <%=sftc%>><img src="images/shc1.gif" width="98" height="36" border="0"></a> 
                              <a href="<%=trim(rs("zhuang"))%>" target="_blank"><img src="images/detailview_off.gif" width="115" height="36" border="0"></a> 
                            </td>
                          </tr>
                        </table></td>
                    </tr>
                  </table>
                  <br> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td> <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
                          <tr> 
                            <td>
                              <%
if p1<>"" then
      response.Write "<img src="&p1&" border=0>"
end if
if  p2<>"" then
      response.Write "<img src="&p2&" border=0>"
end if
if  p3<>"" then
      response.Write "<img src="&p3&" border=0>"
end if 
if p4<>"" then
      response.Write "<img src="&p4&" border=0>"
end if
%>
                              <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
                                <tr> 
                                  <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                                </tr>
                                <tr> 
                                  <td height="25" bgcolor="efefef"><strong>&nbsp;&nbsp;<img src="images/dot_03.gif" width="9" height="9" border="0"> 
                                    </strong><b><%=rs("shopname")%>的说明:</b></td>
                                </tr>
                                <tr> 
                                  <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                                </tr>
                              </table>
                              <br> <b>&nbsp;&nbsp;<%=rs("nr")%></b><br> <%=rs("shopcontent")%><br> 
                              &nbsp;&nbsp;</td>
                          </tr>
                        </table></td>
                    </tr>
                  </table></td>
              </tr>
              <%
rs.close
set rs=nothing
end if%>
              <tr> 
                <td height="30">
<div align="center"><a href="list.asp?id=<%=id-1%>"><strong><font color="#FF0000"><img src="images/ansh.gif" width="47" height="19" border="0"></font></strong></a>&nbsp;<strong><a href="list.asp?id=<%=id+1%>"><font color="#FF0000"><img src="images/anx.gif" width="47" height="19" border="0"></font></a>&nbsp;<a href="index.asp"><img src="images/anf.gif" width="47" height="19" border="0"></a></strong></div></td>
              </tr>
              <tr> 
                <td height="25">&nbsp;&nbsp;<b>网友评论</b> 欢迎您对商品进行评论,表明您对此商品的感觉。 
                  <input name="Submit2" type="reset" class="go-wenbenkuang" value="推荐给朋友" onClick="javascript:window.open('shangpintj.asp?id=<%=request("id")%>','pingluntj','width=325,height=200,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no')"> 
                </td>
              </tr>
              <tr> 
                <td height="12">&nbsp;</td>
              </tr>
              <%
		set rs=server.createobject("adodb.recordset")
		rs.open "select  * from shop_pinglun where shopid="&request("id")&" order by pinglundate desc",conn,1,1
		j=rs.recordcount
		plcount=rs.recordcount
		if j>3 then j=3
		for i=1 to j
%>
              <tr> 
                <td> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#e8eef3">
                    <tr bgcolor="#FFFFFF"> 
                      <td width="5%" height="22" align="right"><img src="images/image002.gif" width="15" height="15"></td>
                      <td height="22" colspan="2" bgcolor="#FFFFFF"><b>主题:</b><a href="javascript:;" onClick="javascript:window.open('pinglunll.asp?id=<%=rs("pinglunid")%>','pinglun','width=300,height=400,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;" title="<%=trim(rs("pingluntitle"))%>"><%=trim(rs("pingluntitle"))%></a></td>
                      <td width="36%" height="22"><img src="images/pingji/<%=rs("pingji")%>.gif"></td>
                    </tr>
                    <tr bgcolor="#FFFFFF"> 
                      <td width="5%">&nbsp;</td>
                      <td colspan="2" bgcolor="#FFFFFF"><b>作者:</b><%=trim(rs("pinglunname"))%> (<%=trim(rs("pinglundate"))%>)</td>
                      <td width="36%" bgcolor="#FFFFFF"><strong>IP:</strong><%=trim(rs("ip"))%></td>
                    </tr>
                    <tr bgcolor="#FFFFFF"> 
                      <td width="5%">&nbsp;</td>
                      <td colspan="3">&nbsp;&nbsp; <%=rs("pingluncontent")%> </td>
                    </tr>
                    <%if trim(rs("huifu"))<>"" then%>
                    <tr bgcolor="#FFFFFF"> 
                      <td width="5%">&nbsp;</td>
                      <td width="11%">&nbsp;</td>
                      <td colspan="2"><b>管理员回复:</b><%=rs("huifu")%> </td>
                    </tr>
                    <%end if%>
                  </table>
                  <br></td>
              </tr>
              <%	
		rs.movenext
		next
		if plcount>0 then 
  %>  <%end if%>
              <tr> 
                <td align=right height="22"><a href=listpl.asp?id=<%=request("id")%>>&gt;&gt;浏览该商品的全部<%=plcount%>条评论&nbsp;&nbsp;</a></td>
              </tr>
            
              <tr> 
                <td align="center"><form action="pinglun.asp" method="post" name="pinglunform" id="pinglunform">
                  <table width="98%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
                    <tr>
                      <td height="25" bgcolor="#FFFFFF"> <img src="images/go.gif" width="15" height="15"> <FONT 
                  color=#000000><B><strong><font color="<%=flzhzt%>">发表您的评论:</font></strong></B></FONT></td>
                    </tr>
                    <tr>
                      <td bgcolor="#FFFFFF"> 姓名:
                        <input name="pinglunname" class="wenbenkuang"type="text" id="pinglunname3" size="12">                        
                        标题: 
                        <input name="pingluntitle"  class="wenbenkuang"type="text" id="pingluntitle" size="26"></td>
                    </tr>
                    <tr>
                      <td bgcolor="#FFFFFF"> 评级:
                        <input type="radio" name="pingji" value="5" checked>
                        <img src="images/pingji/5.gif" width="55" height="12">
                        <input type="radio" name="pingji" value="4">
                        <img src="images/pingji/4.gif" width="55" height="12">
                        <input type="radio" name="pingji" value="3">
                        <img src="images/pingji/3.gif">
                        <input type="radio" name="pingji" value="2">
                        <img src="images/pingji/2.gif">
                        <input type="radio" name="pingji" value="1">
                        <img src="images/pingji/1.gif" width="55" height="12"></td>
                    </tr>
                    <tr>
                      <td bgcolor="#FFFFFF"><FONT 
                  color=#000000><B><strong>  </strong></B></FONT>请在以下填写评论正文:
                        <input name="id" type="hidden" value=<%=request("id")%>></td>
                    </tr>
                    <tr>
                      <td bgcolor="#FFFFFF"> 
                        <textarea name="pingluncontent"border-right: #ffffff 1px groove; border-top: border-left: color: #333333; border-bottom: height: 18px; background-color:"; ";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";";" cols="50" rows="5" id="textarea" class="wenbenkuang"></textarea></td>
                    </tr>
                    <tr>
                      <td bgcolor="#FFFFFF"> 
                        <input name="Submit" type="submit" class="go-wenbenkuang" value="提交保存" onClick="return check();">
                        <input name="Submit22" type="reset" class="go-wenbenkuang" value="重置">
                        <input name="Submit3" type="button" class="go-wenbenkuang" value="关闭窗口" onClick="javascript:window.close()"></td>
                    </tr>
                  </table>
                </form></td>
              </tr>
            </table>
            
          </td>
        </tr>
      </table></td>
    <td width="1" bgcolor="C9C9C8"><img src="../images/block.gif" width="1" height="1"></td>
  </tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
    <td width="1" bgcolor="C9C9C8"><img src="../images/block.gif" width="1" height="1"></td>
    <td> <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="168">&nbsp;</td><td width="1" bgcolor="C9C9C8"><img src="images/block.gif" width="1" height="1"></td>
          <td valign="top">
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td background="images/bg1_4color_.jpg"><img src=images/bg1_4color_.jpg" width="1" height="3"></td>
              </tr>
            </table>
            
          </td>
        </tr>
      </table></td>
    <td width="1" bgcolor="C9C9C8"><img src="../images/block.gif" width="1" height="1"></td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>
<%else
Response.Redirect url
end if
snsn.close
%>

⌨️ 快捷键说明

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