请教一个关于判断的问题2118430
帮朋友修改一个程序,遇到个问题,本人也是懂个皮毛,所以请大家帮我看看
我是想实现一个商城系统中,假如商品数量是0,就提示缺货,假如价格不确定或0的话就提示价格待定
代码如下:
sub ProListByFlag(flag,p_nums)
if IsNumeric(flag)=false then
check="false"
end if
if IsNumeric(p_nums)=false then
check="false"
end if
if check<>"false" then
response.write "<table border=1 width=100% cellspacing=0 cellpadding=2 style=border-collapse: collapse bordercolor=#E8E8E8><tr>"
set rs=server.CreateObject("adodb.recordset")
rs.open "select id,sid,p_name,p_cmoney,p_mmoney,small_pic from yqj_product where issale=1 and InStr(1,flag,"&flag&") order by addtime desc",conn,1,1
if rs.eof then
response.write "<tr><td colspan=3>暂时还没有任何相关信息</td></tr>"
else
rs.PageSize =20 '每页记录条数
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
while not rs.eof and i<=rs.pagesize+1
set id=rs("id")
set sid=rs("sid")
set p_name=rs("p_name")
set p_cmoney=rs("p_cmoney")
set p_mmoney=rs("p_mmoney")
set small_pic=rs("small_pic")
sql="select txt_small_class from small_class where id="&sid
set rs1=conn.execute (sql)
txt_small_class=rs1("txt_small_class")
rs1.close
set rs1=nothing
response.write "<td width='33%'>"
response.write " <table border=0 width='100%' cellspacing= style='border-collapse: collapse'>"
response.write " <tr>"
response.write " <td rowspan=4 align=center><a href=ProDetail.asp?id="&id&"><img border=0 src=upimg/"&small_pic&" width=75 height=75></a></td>"
response.write " <td><a href=ProDetail.asp?id="&id&">"&txt_small_class&" "&p_name&"</a></td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td><font color=#FF0000>会员价:"&formatnumber(p_mmoney,0)&"元</font></td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td><a href=buy.asp?id="&id&"><img border=0 src=images/add.gif width=22 height=22 align=absmiddle>购物车</a></td>"
response.write " </tr>"
response.write " </table>"
response.write "</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>")
end if
rs.close
set rs=nothing
response.write "</table>"
end if
end sub