zuixin.asp

来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 52 行

<%
dim zuixinTitle,zuixin_alt_info
dim zuixinPro,zuixinquery
dim zuixin_kkt,zuixin_j

'ClassTitle
zuixinTitle = shop.connectXml(XML,"/language/zuixin")
	
'ProClass
zuixinquery = "Select top "&config(16,0)&" ProductID,ProductName,ProductPrice,ProductPrice1,ProductPic,ProductShortContent from Product where ProductXinpin = 1 order by OrderID,ProductID desc"
zuixinPro = shop.DBClass(zuixinquery)

set zuixin_kkt = new kktTemplate 

'判断支付方式
'支付宝
if config(33,0) = 0 then
	zuixin_kkt.set_var "zhifu0", "<img src='images/icon_alipay.gif' width='16' height='16' border='0' alt='{altinfo2}' />", false 
end if
'网银支付
if config(34,0) = 0 then
	zuixin_kkt.set_var "zhifu1", "<img src='images/icon_chinabank.gif' width='16' height='16' border='0' alt='{altinfo3}' />", false 
end if

zuixin_kkt.set_file "hndKktTemp", "kktTemplate/zuixin.dwt"
zuixin_kkt.set_block "hndKktTemp", "zuixinProList", "a"
zuixin_kkt.set_var "hotTitle", hotTitle(0), false 
zuixin_kkt.set_var "url", config(1,0), false 

zuixin_alt_info = shop.connectXml(XML,"/language/alt")  	
for zuixin_j = 0 to 3
	zuixin_kkt.set_var "altinfo"&zuixin_j, zuixin_alt_info(zuixin_j), false 
next

for zuixin_j = 0 to UBound(zuixinPro,2)
	zuixin_kkt.set_var "ProductID", zuixinPro(0,zuixin_j), false
	zuixin_kkt.set_var "ProductName", left(zuixinPro(1,zuixin_j),16), false	
	zuixin_kkt.set_var "ProductPrice", zuixinPro(2,zuixin_j), false	
	zuixin_kkt.set_var "ProductPrice1", zuixinPro(3,zuixin_j), false	
	zuixin_kkt.set_var "ProductPic", zuixinPro(4,zuixin_j), false	
	zuixin_kkt.set_var "ProductShortContent", zuixinPro(5,zuixin_j), false	
	zuixin_kkt.parse "a", "zuixinProList", true
next

for zuixin_j = 0 to UBound(zuixinTitle)
	zuixin_kkt.set_var "zuixinTitle"&zuixin_j, zuixinTitle(zuixin_j), false
next

zuixin_kkt.parse "out", "hndKktTemp", false      				
zuixin_kkt.p "out"                              			
set zuixin_kkt = nothing              			
%>