shopsub.asp

购物系统时尚版.强大的后台文章编辑器的功能

<%
ar1'商品的种类(特价、推荐、最新)
ar2'每排显示的商品数量
ar3'显示的商品数量
ar4'商品排序

sub pro_list(ar1,ar2,ar3,ar4)
if IsNumeric(ar1)=False then
check="false"
end if
if IsNumeric(ar2)=False then
check="false"
end if
if IsNumeric(ar3)=False then
check="false"
end if
if check<>"false" then
arr1=cint(trim(ar1))
arr2=cint(trim(ar2))
arr3=cint(trim(ar3))
arr4=replace(trim(ar4),"'","")
response.write "<table border=0 cellpadding=0>"
response.write "<tr>"
sql="select top "&arr3&" * from yqj_product where issale=1 and InStr(1,flag,"&arr1&") order by "&arr4&" desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then 
response.write "<tr><td class=smallfont valign=top>对不起，没有要找的数据</td></tr>"
response.write "<tr>"
else
i=1
while not rs.eof and i<=ar3
set id=rs("id")
set small_pic=rs("small_pic")
set p_name=rs("p_name")
set p_cmoney=rs("p_cmoney")
set p_mmoney=rs("p_mmoney")
set big_pic=rs("big_pic")


response.write "<td width=110 height=110 valign=top class=smallfont>"
response.write "<a href=product/product_list.asp?id="&id&" target=_blank>"
response.write "<img src=upimg/"&trim(small_pic)&" border=0 width=102 height=102><br></a>"
response.write "<a href=product/product_list.asp?id="&id&" target=_blank class=smallgrayu>"&p_name&"</a>"
response.write "<br>"
response.write "市场价:￥<s><font color=#FF6600>"&formatnumber(p_cmoney,2)&"元</font></s><br>"
response.write "会员价:￥<font color=#FF0000>"&formatnumber(p_mmoney,2)&"元</font><br>"
response.write "节&nbsp; 省:￥"&formatnumber((p_cmoney-p_mmoney),2)&"元<br>"
response.write "<img src=images/cart.gif><a href=buy.asp?id="&id&" class=smallgrayu title=点击购买>加入购物车</a></td>"

if i mod arr2 = 0 then
response.write "</tr>"
end if
rs.movenext
i=i+1
wend
end if
response.write "</table>"
else
response.write "参数错误"
end if
rs.close
set rs=nothing
end sub


sub pro_top(catel,nums,byflag)
'catel 排序字段
'nums 显示的个数
'byflag 排序方式
'exp. pro_top("hitnums",10)
catel=trim(catel)
nums=cint(trim(nums))
byflag=trim(byflag)
sql="select top "&nums&" id,p_name,p_mmoney from yqj_product where issale=1 order by "&catel&" "&byflag
set rs=conn.execute (sql)
ii=1
do while not rs.eof and ii<=nums
set id=rs("id")
set p_name=rs("p_name")
set p_mmoney=rs("p_mmoney")
response.write "&nbsp;<a href=product/product_list.asp?id="&id&" target=_blank class=smallgray>·"&p_name&"</a>&nbsp;<span class=yeborder>￥"&formatnumber(p_mmoney,2)&"</span><br>"
rs.movenext
ii=ii+1
loop
rs.close
set rs=nothing
end sub

sub fav()
sql="Select id,p_name From yqj_product Where id In (" & ProductList & ")"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
response.write "&nbsp;<span class=smallgray>·暂时没有浏览记录</span>"
else
while not rs.eof
response.write "&nbsp;·<a href=product_list.asp?id="&rs("id")&" target=_blank class=smallgray>"&rs("p_name")&"</a><br>"
rs.movenext
wend
rs.close
set rs=nothing
end if
end sub

sub list_promore(bid,nums,p_nums)
if IsNumeric(bid)=false then
check="false"
end if
if IsNumeric(nums)=false then
check="false"
end if
if IsNumeric(p_nums)=false then
check="false"
end if
if check<>"false" then
response.write "<table width=100% border=0 cellpadding=0>"
response.write "<tr>"
sql="select top "&nums&" id,p_name,p_cmoney,p_mmoney,small_pic from yqj_product where issale=1 and bid="&bid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then 
response.write "<tr><td class=smallfont valign=top>对不起，没有要找的数据</td></tr>"
response.write "<tr>"
    else
	rs.PageSize =nums '每页记录条数
			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

end if
i=1
while not rs.eof and i<=rs.pagesize
set id=rs("id")
set small_pic=rs("small_pic")
set p_name=rs("p_name")
set p_cmoney=rs("p_cmoney")
set p_mmoney=rs("p_mmoney")

response.write "<td width=110 height=110 valign=top class=smallfont>"
response.write "<a href=product/product_list.asp?id="&id&" target=_blank>"
response.write "<img src=upimg/"&trim(small_pic)&" border=0 width=102 height=102><br></a>"
response.write "<a href=product/product_list.asp?id="&id&" target=_blank class=smallgrayu>"&p_name&"</a>"
response.write "<br>"
response.write "市场价:￥<s><font color=#FF6600>"&formatnumber(p_cmoney,2)&"元</font></s><br>"
response.write "会员价:￥<font color=#FF0000>"&formatnumber(p_mmoney,2)&"元</font><br>"
response.write "节&nbsp; 省:￥"&formatnumber((p_cmoney-p_mmoney),2)&"元<br>"
response.write "<img src=images/cart.gif><a href=buy.asp?id="&id&" class=smallgrayu title=点击购买>加入购物车</a></td>"

if i mod p_nums = 0 then
response.write "</tr>"
end if
rs.movenext
i=i+1
wend
call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")
response.write "</table>"
else
response.write "参数错误"
end if
rs.close
set rs=nothing
end sub

sub list_small_promore(sid,nums,p_nums)
if IsNumeric(sid)=false then
check="false"
end if
if IsNumeric(nums)=false then
check="false"
end if
if IsNumeric(p_nums)=false then
check="false"
end if
if check<>"false" then
response.write "<table width=100% border=0 cellpadding=0>"
response.write "<tr>"
sql="select top "&nums&" id,p_name,p_cmoney,p_mmoney,small_pic from yqj_product where issale=1 and sid="&sid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then 
response.write "<tr><td class=smallfont valign=top>对不起，没有要找的数据</td></tr>"
response.write "<tr>"
    else
	rs.PageSize =nums '每页记录条数
			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

end if
i=1
while not rs.eof and i<=rs.pagesize
set id=rs("id")
set small_pic=rs("small_pic")
set p_name=rs("p_name")
set p_cmoney=rs("p_cmoney")
set p_mmoney=rs("p_mmoney")

response.write "<td width=110 height=110 valign=top class=smallfont>"
response.write "<a href=product/product_list.asp?id="&id&" target=_blank>"
response.write "<img src=upimg/"&trim(small_pic)&" border=0 width=102 height=102><br></a>"
response.write "<a href=product/product_list.asp?id="&id&" target=_blank class=smallgrayu>"&p_name&"</a>"
response.write "<br>"
response.write "市场价:￥<s><font color=#FF6600>"&formatnumber(p_cmoney,2)&"元</font></s><br>"
response.write "会员价:￥<font color=#FF0000>"&formatnumber(p_mmoney,2)&"元</font><br>"
response.write "节&nbsp; 省:￥"&formatnumber((p_cmoney-p_mmoney),2)&"元<br>"
response.write "<img src=images/cart.gif><a href=buy.asp?id="&id&" class=smallgrayu title=点击购买>加入购物车</a></td>"

if i mod p_nums = 0 then
response.write "</tr>"
end if
rs.movenext
i=i+1
wend
call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")
response.write "</table>"
else
response.write "参数错误"
end if
rs.close
set rs=nothing
end sub

sub p_item(fid,nums,p_nums)
if IsNumeric(fid)=false then
check="false"
end if
if IsNumeric(nums)=false then
check="false"
end if
if IsNumeric(p_nums)=false then
check="false"
end if
if check<>"false" then
response.write "<table width=100% border=0 cellpadding=0>"
response.write "<tr>"
sql="select top "&nums&" id,p_name,p_cmoney,p_mmoney,small_pic from yqj_product where issale=1 and InStr(1,flag,"&fid&") order by addtime desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then 
response.write "<tr><td class=smallfont valign=top>对不起，没有要找的数据</td></tr>"
response.write "<tr>"
    else
	rs.PageSize =nums '每页记录条数
			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

end if
i=1
while not rs.eof and i<=rs.pagesize
set id=rs("id")
set small_pic=rs("small_pic")
set p_name=rs("p_name")
set p_cmoney=rs("p_cmoney")
set p_mmoney=rs("p_mmoney")

response.write "<td width=110 height=110 valign=top class=smallfont align=center>"
response.write "<a href=product/product_list.asp?id="&id&" target=_blank>"
response.write "<img src=upimg/"&trim(small_pic)&" border=0 width=102 height=102><br></a>"
response.write "<a href=product/product_list.asp?id="&id&" target=_blank class=smallgrayu>"&p_name&"</a>"
response.write "<br>"
response.write "市场价:￥<s><font color=#FF6600>"&formatnumber(p_cmoney,2)&"元</font></s><br>"
response.write "会员价:￥<font color=#FF0000>"&formatnumber(p_mmoney,2)&"元</font><br>"
response.write "节&nbsp; 省:￥"&formatnumber((p_cmoney-p_mmoney),2)&"元<br>"
response.write "<img src=images/cart.gif><a href=buy.asp?id="&id&" class=smallgrayu title=点击购买>加入购物车</a></td>"

if i mod p_nums = 0 then
response.write "</tr>"
end if
rs.movenext
i=i+1
wend
call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=left>")
response.write "</table>"
else
response.write "参数错误"
end if
rs.close
set rs=nothing
end sub

sub news()
sql="select id,title,addtime from info_list order by addtime desc"
set rs=conn.execute (sql)
if rs.eof then
response.write "没有任何信息"
else
pk=1
do while not rs.eof and pk<=10
set id=rs("id")
 set title=rs("title")
 set addtime=rs("addtime")
response.write "<td width=275 style=""line-height: 150%"" valign=middle >·<a href=listnews.asp?id="&id&" target=_blank>"&title&"</a><font color=#C0C0C0>&nbsp;("&addtime&")</font></td>"
if pk mod 2=0 then
response.write "</tr>"
end if
rs.movenext
pk=pk+1
loop
end if
rs.close
set rs=nothing
end sub

sub p1_item(fid,nums)
dim arr(7),p,gcolor
if IsNumeric(fid)=false then
check="false"
end if
if IsNumeric(nums)=false then
check="false"
end if
if check<>"false" then
response.write "<tr>"
sql="select id,p_name,p_mmoney,small_pic,p_cmoney,p_mmoney,addtime,hitnums from yqj_product where issale=1 and InStr(1,flag,"&fid&") order by addtime desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then 
response.write "<tr><td colspan=5>对不起，没有要找的数据</td></tr>"
response.write "<tr>"
    else
	rs.PageSize =nums '每页记录条数
			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

end if
i=1
while not rs.eof and i<=rs.pagesize
for p=0 to 7
set arr(p)=rs(p)
next

if i mod 2= 0 then
gcolor="#F5F5F5"
else
gcolor="FFFFFF"
end if
response.write "<tr>"
response.write "<td valign=middle width=90 height=68 bgcolor="&gcolor&" align=center>"
response.write "<a href=product/product_list.asp?id="&arr(0)&" target=_blank style=""border: 1px solid #C0C0C0; padding-left: 0px; padding-right: 0px; padding-top: 0px; padding-bottom: 0px""><img border=0 src=upimg/"&arr(3)&" width=75 height=65></a>"
response.write "</td>"
response.write "<td valign=top bgcolor="&gcolor&" width=275 height=68 style=""word-break:break-all"">"
response.write "<a href=product/product_list.asp?id="&arr(0)&">"&arr(1)&"</a><br>"
response.write "市场价：￥<s><font color=#FF6600>"&arr(4)&"元</font></s>&nbsp;&nbsp;&nbsp;&nbsp;会员价：￥<font color=#FF0000>"&arr(5)&"元</font><br>"
response.write "上架时间："&arr(6)&"<br>"
response.write "浏览次数："&arr(7)&"次"
response.write "</td>"
response.write "<td valign=middle bgcolor="&gcolor&" width=60 height=68 align=center class=f14>￥"&arr(2)&"</td>"
response.write "<td valign=middle bgcolor="&gcolor&" width=63 height=68 align=center>"
response.write "<a href=product/product_list.asp?id="&arr(0)&" target=_blank>查看详情</a></td>"
response.write "<td valign=middle bgcolor="&gcolor&" width=50 height=68>"
response.write "<img src=images/che.gif align=absmiddle border=0><a href=buy.asp?id="&arr(0)&">购买</a></td>"
response.write "</tr>"

rs.movenext
i=i+1
wend
call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")
else
response.write "参数错误"
end if
rs.close
set rs=nothing
end sub
%>