www.gusucode.com > 运动用品商城网站系统源代码程序 > IncAsp/index_showjf.asp
<% function jifen(classn,stype,sqla,sqlo,count) select case stype case "tjindex" sname="推荐产品" case "tejia" sname="积分产品" case "hot" sname="热卖产品" end select response.write "<table cellpadding=""0"" cellspacing=""0"" class="""&classn&"_ca""><tr><td class="""&classn&"_ca1""><span class="""&classn&"_caf"">"&sname&"</span></td>" response.write "<td class="""&classn&"_ca2""><a target=""_blank"" href=""hotj.asp?stype="&stype&"""><IMG src=""Skin/"&venshop_skin&"/more.gif"" border=0 align=""absmiddle""></a></td></tr></table>" response.write "<table cellpadding=""0"" cellspacing=""0"" class="""&classn&"_ct""><tr><td align=center><table cellpadding=""0"" cellspacing=""0"" class="""&classn&"_ct1"">" if count="" then count=10 set rs=server.createobject("adodb.recordset") rs.open "select top "&count&" hw_id,hw_pic,hw_name,hw_price1,hw_price2,hw_price3,hw_jifen,hw_jifen3 from venshop_hwj where "&sqla&" and hw_kucun>0 order by "&sqlo&"",conn,1,1 i=0 do while not rs.eof i=i+1 if i>5 then i=1 if i=1 then response.write"<tr>" response.write "<td class="""&classn&"_ct3"" valign=top>"%><!--#include file="index_insj.asp"--><%response.write "</td>" if i=5 then response.write "</tr>" rs.movenext loop rs.close set rs=nothing if i<5 then for st=i+1 to 5 response.write "<td></td>" next response.write "</tr>" end if response.write "</table></td></tr><tr><td class="""&classn&"_ct2""></td></tr></table>" end function Function showpaylogo response.write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""580"" class=cartshow0>" response.write "<tr><td colspan=5 height=20 class=anse> 本站支持以下支付方式:</td></tr><tr>" if pay_tenpayo=1 then response.write "<td align=center width=""20%"" height=40><img border=0 src=Img/pay/logo_tenpay.gif></td>" if pay_zhifubaoo=1 then response.write "<td align=center width=""20%""><img border=0 src=Img/pay/logo_alipay.gif></td>" if pay_cncardo=1 then response.write "<td align=center width=""20%""><img border=0 src=Img/pay/logo_cncard.gif></td>" if pay_ebanko=1 then response.write "<td align=center width=""20%""><img border=0 src=Img/pay/logo_ebank.gif></td>" if pay_paypalo=1 then response.write "<td align=center width=""20%""><img border=0 src=Img/pay/logo_paypal.gif></td>" response.write "</tr></table>" End Function %>