<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>Product</title>
</head>
<body bgcolor="#00CCFF">
<p align="center"><b><font face="標楷體" size="6" color="#FF00FF">水果一覽表</font></b></p>
<p align="left">本購物中心僅為提供線上水果之交易平台，水果均為各地農會直銷，品質保證，如有吃壞肚子或拿到撞傷水果等責任均為各地銷售農會，本商場不負任何責任，也不會給任何醫藥費。</p>
<hr>
<!-- #include file="db.txt" -->
<%
SQL_Statement="Select prod_num 水果編號,supp_name 供應農會,description 水果名稱, unit_price 單價,image 產品介紹連結"
SQL_Statement=SQL_Statement & ",P.supp_code from  Products P,Suppliers S where P.supp_code=S.supp_code"
RS.Open SQL_Statement,DBC,3
Call DBError
   RS.PageSize = 10 
Act_file="Product.asp"
if Not IsEmpty(Request("ToPage")) then
	ToPage = CInt(Request("ToPage")) 
	if ToPage > RS.PageCount then 
		RS.AbsolutePage = RS.PageCount 
	elseif ToPage <= 0 then 
		RS.AbsolutePage = 1 
	else
		RS.AbsolutePage = ToPage 
	end if
End if
Current_Page = RS.AbsolutePage 
%>
<H3>目前的分頁狀況為<FONT SIZE = 4 COLOR = red>
<% = Current_Page %>/<% = RS.PageCount %></FONT>頁，請按[訂購編號]即可將水果放入購物車，等待結帳。</H3>
<%
 Display_Page RS,Current_page,1
%>
<TABLE>
<TR valign=baseline align=center>
<%
if Current_Page <> 1 then
	%>
	<TD Width=150>
	<A Href=<%=Act_file%>?ToPage=<% = 1%>>第一頁</A>
	</TD>
	<TD	Width=150>
	<A Href=<%=Act_file%>?ToPage=<% = Current_Page - 1%>>上一頁</A>
	</TD>
	<%
end if
if Current_Page <> RS.PageCount then
	%>	
	<TD Width=150>
	<A Href=<%=Act_file%>?ToPage=<% = Current_Page + 1%>>下一頁</A>
	</TD>  
	<TD	Width=150>
	<A Href=<%=Act_file%>?ToPage=<% = RS.PageCount%>>最後一頁</A>
	</TD>
	<%
end if
%>
<% if RS.PageCount >1 then %> 
<TD	Width=150>
<FORM action="<%=Act_file%>" method=POST> 
到   
<INPUT type="text" name=ToPage style="HEIGHT: 25px; WIDTH: 40px"  
 value=<% = Current_Page%>> 頁  
</FORM> 
<% end if%> 
</TR>  
</TABLE>  
<%  
Set RS = Nothing   
%> 
</BODY>  
