<%
function showindex(stype,sqla,sqlo,count)
if count>0 then
select case stype
case "tjindex"
sname="Recommended"
case "tejia"
sname="Special Offer"
case "hot"
sname="Hot Selling Goods"
case "new"
sname="New Arrivals"
end select
response.write "<table cellpadding=""0"" cellspacing=""0"" class=""tj_ca""><tr><td class=""tj_ca1""><span class=""tj_caf"">"&sname&"</span></td>"
response.write "<td class=""tj_ca2""><a target=""_blank"" href=""hot.asp?stype="&stype&"""><IMG src=""Skin/"&WrzcNet_skin&"/more.gif"" border=0 align=""absmiddle""></a></td></tr></table>"
response.write "<table cellpadding=""0"" cellspacing=""0"" class=""tj_ct""><tr><td align=center><table cellpadding=""0"" cellspacing=""0"" class=""tj_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 WrzcNet_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>indexhang then i=1
if i=1 then response.write "<tr>"
response.write "<td class=""tj_ct3"" valign=top>"%><!--#include file="index_ins.asp"--><%response.write "</td>"
if i=indexhang then response.write "</tr>"
rs.movenext
loop
rs.close
set rs=nothing
if i<indexhang then
for st=i+1 to indexhang
response.write "<td></td>"
next
response.write "</tr>"
end if
response.write "</table></td></tr><tr><td class=""tj_ct2""></td></tr></table>"
end if
end function
Function showpaylogo
if int(pay_tenpayo+pay_zhifubaoo+pay_cncardo+pay_ebanko+pay_paypalo+pay_99billo)>0 then
response.write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""580"" class=cartshow0>"
response.write "<tr><td colspan=6 height=20 class=anse>&nbsp;Payment:</td></tr><tr>"
if pay_tenpayo=1 then response.write "<td align=center height=40><img border=0 src=Img/pay/logo_tenpay.gif></td>"
if pay_zhifubaoo>0 then response.write "<td align=center height=40><img border=0 src=Img/pay/logo_alipay.gif></td>"
if pay_ebanko=1 then response.write "<td align=center height=40><img border=0 src=Img/pay/logo_ebank.gif></td>"
if pay_paypalo=1 then response.write "<td align=center height=40><img border=0 src=Img/pay/logo_paypal.gif></td>"
if pay_99billo=1 then response.write "<td align=center height=40><img border=0 src=Img/pay/logo_99bill.jpg></td>"
if pay_cncardo=1 then response.write "<td align=center height=40><img border=0 src=Img/pay/logo_cncard.gif></td>"
response.write "</tr></table>"
end if
End Function
%>