📄 sub.asp
字号:
'*********************************************************
'*************************************************************************************************
' 目的： 按商品特性-显示商品列表
' 输入： flag,NumsPerPage,NumsPerRow
' 说明： flag:商品特性(1=新 2=荐 3=特); NumsPerPage:每页记录条数; NumsPerRow:每行显示的商品数量;
'*************************************************************************************************
Sub prod_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,prod_info_Name,prod_info_PriceM,prod_info_PriceS,prod_info_PicS from prod_info where prod_info_OnOff=0 and instr(prod_info_flag,1) order by id desc"
case 2
sql="select id,prod_info_Name,prod_info_PriceM,prod_info_PriceS,prod_info_PicS from prod_info where prod_info_OnOff=0 and instr(prod_info_flag,2) order by id desc"
case 3
sql="select id,prod_info_Name,prod_info_PriceM,prod_info_PriceS,prod_info_PicS from prod_info where prod_info_OnOff=0 and instr(prod_info_flag,3) order by id desc"
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 prod_info_Name =rs(1)
set prod_info_PriceM =rs(2)
set prod_info_PriceS =rs(3)
set prod_info_PicS =rs(4)
xxx=1/NumsPerRow*100
while not rs.eof and i<=rs.pagesize
response.write " <td align=center width="&xxx&"% >"&_
" <table width='100%' border=0 align=center cellpadding=0 cellspacing=0 style='border-collapse: collapse'>"&_
" <tr>"&_
" <td align=center valign=top>"&_
" <a href=prod_Detail.asp?id="&id&"><img border=0 src=UPloadpic/"&prod_info_PicS&" onload='loaded(this,"&root_option_WidthSPic&","&root_option_HeighSPic&")' /></a><br>"&_
" <a href=prod_Detail.asp?id="&id&">"&prod_info_Name&"</a><br />"&_
" 市场价：￥"&formatnumber(prod_info_PriceM,2,-1)&"<br>"&_
" 网站价：<b><font color=#FF6600>￥"&FormatNumber(prod_info_PriceS,2,-1)&"</font></b>"&_
" <br><a href=cart_add.asp?id="&id&" target=_blank><img src=images/icon_listcart.jpg border=0></a> <a href=prod_detail.asp?id="&id&" target=_blank><img src=images/icon_listDetail.jpg border=0></a>"&_
" </td>"&_
" </tr>"&_
" </table>"&_
" </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 prod_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,prod_info_Name,prod_info_PriceM,prod_info_PriceS,prod_info_PicS from prod_info where prod_info_OnOff=0 "&Search&" order by id desc"
else
sql="select id,prod_info_Name,prod_info_PriceM,prod_info_PriceS,prod_info_PicS from prod_info where prod_info_OnOff=0 order by id desc"
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 prod_info_Name =rs(1)
set prod_info_PriceM =rs(2)
set prod_info_PriceS =rs(3)
set prod_info_PicS =rs(4)
xxx=1/NumsPerRow*100
while not rs.eof and i<=rs.pagesize
response.write " <td align=center width="&xxx&"% >"&_
" <table width='100%' border=0 align=center cellpadding=0 cellspacing=0 style='border-collapse: collapse'>"&_
" <tr>"&_
" <td align=center valign=top>"&_
" <a href=prod_Detail.asp?id="&id&"><img border=0 src=UPloadpic/"&prod_info_PicS&" onload='loaded(this,"&root_option_WidthSPic&","&root_option_HeighSPic&")' /></a><br>"&_
" <a href=prod_Detail.asp?id="&id&">"&prod_info_Name&"</a><br />"&_
" 市场价：￥"&formatnumber(prod_info_PriceM,2,-1)&"<br>"&_
" 网站价：<b><font color=#FF6600>￥"&FormatNumber(prod_info_PriceS,2,-1)&"</font></b>"&_
" <br><a href=cart_add.asp?id="&id&" target=_blank><img src=images/icon_listcart.jpg border=0></a> <a href=prod_detail.asp?id="&id&" target=_blank><img src=images/icon_listDetail.jpg border=0></a>"&_
" </td>"&_
" </tr>"&_
" </table>"&_
" </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 + -