www.gusucode.com > 凡人网络购物系统 2008源码程序 > IncAsp/index_show.asp

    <%
function showindex(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=""hot.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 from venshop_hw 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_ins.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>&nbsp;本站支持以下支付方式:</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
%>