102.asp

一套很早的多用户电子商务程序

            <%end if%>
          </td>
        </tr>
      </table>
      <br> <div align="center"><a href="javascript:;" onClick="javascript:window.open('../shangpintj.asp?Product_id=<%=Product_id%>','pingluntj','width=325,height=150,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?Product_id=<%=Product_id%>&shop_name=<%=shop_name%>&Product_name=<%=Product_name%>','pinglun','width=350,height=325,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');"><img src="../images/pl.gif" width="60" height="19" border=0></a> 
      </div>
      <%end if%>
    </td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>
<%end sub%>
<%sub P_class%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td><a href="default.asp?sb=P_class">全部商品</a>-&gt; <%=request("CatalogName")%></td>
  </tr>
  <tr> 
    <td >&nbsp;</td>
  </tr>
  <tr> 
    <td valign="top"> 
      <!-- 最新商品开始-------------------------------------------------- -->
      <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<% 
dim page
page=request("page")
PageSize = 20 
CatalogID=request("CatalogID")
CatalogName=request("CatalogName")
set rs=server.createobject("adodb.recordset")
sqltext="select  * from Product  Where p_shop='"& shop_name &"' and Classification like '%"&CatalogID&"%' order by Product_id desc"
rs.open sqltext,conn,1,1                                                    
'/////////////////////////////////////////////////////////假如没有商品时//////////////////                                                      
If rs.eof and rs.bof then                                                       
response.write "<tr><td><p align='center'><font color='#ff0000'>暂时没有商品资料</font></p></td></tr>"                                                      
else
    rs.PageSize=PageSize
	totalfilm=rs.recordcount
    pgnum=rs.Pagecount
    if page="" or clng(page)<1 then page=1
    if clng(page) > pgnum then page=pgnum
    if pgnum>0 then rs.AbsolutePage=page
i=1                                                      
count=0 
do while not (rs.eof or rs.bof) and count<rs.PageSize 
%>
          <td width="25%" valign="top"><div align="center"><a href="default.asp?sb=product&Product_id=<%=rs("Product_id")%>"><img src="<%=rs("small_pic")%>" name="small" width="80"  height="82" border="0"  ><br>
            <font color="#0000FF"><%=rs("Product_Name")%></font><br>
            </a><font color="#666666">市场价：</font><span class="main1"><strike><%=rs("P_OldPrice")%>元</strike></span><font color="#cc0000">&nbsp;</font><font color="#cc0000"><br>
            会员价：</font><%=rs("P_NewPrice")%>元<br>
              <a href="javascript:openbag('../check.asp?cpbm=<%=rs("Product_Id")%>&amp;shopname=<%=rs("p_shop")%>')"><img style="CURSOR: hand" height="22" src="../images/che1.gif" width="56" align="absMiddle" border="0"></a> 
            <BR>&nbsp;&nbsp;</div></td>
    <%if i mod 4 =0 then%>
  </tr>
  <tr>
<%end if                                      
i=i+1                                                     
rs.movenext
count=count+1
loop
end if                                                
%>			
</tr>
	<tr>
</table>
<% if totalfilm>PageSize then%>
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
	  <tr>
		<td>&nbsp;</td>
	  </tr>
	  <tr>
		<td><div align="center">
						
					   [<b><%=rs.pagecount%></b>/<%=page%>页] [共<%=totalfilm%>个] 
						<%if page=1 then%>
						[首 页] [上一页] 
						<% else %>
						[<a href="default.asp?sb=P_class&CatalogID=<%=CatalogID%>&CatalogName=<%=CatalogName%>&page=1">首 页</a>] [<a href="default.asp?sb=P_class&CatalogID=<%=CatalogID%>&CatalogName=<%=CatalogName%>&page=<%=page-1%>">上一页</a>] 
						<%end if%>
						<%if rs.pagecount-page<1 then%>
						[下一页] [尾 页] 
						<%else%>
						[<a href="default.asp?sb=P_class&CatalogID=<%=CatalogID%>&CatalogName=<%=CatalogName%>&page=<%=page+1%>">下一页</a>] [<a href="default.asp?sb=P_class&CatalogID=<%=CatalogID%>&CatalogName=<%=CatalogName%>&page=<%=rs.pagecount%>">尾 
						页</a>] 
						<%
						end if
					%>
				</div></td>
	  </tr>
	</table>
<%end if
rs.close:set rs=nothing
 %>	  
	  </td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>
<%end sub%>
<%sub search%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td>首页：商品搜索</td>
  </tr>
  <tr> 
    <td height="10" > </td>
  </tr>
  <tr> 
    <td valign="top"> 
      <!-- 商品清单开始-/////////////////////////////////------------------------------------------------- -->
      <table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolorlight="#FF7171" bordercolordark="#FFFFFF" class=main1 height="55">
        <tr bgcolor="#fee5ec"> 
          <td width="13%" height="23" align="center">商品编号</td>
          <td width="38%" height="23" align="center">商品名称</td>
          <td width="16%" height="23" align="center">会员价</td>
          <td width="18%" height="23" align="center">市场价</td>
          <td width="15%" height="23" align="center">购买</td>
        </tr>
        <%
dim page
page=request("page")
PageSize = 25 

Product_Class=request("Product_Class")
Product_Class=FomaID(Product_Class)
Product_Name=request("Product_Name")
Product_Name=FomaID(Product_Name)
set rs=server.createobject("adodb.recordset")
sqltext="select * from Product where P_shop='"&shop_name&"'"
    if Product_Class="所有类别" then
       sqltext="select * from Product where P_shop='"&shop_name&"' and Product_Name like '%"& request("Product_Name") &"%' "
    else
	   sqltext="select * from Product where P_shop='"&shop_name&"'and  Product_Name like '%"& request("Product_Name") &"%' and  Classification like '%"&Product_Class&"%'"
	end if
rs.open sqltext,conn,1,1
    rs.PageSize=PageSize
	totalfilm=rs.recordcount
    pgnum=rs.Pagecount
    if page="" or clng(page)<1 then page=1
    if clng(page) > pgnum then page=pgnum
    if pgnum>0 then rs.AbsolutePage=page
	
'假如没有商品时 
If rs.eof and rs.bof then  
response.write "<tr><td height=23 colspan=5 align=center>没有商品资料</td></tr> </table>" 
else
count=0 
do while not (rs.eof or rs.bof) and count<rs.PageSize 
%>
        <tr> 
          <td width="13%" align="center" height="28"><%=rs("Product_Id")%></td>
          <td width="38%" align="center" height="28" ><a href="default.asp?sb=product&Product_id=<%=rs("Product_id")%>"><%=rs("Product_Name")%></a></td>
          <td width="16%" align="center" height="28"><%=rs("P_NewPrice")%></td>
          <td width="18%" align="center" height="28"><span class="main1"><strike><%=rs("P_OldPrice")%>元</strike></span><font color="#cc0000">&nbsp;</font></td>
          <td width="15%" align="center" height="28"><a href="javascript:openbag('../check.asp?cpbm=<%=rs("Product_Id")%>&amp;shopname=<%=rs("p_shop")%>')"><img style="CURSOR: hand" height="22" src="../images/che1.gif" width="56" align="absMiddle" border="0"></a></td>
        </tr>
        <%
rs.movenext
count=count+1
loop
%>
      </table>
      <div align="center"><br>
        [<b><%=rs.pagecount%></b>/<%=page%>页] [共<%=totalfilm%>个] 
        <%if page=1 then%>
        [首 页] [上一页] 
        <% else %>
        [<a href="default.asp?sb=search&Product_Class=<%=Product_Class%>&Product_Name=<%=Product_Name%>&page=1">首 页</a>] [<a href="default.asp?sb=search&Product_Class=<%=Product_Class%>&Product_Name=<%=Product_Name%>&page=<%=page-1%>">上一页</a>] 
        <%end if%>
        <%if rs.pagecount-page<1 then%>
        [下一页] [尾 页] 
        <%else%>
        [<a href="default.asp?sb=search&Product_Class=<%=Product_Class%>&Product_Name=<%=Product_Name%>&page=<%=page+1%>">下一页</a>] [<a href="default.asp?sb=search&Product_Class=<%=Product_Class%>&Product_Name=<%=Product_Name%>&page=<%=rs.pagecount%>">尾 
        页</a>] 
        <%end if%>
        <!-- 最新商品结束-------------------------------------------------- -->
      </div>
      <%end if%>
    </td>
  </tr>
  <tr> 
    <td valign="top">&nbsp;</td>
  </tr>
</table>
<%end sub%>
<%sub book%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td>首页：客户留言</td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td><form name="book" method="post" action="?sb=word_save">
        <table width="559" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#FF7171" bordercolordark="#FFFFFF" bgcolor="#fee5ec">
          <tr> 
            <td width="51"> <div align="center">标　题</div></td>
            <td width="217"> <input type="text" name="bk_top"> </td>
            <td width="58"><div align="center">姓　名</div></td>
            <td width="199"><input type="text" name="bk_Name"></td>
          </tr>
          <tr> 
            <td height="205" valign="top"> <div align="center">内　容</div></td>
            <td colspan="3" valign="top"><textarea name="bk_content" cols="65" rows="15"></textarea></td>
          </tr>
        </table>
        <br>
        <div align="center"> 
          <input type="submit" name="Submit2" value="提交">
          　 
          <input type="reset" name="Submit2" value="重置">
        </div>
      </form></td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>
<%end sub%>
<%sub word_save
if request.form("bk_top")="" then
Response.Write ("<script>alert('对不起！标题不能为空！');javascript:history.back(1)</script>")
elseif request.form("bk_Name")="" then
Response.Write ("<script>alert('对不起！姓名不能为空！');javascript:history.back(1)</script>")
elseif request.form("bk_content")="" then
Response.Write ("<script>alert('对不起！内容不能为空！');javascript:history.back(1)</script>")
response.end()
end if
set rs=server.createobject("adodb.recordset")
sqltext="select * from book"
rs.open sqltext,conn,3,3
rs.addnew
rs("bk_top")=replace(request.form("bk_top"),"<","〈")
rs("bk_Name")=replace(request.form("bk_Name"),"<","〈")
rs("bk_content")=replace(request.form("bk_content"),"<","〈")
rs("shop_name")=shop_name
rs("bk_IP")=Request.ServerVariables("REMOTE_ADDR")
rs.update
response.write"<script>alert('留言提交成功，谢谢你对我们的支持！');window.location.href='default.asp?sb=word'</script>"
end sub
%>
<%sub send%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td>首页：配送信息</td>
  </tr>
  <tr> 
    <td>&nbsp; </td>
  </tr>
  <tr> 
    <td> <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:[phone] Fax:[phone] 　 <br>
                  公司地址:深圳市泥岗路万年青大楼502室 <br>
                  PostCode:518000 Email:[e-mail]</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>