<%ConnectionDatabase()%>
<%
ClassID = Trim(Request("cid"))
keyword = Trim(Request("keyword"))
IF ClassID <> "" and ClassID <> "0" Then
Set rs = Server.CreateObject("Adodb.Recordset")
sql = "Select ClassName From HTX_Product_Class Where ClassID=" & ClassID
rs.open sql,conn,1,1
IF not rs.eof Then
ClassName = rs("ClassName")
End IF
rs.close
Set rs = Nothing
Else
ClassName = "全商品一覧"
End IF
%>
源興水果專賣店
<%=ClassName%>
<%
pc = Request.QueryString("pc")'每頁顯示個數
sb = Request.QueryString("sb")'排序方式
IF pc = "" Then pc = 10000
IF sb = "" Then sb = 0
if Request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(Request.querystring("page"))
end if
set rs = server.CreateObject("adodb.recordset")
sql = "select ProductID,PName,PCode,ListPrice,SpecialPrice,PUnit,PStore,PPicture1 from HTX_Product where 1=1"
if ClassID<>"" and ClassID<>"0" then
sql = sql & " and ClassID=" & ClassID & ""
end if
if keyword<>"" then
sql = sql & " and PName like '%" & keyword & "%'"
end if
Select Case sb
Case 1
sql = sql & " order by ProductID Desc"
Case 2
sql = sql & " order by ListPrice Asc"
Case 3
sql = sql & " order by ListPrice Desc"
Case else
sql = sql & " order by ProductID Desc"
End Select
rs.pagesize = pc
rs.cachesize = pc
rs.open sql,conn,1,1
ipagecount = rs.pagecount
irecordcount = rs.recordcount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
else
rs.absolutepage = ipagecurrent
irecordsshown = 0
%>
<%
IF sb="1" or sb=0 Then
Response.Write("")
Else
Response.Write("")
End IF
IF sb="2" Then
Response.Write("")
Else
Response.Write("")
End IF
IF sb="3" Then
Response.Write("")
Else
Response.Write("")
End IF
%>
<%IF keyword<>"" Then%>
｢<%=keyword%>｣ 檢索結果
<%End IF%>
<%do while irecordsshown
<%
for i=1 to 1
if rs.eof or irecordsshown>=CInt(pc) then exit for
%>
")
Else
Response.Write("
")
Else
Response.Write("
")
Else
Response.Write("