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

📄 list.asp

📁 商业网站开发有源代码可以运行
💻 ASP
📖 第 1 页 / 共 2 页
字号:
                        <td><%
			set rs_shjfk=server.CreateObject("adodb.recordset")
			strshjiafk="select * from fkfs where shjiaid="&rs_shjia("shjiaid")
			rs_shjfk.open strshjiafk,conn,1,1
			%>
			<%
			if rs_shjfk.recordcount<>0 then			
			response.write "<a href=""javascript:;"" onClick=""javascript:window.open('user/fkfs_shjia.asp?id="&rs_shjfk("shjiaid")&"','news','width=432,height=288,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"")>商家付款方式</a>"
			response.write "/"
			else
			response.write  "&nbsp;"
			end if%>
			 <%
			set rs_shjps=server.CreateObject("adodb.recordset")
			strshjiaps="select * from ps where shjiaid="&rs_shjia("shjiaid")
			rs_shjps.open strshjiaps,conn,1,1
			%>
              <%
			if rs_shjps.recordcount<>0 then			
			response.write "<a href=""javascript:;"" onClick=""javascript:window.open('user/ps_shjia.asp?id="&rs_shjps("shjiaid")&"','news','width=432,height=288,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"")>商家配送说明</a>"
			response.write "&nbsp;"
			else
			response.write  "&nbsp;"
			end if%></td>
                      </tr>
                      <%
end if					  
rs_shjia.close
set rs_shjia=nothing
%>
                      <tr> 
                        <td>【评分星级】 
                          <%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=评论星级>"%>
                          <br>
                          &nbsp;共有<%=rs("pingji")%>位网友参与打分</td>
                      </tr>
                      <tr> 
                        <td>【<%=rs("mch")%>】<%=rs("bookname")%></td>
                      </tr>
                      <tr> 
                        <td>【<%=rs("isbn1")%>】<%=rs("isbn")%></td>
                      </tr>
                      <tr> 
                        <td>【<%=rs("jj")%>】<font color="#FF0000"><%=rs("bookchuban")%></font></td>
                      </tr>
                      <tr> 
                        <td>【商品状态】 
                          <%if rs("kucun")>0 then%>
                          上架 
                          <%else%>
                          下架 
                          <%end if%>
                        </td>
                      </tr>
                      <tr> 
                        <td>【所属类别】 
                          <%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>
                    </table>
                  </td>
                </tr>
              </table>
             <br> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td background="images/bj_x1.gif" height="1"></td>
                </tr>
                <tr>
                  <td>
                    <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
                      <tr>
                        <td><br><b><%=rs("nr")%></b><br>
                          &nbsp;&nbsp;&nbsp;&nbsp;<%=rs("bookcontent")%><br>
                          </td>
                      </tr>
                    </table>
                    </td>
                </tr>
              </table>
            </td>
          </tr>
          <%
rs.close
set rs=nothing
end if%>
          <tr> 
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td height=1 background="images/bj_x1.gif"> </td>
          </tr>
          <tr> 
            <td height="22">&nbsp;&nbsp;<b><font color="#FF9900">网友评论</font></b> 
              <font color="#999999">欢迎您对商品进行评论,表明您对此商品的感觉。</font></td>
          </tr>
          <tr> 
            <td height=1 background="images/bj_x1.gif"></td>
          </tr>
          <%
		set rs=server.createobject("adodb.recordset")
		rs.open "select  * from shop_pinglun where bookid="&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="100%" border="0" cellspacing="0" cellpadding="2">
                <tr> 
                  <td width="5%" align="right" height="22"><img src="images/image002.gif" width="15" height="15"></td>
                  <td colspan="2" height="22"><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" width="79" height="14"></td>
                </tr>
                <tr> 
                  <td width="5%">&nbsp;</td>
                  <td colspan="2"><b>作者:</b><%=trim(rs("pinglunname"))%> (<%=trim(rs("pinglundate"))%>)</td>
                  <td width="36%"><%=trim(rs("ip"))%></td>
                </tr>
                <tr> 
                  <td width="5%">&nbsp;</td>
                  <td colspan="3">&nbsp;&nbsp;
                    <%if len(rs("pingluncontent"))>24 then 
							  response.write left(rs("pingluncontent"),20)&"... <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=yes');return false;"" title="&trim(rs("pingluntitle"))&">[详细内容]</a>" 
							  else response.write rs("pingluncontent")
							  end if%>
                  </td>
                </tr>
                <%if trim(rs("huifu"))<>"" then%>
                <tr> 
                  <td width="5%">&nbsp;</td>
                  <td width="11%">&nbsp;</td>
                  <td colspan="2"><b><font color="#CC3333">管理员回复:</font></b><%=rs("huifu")%> 
                  </td>
                </tr>
                <%end if%>
                <tr background="images/bj_x1.gif"> 
                  <td height=1 colspan=4> </td>
                </tr>
              </table>
            </td>
          </tr>
          <%	
		rs.movenext
		next
		if plcount>0 then 
  %>
          <tr> 
            <td align=right height="22"><a href=listpl.asp?id=<%=request("id")%> target=_blank>&gt;&gt;浏览该商品的全部<%=plcount%>条评论&nbsp;&nbsp;</a></td>
          </tr>
          <%end if%>
          <tr> 
            <td background="images/bj_x1.gif" height="1" ></td>
          </tr>
          <tr> 
            <td align="center" height="38"> <a href="javascript:;" onClick="javascript:window.open('shangpintj.asp?id=<%=request("id")%>','pingluntj','width=325,height=200,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no')"><img src="images/tj.gif" width="60" height="19" border=0></a> 
              <a href="javascript:;" onClick="javascript:window.open('pinglun.asp?id=<%=request("id")%>','pinglun','width=295,height=325,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');"><img src="images/pl.gif" width="60" height="19" border=0></a> 
            </td>
          </tr>
        </table>
      </div>
    </td>
    <td width="1" valign="top" background="images/bj_x.gif"></td>
    <td width="182" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
      <!--#include file="history.asp"-->
      <!--#include file="pingpaiinfo.asp" -->
      <!--#include file="xiaoshouinfo.asp"-->
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td background="images/bj_x.gif" height="1"></td>
        </tr>
        <tr> 
          <td height="22" bgcolor="#EDECEC"> 
            <table cellspacing=0 cellpadding=0 width=170 height="20">
              <tr> 
                <td width=5>&nbsp;</td>
                <td> 
                  <div align="center"></div>
                   &nbsp;友情广告</td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td height="1" background="images/bj_x.gif"></td>
        </tr>
        <tr> 
          <td> 
            <table width="178" border="0" cellspacing="0" cellpadding="0" height="68">
              <tr> 
                <td height="65" width="181"> 
                  <table width="96%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td> 
                        <div align="right"><a href=<%=gg3url%> target="_blank"><img src=<%=gg3%>  border="0" width="166" height="55"></a></div>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr> 
                <td height="65"> 
                  <table width="96%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td> 
                        <div align="right"><a href="<%=gg4url%>" target=_blank><img src="<%=gg4%>" border="0" width="166" height="55"></a></div>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <!--#include file="toupiaoinfo.asp"-->
    </td>
  </tr>
</table>
<!--#include file="service1.asp"-->
<!--#include file="copyright.asp"-->
<div  id=floater 
            style="Z-INDEX: 20; WIDTH: 130px; POSITION: absolute; TOP: 342px; overflow: visible;; left: 2px"> 
</div>
<script language=javascript src="floater.js"></script>
</body>
</html>

⌨️ 快捷键说明

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