config_fl.asp

一套完整的在线购物系统

<%
'-------------------------------------------商品分类-----------------------------------------------
sub goods_fl()
dim sid,rs,rs1,page,maxpage,iCount,iPageSize,ii
sid=request.querystring("sid")
set rs1=conn.execute("select * from goods_sort where sid="&sid)
%>
<table border=0 width=600 cellspacing=0 cellpadding=0 align=center>
 <tr><td colspan=2 background="pic/fl_bg.gif" WIDTH="600" HEIGHT="35">
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<B>商品分类：【<%=rs1("sortname")%>】</B></td></tr>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from goods where sid="&sid&" order by addtime desc",conn,1,1
rs.PageSize=10
iCount=rs.RecordCount
iPageSize=rs.PageSize
maxpage=rs.PageCount 
page=request("page")
if Not IsNumeric(page) or page="" then
        page=1
else
        page=cint(page)
end if
    
if page<1 then
        page=1
elseif  page>maxpage then
        page=maxpage
end if
rs.AbsolutePage=Page
for ii=1 to ipagesize
%>
<tr><td width=120 height=110 align=center>
<A HREF="my_cart.asp?id=<%=rs("id")%>&action=add"><img src="<%=rs("goodspic")%>" width=90 height=90 border=0></A></td>
<td width=470><p style="margin-top:5;margin-left:15;line-height=150%">
商品名称：<%=rs("goodsname")%><BR><FONT COLOR="red">商品价格：<%=rs("price")%>&nbsp;元</FONT><BR>
商品介绍：<BR><%=rs("goodsintro")%><BR>
<A HREF="my_cart.asp?id=<%=rs("id")%>&action=add"><IMG SRC="pic/index_cart.gif" WIDTH="76" HEIGHT="20" BORDER="0"></A>
</p></td></tr>
<%
 rs.movenext
 if rs.EOF then exit for
 next
 response.write"<tr><td align=right height=30 colspan=2>"
 if page<=1 then
        Response.Write ("首页 ")        
        Response.Write ("上页 ")
 else        
        Response.Write("<A HREF=list.asp?sid="&sid&"&Page=1>首页</A>")
        Response.Write("<A HREF=list.asp?sid="&sid&"&Page=" & (Page-1) & ">上页</A> ")
 end if

    if page>=maxpage then
        Response.Write ("下页 ")
        Response.Write ("尾页 ")            
    else
        Response.Write("<A HREF=list.asp?sid="&sid&"&Page=" & (Page+1) & ">下页</A> ")
        Response.Write("<A HREF=list.asp?sid="&sid&"&Page=" & maxpage & ">尾页</A> ")            
    end if
    Response.Write(" 页次：" & page & "/" & maxpage & "页")
    Response.Write(" 共有" & iCount & "种商品")
	response.write"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>"
 %>
</table>
<%
end sub

'--------------------------------------------------商品分类------------------------------------------
sub goods_sea()
dim keyword,rs,gclass,page,maxpage,iCount,iPageSize,ii
if request("gclass")<>"" then
  gclass=" and sid="&request("gclass")
else
  gclass=""
end if
keyword=request("gkey")
%>
<table border=0 width=600 cellspacing=0 cellpadding=0 align=center>
 <tr><td colspan=2 background="pic/fl_bg.gif" WIDTH="600" HEIGHT="35">
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<B>您查询的关键字是：
 <FONT COLOR="red"><%=keyword%></FONT></B></td></tr>
<%
  set rs=server.createobject("adodb.recordset")
   rs.open "select * from goods where goodsname like '%"&keyword&"%'"&gclass,conn,1,1
  
if rs.eof and rs.bof then
response.write"<tr><td height=45 align=center colspan=2>对不起，没有查讯到您需要的商品！</td></tr>"
else
rs.PageSize=10
iCount=rs.RecordCount
iPageSize=rs.PageSize
maxpage=rs.PageCount 
page=request("page")
if Not IsNumeric(page) or page="" then
        page=1
else
        page=cint(page)
end if
    
if page<1 then
        page=1
elseif  page>maxpage then
        page=maxpage
end if
rs.AbsolutePage=Page
for ii=1 to ipagesize
%>
<tr><td width=120 height=110 align=center>
<A HREF="my_cart.asp?id=<%=rs("id")%>&action=add"><img src="<%=rs("goodspic")%>" width=90 height=90 border=0></A></td>
<td width=470><p style="margin-top:5;margin-left:15;line-height=150%">
商品名称：<%=rs("goodsname")%><BR><FONT COLOR="red">商品价格：<%=rs("price")%>&nbsp;元</FONT><BR>
商品介绍：<BR><%=rs("goodsintro")%><BR>
<A HREF="my_cart.asp?id=<%=rs("id")%>&action=add"><IMG SRC="pic/index_cart.gif" WIDTH="76" HEIGHT="20" BORDER="0"></A>
</p></td></tr>
<%
 rs.movenext
 if rs.EOF then exit for
 next
 response.write"<tr><td align=right height=30 colspan=2>"
 if page<=1 then
        Response.Write ("首页 ")        
        Response.Write ("上页 ")
 else        
        Response.Write("<A HREF=list.asp?sid="&sid&"&Page=1>首页</A>")
        Response.Write("<A HREF=list.asp?sid="&sid&"&Page=" & (Page-1) & ">上页</A> ")
 end if

    if page>=maxpage then
        Response.Write ("下页 ")
        Response.Write ("尾页 ")            
    else
        Response.Write("<A HREF=list.asp?sid="&sid&"&Page=" & (Page+1) & ">下页</A> ")
        Response.Write("<A HREF=list.asp?sid="&sid&"&Page=" & maxpage & ">尾页</A> ")            
    end if
    Response.Write(" 页次：" & page & "/" & maxpage & "页")
    Response.Write(" 共有" & iCount & "种商品")
	response.write"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>"

end if
%>
</table>
<%
end sub
%>