?? sub.asp
字號:
call PageControl(iCount,maxpage,page)
response.write "</table>"
end if
else
response.write "參數錯誤"
end if
rs.close
set rs=nothing
end sub
'*********************************************************
'*************************************************************************************************
' 目的： 按商品特性-顯示商品列表
' 輸入： flag,NumsPerPage,NumsPerRow
' 說明： flag:商品特性(1=新 2=薦 3=特); NumsPerPage:每頁記錄條數; NumsPerRow:每行顯示的商品數量;
'*************************************************************************************************
Sub Product_ListFlag(flag,NumsPerRow,NumsPerPage)
if IsNumeric(NumsPerRow)=false or IsNumeric(NumsPerPage)=false then
check="false"
end if
if check<>"false" then
response.write "<table cellspacing=0 cellpadding=2 style='border-collapse: collapse' width='100%'>"
response.write "<tr align=center>"
select case flag
case 1
sql="select id,Product_info_Name,Product_info_PriceM,Product_info_PriceS,Product_info_PicS from Product_info where Product_info_OnOff=0 and instr(Product_info_flag,1)"
case 2
sql="select id,Product_info_Name,Product_info_PriceM,Product_info_PriceS,Product_info_PicS from Product_info where Product_info_OnOff=0 and instr(Product_info_flag,2)"
case 3
sql="select id,Product_info_Name,Product_info_PriceM,Product_info_PriceS,Product_info_PicS from Product_info where Product_info_OnOff=0 and instr(Product_info_flag,3)"
end select
'response.write sql
'response.end
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
response.write "<td align=center>對不起，暫時沒有相關商品信息!</td></tr></table>"
else
rs.PageSize =NumsPerPage '每頁記錄條數
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
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
i=1
set id =rs(0)
set Product_info_Name =rs(1)
set Product_info_PriceM =rs(2)
set Product_info_PriceS =rs(3)
set Product_info_PicS =rs(4)
xxx=1/NumsPerRow*100
while not rs.eof and i<=rs.pagesize
response.write "<td align=center width="&xxx&"% >"
response.write " <table width='100%' border=0 align=center cellpadding=0 cellspacing=0 style='border-collapse: collapse'>"
response.write " <tr>"
response.write " <td align=center valign=top>"
response.write " <table border=1 cellspacing=0 cellpadding=4 style='border-collapse: collapse' bordercolor='#E4E4E4'>"
response.write " <tr><td align=center><a href=Product_Detail.asp?id="&id&"><img border=0 src=UPloadpic/"&Product_info_PicS&" onload='loaded(this,"&root_option_WidthSPic&","&root_option_HeighSPic&")' /></a></td></tr>"
response.write " </table>"
response.write " <a href=Product_Detail.asp?id="&id&">"&Product_info_Name&"</a><br />"
response.write " 市場價：￥"&formatnumber(Product_info_PriceM,2,-1)&"<br>"
response.write " 網站價：<b><font color=#FF6600>￥"&FormatNumber(Product_info_PriceS,2,-1)&"</font></b>"
response.write " </td>"
response.write " </tr>"
response.write " </table>"
response.write "</td>"
if i mod NumsPerRow = 0 then
response.write "</tr>"
end if
rs.movenext
i=i+1
wend
call PageControl(iCount,maxpage,page)
response.write "</table>"
end if
else
response.write "參數錯誤"
end if
rs.close
set rs=nothing
end sub
'*********************************************************
'***********************************************
' 目的： 按商品搜索-顯示商品列表
' 輸入： Search,NumsPerPage,NumsPerRow
' 說明： Search:搜索參數集; NumsPerPage:每頁記錄條數; NumsPerRow:每行顯示的商品數量;
'***********************************************
Sub Product_ListSearch(Search,NumsPerRow,NumsPerPage)
if IsNumeric(NumsPerRow)=false or IsNumeric(NumsPerPage)=false then
check="false"
end if
if check<>"false" then
response.write "<table cellspacing=0 cellpadding=2 style='border-collapse: collapse' width='100%'>"
response.write "<tr align=center>"
if Search<>"" then
sql="select id,Product_info_Name,Product_info_PriceM,Product_info_PriceS,Product_info_PicS from Product_info where Product_info_OnOff=0 "&Search
else
sql="select id,Product_info_Name,Product_info_PriceM,Product_info_PriceS,Product_info_PicS from Product_info where Product_info_OnOff=0"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
response.write "<td align=center>對不起，暫時沒有相關商品信息!</td></tr></table>"
else
rs.PageSize =NumsPerPage '每頁記錄條數
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
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
i=1
set id =rs(0)
set Product_info_Name =rs(1)
set Product_info_PriceM =rs(2)
set Product_info_PriceS =rs(3)
set Product_info_PicS =rs(4)
xxx=1/NumsPerRow*100
while not rs.eof and i<=rs.pagesize
response.write "<td valign=top align=center width="&xxx&"% >"
response.write " <table width='100%' border=0 align=center cellpadding=0 cellspacing=0 style='border-collapse: collapse'>"
response.write " <tr>"
response.write " <td align=center valign=top>"
response.write " <table border=1 cellspacing=0 cellpadding=4 style='border-collapse: collapse' bordercolor='#E4E4E4'>"
response.write " <tr><td align=center><a href=Product_Detail.asp?id="&id&"><img border=0 src=UPloadpic/"&Product_info_PicS&" onload='loaded(this,"&root_option_WidthSPic&","&root_option_HeighSPic&")' /></a></td></tr>"
response.write " </table>"
response.write " <a href=Product_Detail.asp?id="&id&">"&Product_info_Name&"</a><br />"
response.write " 市場價：￥"&formatnumber(Product_info_PriceM,2,-1)&"<br>"
response.write " 網站價：<b><font color=#FF6600>￥"&FormatNumber(Product_info_PriceS,2,-1)&"</font></b>"
response.write " </td>"
response.write " </tr>"
response.write " </table>"
response.write "</td>"
if i mod NumsPerRow = 0 then
response.write "</tr>"
end if
rs.movenext
i=i+1
wend
call PageControl(iCount,maxpage,page)
response.write "</table>"
end if
else
response.write "參數錯誤"
end if
rs.close
set rs=nothing
end sub
'***********************************************
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -