复件 default.asp

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

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

%>
      <table width="590" border="1" align="center" cellpadding="4" cellspacing="0" bordercolorlight="#FFD146" 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")%> 
              　<a href='javascript:openbag(<%=rs("Product_Id")%>)'><br>
              </a><a href="javascript:openbag('../check.asp?cpbm=<%=rs("Product_Id")%>&amp;shopname=<%=rs("p_shop")%>')"> 
              <img border="0" src="../images/che1.gif" width="56" height="22"></a></div></td>
        </tr>
        <tr> 
          <td width="260"> <p>【<b><font color="#FF0000">商品名称</font></b>】：<%=rs("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 height="29" colspan="2"> <p>【<b><font color="#FF0000">评分星级</font></b>】：</p></td>
        </tr>
        <tr> 
          <td colspan="2"> <p>【<b><font color="#FF0000">商品简介</font></b>】：<%=replace(replace(rs("Product_intro")," ","&nbsp;&nbsp;"),chr(13)+chr(10),"<br>")%></p></td>
        </tr>
        <tr> 
          <td colspan="2"> <p><font color="#0000FF">【<b>备　　注</b>】：</font><%=replace(replace(rs("Product_show")," ","&nbsp;&nbsp;"),chr(13)+chr(10),"<br>")%></p></td>
        </tr>
        <tr> 
          <td colspan="2"> <p align="center"> 　<img src="../images/pl.gif" width="60" height="19">　<img src="../images/tj.gif" width="60" height="19"></p></td>
        </tr>
      </table>
<%
end if
rs.close:set rs=nothing
%>	  
	  </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="#0099CC" bordercolordark="#FFFFFF" class=main1 height="55">
        <tr bgcolor="#CCCCCC"> 
          <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_Name=request("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 bgcolor=#CCCCCC><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="#3366cc" bordercolordark="#FFFFFF" bgcolor="#ECECFF">
          <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
%>
</body>
</html>