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

📄 102.asp

📁 一套很早的多用户电子商务程序
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
          <td width="45%"><%=rs("n_time")%></td>
        </tr>
        <%
rs.movenext
loop
rs.close:set rs=nothing
%>
      </table>
        
      <%end if%></div>
    </td>
  </tr>
  <tr> 
    <td valign="top">&nbsp;</td>
  </tr>
</table>
<%end sub%>
<%sub mode%>
<!--配送方式======================================= -->
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td>首页：配送方式</td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td> 
      <% 
set rs=server.createobject("adodb.recordset")
sqltext="select p_other from shop where shop_name1='"&shop_name&"'  "
rs.open sqltext,conn,1,1 
if not rs.eof then
response.write rs("p_other")
else
response.write "没有数据"
end if
rs.close:set rs=nothing
%>
    </td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>
<% end sub%>
<%sub help%>
<!--购物帮助======================================= -->
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td>首页：购物帮助</td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td> 
      <% 
	  set rs=server.createobject("adodb.recordset")
sqltext="select Enterprises from shop where shop_name1='"&shop_name&"'  "
rs.open sqltext,conn,1,1
if not rs.eof then
response.write rs("Enterprises")
else
response.write "没有数据"
end if
rs.close:set rs=nothing
%>
    </td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>
<%end sub%>
<%sub word%>
<!--客户留言======================================= -->
<table width="516" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#6699FF">
  <tr> 
    <TD width="552" height="25" align="center"><font color="#FFFFFF"><strong>功能限制</strong></font></TD>
  </tr>
</table>
<table width="516" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#6699FF">
  <tr> 
    <td width="512" height="196" bgcolor="#F0F5FF"><table border="0" cellpadding="0" cellspacing="0" width="100%" height="73">
        <tr> 
          <td height="10" colspan="2"></td>
        </tr>
        <tr> 
          <td height="20" colspan="2"><span class=p9orange><strong>　特区商城系统</strong></span></td>
        </tr>
        <tr> 
          <td width="33%" height="50" align="center"><a href="http://www.tequshop.com/SoftBuy/index.htm" target="_blank"><img src="../IMAGES/tequshop.jpg" width="149" height="123" border="0"></a></td>
          <td width="67%"> 　　您好，您现在使用的是特区商城的测试版,有一部分功能将受到限制，在您试用后如果觉得满意，欢迎您与我们联系购买正式版使用。<br> 
            <br>
            深圳市玉龙网络技术有限公司 <br>
            http://www.dns100.cn <br>
            Tel:(0755)61321320 Fax:(0755)82414037 　 <br>
            公司地址:深圳市泥岗路万年青大楼502室 <br>
            PostCode:518000 Email:web@dns100.cn</td>
        </tr>
        <tr> 
          <td height="63" colspan="2"><TABLE 
                        width="98%" border=0 align="center" cellPadding=0 cellSpacing=0 class=p9gray>
              <TBODY>
                <TR> 
                  <TD vAlign=left><SPAN 
                              class=p9orange> </SPAN> <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr> 
                        <td><div align="right"><strong><font color="#FF9900">进入特区商城系统正式版</font></strong><font color="#FF9900">--</font>　<a href="http://www.tequshop.com/SoftBuy/index.htm" target="_blank">简介</a> 
                            | <a href="http://www.tequshop.com/SoftBuy/index1.htm" target="_blank">演示</a> 
                            | <a href="http://www.tequshop.com/SoftBuy/index2.htm" target="_blank">安装</a> 
                            | <a href="http://www.tequshop.com/SoftBuy/index3.htm" target="_blank">购买</a> 
                            | <a href="http://www.tequshop.com/SoftBuy/index4.htm" target="_blank">升级</a> 
                            | <a href="http://www.tequshop.com/SoftBuy/index5.htm" target="_blank">服务</a> 
                            | <a href="http://www.tequshop.com/SoftBuy/index6.htm" target="_blank">成功案例</a> 
                          </div></td>
                      </tr>
                    </table></TD>
                </TR>
              </TBODY>
            </TABLE></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="5" > </td>
  </tr>
</table>
<%end sub%>

<%sub news_show%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td>首页：新闻内容</td>
  </tr>
  <%
id=request("id")
id=FomaID(id)
set rs=server.createobject("adodb.recordset")
sqltext="select * from news where shop_name='"&shop_name&"'and id="&id
rs.open sqltext,conn,1,1
if rs.eof then
response.write "<tr><td>没有新闻内容</td></tr>"
else
%>
  <tr> 
    <td height="50"> <div align="center"><strong><%=rs("n_top")%></strong><br>
        <font color="#999999">时间：[<%=rs("n_time")%>]</font></div></td>
  </tr>
  <tr> 
    <td><%=rs("content")%></td>
  </tr>
  <%
  end if
  rs.close:set rs=nothing
  %>
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>
<%end sub%>
<%sub product%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td>首页：商品详细</td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td> 
      <%
Product_id=Request("Product_id")
Product_id=FomaID(Product_id)
strSQL="update Product set Look_Count=Look_Count+1 where Product_id='"& Product_id&"'"
conn.Execute strSQL

set rs=server.createobject("adodb.recordset")
sqltext="select  * from Product  Where Product_id='"& Product_id&"'"
rs.open sqltext,conn,1,1
if rs.eof and rs.bof then
response.write "对不起！此商品已售完!" 
else
Products = Split(rs("Classification"), ",")
CatalogID=Products(0)
set class_rs=server.createobject("adodb.recordset")
sql="select CatalogName from SoftDown_Catalog where CatalogID="&CatalogID
class_rs.open sql,conn,1,1
CatalogName=class_rs("CatalogName")
class_rs.close
Product_name=rs("Product_name")
%>
      <table width="590" border="1" align="center" cellpadding="4" cellspacing="0" bordercolorlight="#FF7171" bordercolordark="#FFFCF0">
        <tr> 
          <td height="236" colspan="2"> <div align="center"> <br>
              <img src="<%=rs("big_pic")%>"  border="0"  ></div>
            <div align="center"> <font color="red">浏览次数：</font><%=rs("Look_Count")%><br>
              <a href="javascript:openbag('../check.asp?cpbm=<%=rs("Product_Id")%>&amp;shopname=<%=rs("p_shop")%>')"> 
              <img border="0" src="../images/che2.gif" width="56" height="22"></a> 
              <a href="#" onclick="window.open('../user/Favorites.asp?Product_Id=<%=rs("Product_Id")%>','','height=280,width=600,scrollbars=yes,resizable=1,top=10, left=15');"><img src="../IMAGES/shoucang2.gif" width="56" height="22" border="0"></a></div></td>
        </tr>
        <tr> 
          <td width="260"> <p>【<b><font color="#FF0000">商品名称</font></b>】：<%=Product_name%> 
            </p></td>
          <td width="302">【<b><font color="#FF0000">市场价格</font></b>】：<strike><%=rs("P_OldPrice")%>元</strike> 
          </td>
        </tr>
        <tr> 
          <td> <p>【<b><font color="#FF0000">所属类别</font></b>】：<a href="default.asp?sb=P_class&CatalogID=<%=CatalogID%>&CatalogName=<%=CatalogName%>"><%=CatalogName%></a></p></td>
          <td>【<b><font color="#FF0000">会员价格</font></b>】：<span class="main1"><%=rs("p_newprice")%>元</span></td>
        </tr>
        <tr> 
          <td> <p>【<b><font color="#FF0000">商品单位</font></b>】：<%=rs("units")%> 
            </p></td>
          <td>【<b><font color="#FF0000">商品规格</font></b>】：<%=rs("guige")%></td>
        </tr>
        <tr> 
          <td> <p>【<b><font color="#FF0000"><span       
                  class=main1>生产厂家</span></font></b>】：<span class="main1"></span><%=rs("factory")%> 
            </p></td>
          <td>【<b><font color="#FF0000">商品所在地</font></b>】：<%=rs("locus")%></td>
        </tr>
        <tr> 
          <td height="29" colspan="2"> <p>【<b><font color="#FF0000">评分星级</font></b>】： 
              <%if rs("pingjizong")>0 and rs("pingji")>0 then
xx=rs("pingjizong")\rs("pingji")
response.write "<img src=../images/pingji/"&xx&".gif alt=评论星级>"
response.write "　共有<strong><font color=#0000FF>"&rs("pingji")&"</font></strong>位网友参与打分"
else
xx=5
response.write "<img src=../images/pingji/"&xx&".gif alt=评论星级>"
end if
%>
            </p></td>
        </tr>
        <tr> 
          <td colspan="2"> <p>【<b><font color="#FF0000">商品简介</font></b>】：<%=Fomathtm(rs("Product_intro"))%></p></td>
        </tr>
        <tr> 
          <td colspan="2"> <p>【<b><font color="#FF0000">备　　注</font></b>】：<%=Fomathtm(rs("Product_show"))%> 
            </p></td>
        </tr>
        <tr> 
          <td colspan="2"> <b><font color="#FF9900">&nbsp;网友评论</font></b> <font color="#999999">欢迎您参加对商品进行评论，发表您对此商品的感觉。</font> 
            <%
'网友评论/////////////////////////////////////////////////////////////////////////////////////////////////////
set rs=server.createobject("adodb.recordset")
rs.open "select  * from shop_pinglun where Product_id="&Product_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
%>
            <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")%>&Product_name=<%=Product_name%>','pinglun','width=350,height=300,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;" title="<%=trim(rs("pingluntitle"))%>"><font color="#0000FF"><%=trim(rs("pingluntitle"))%></font></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")&"&Product_name="&Product_name&"','pinglun','width=350,height=300,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>
            <%	
rs.movenext
next
rs.close:set rs=nothing
if plcount>0 then 
%>
            <div align="right">本商品共有<%=plcount%>条评论　<a href="javascript:;" onClick="javascript:window.open('../PingLunAll.asp?Product_id=<%=Product_id%>&Product_name=<%=Product_name%>','pinglun','width=380,height=320,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;" >&gt;&gt;<font color="#0000FF">浏览全部评论&nbsp;&nbsp;</font></a></div>
12345

⌨️ 快捷键说明

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