<%Response.Buffer=true%>
<% Dim ObjRst,ObjCon,StrSql,StrWhere,StrOrder,StrQry,SubRst
Set ObjRst=Server.CreateObject("ADODB.RecordSet")
Set SubRst=Server.CreateObject("ADODB.RecordSet")
Set ObjCon=Server.CreateObject("ADODB.Connection")
ObjCon.Open DataBase //庫(kù)連接
ObjRst.Open "select * from diy_productlst where corpid="&CorpNo*10,ObjCon
%>
&
<% Dim LngCate,StrKey
LngCate=Trim(Request("class"))
StrKey=Trim(Request("key"))
StrKey=Replace(StrKey,"'","''")
StrWhere=" where ispublished=1 and corpid="&corpNo
If IsNumeric(LngCate) Then StrWhere=StrWhere&" and class="&LngCate
If StrKey<>"" Then StrWhere=StrWhere&" and (title like '%"&StrKey&"%' or Ucase(c_no) like '%"&Ucase(StrKey)&"%' or Ucase(g_no) like '%"&Ucase(StrKey)&"%')"
PerLine=3
TotalLine=3
PerWidth=FormatPercent(1/PerLine,0)
Dim PerPage
PerPage=PerLine*TotalLine
TotalPage=0
TotalRecords=0
CurrPage=Request("page")
If CurrPage="" Or Not IsNumeric(CurrPage) Then CurrPage=0
If CurrPage<1 Then CurrPage=0
CurrPage=Int(CurrPage)
//===================================
If ObjRst.State=1 Then ObjRst.Close
ObjRst.Open "SELECT Count(id) cc FROM custom_parts "&StrWhere,ObjCon
TotalRecords=ObjRst.Fields("cc")
ObjRst.Close
//=================================== 信息顯示
TotalPage=Int(TotalRecords/PerPage)
If PerPage*TotalPageTotalPage Then CurrPage=TotalPage
If CurrPage=0 Then CurrPage=1
ObjRst.Open "select title,img1 catimg_s,c_no,g_no from custom_parts "&StrWhere,ObjCon
i=0
If CurrPage>1 Then
Do While Not ObjRst.Eof And i<(CurrPage-1)*PerPage
i=i+1
ObjRst.MoveNext
Loop
End If
If Not ObjRst.Eof Then
Response.Write "
"
Response.Write "
"
k=1
Do While Not ObjRst.Eof And k<=PerPage
Response.Write "
