dim tuijianTitle,tuijian_alt_info
dim tuijianPro,tuijianquery
dim tuijian_kkt,tuijian_j
'ClassTitle
tuijianTitle = shop.connectXml(XML,"/language/tuijian")
'ProClass
tuijianquery = "Select top "&config(15,0)&" ProductID,ProductName,ProductPrice,ProductPrice1,ProductPic,ProductShortContent from Product where Producttuijian = 1 order by OrderID,ProductID desc"
tuijianPro = shop.DBClass(tuijianquery)
set tuijian_kkt = new kktTemplate
'判断支付方式
'支付宝
if config(33,0) = 0 then
tuijian_kkt.set_var "zhifu0", "", false
end if
'网银支付
if config(34,0) = 0 then
tuijian_kkt.set_var "zhifu1", "", false
end if
tuijian_kkt.set_file "hndKktTemp", "kktTemplate/tuijian.dwt"
tuijian_kkt.set_block "hndKktTemp", "tuijianProList", "a"
tuijian_kkt.set_var "hotTitle", hotTitle(0), false
tuijian_kkt.set_var "url", config(1,0), false
tuijian_alt_info = shop.connectXml(XML,"/language/alt")
for tuijian_j = 0 to 3
tuijian_kkt.set_var "altinfo"&tuijian_j, tuijian_alt_info(tuijian_j), false
next
for tuijian_j = 0 to UBound(tuijianPro,2)
tuijian_kkt.set_var "ProductID", tuijianPro(0,tuijian_j), false
tuijian_kkt.set_var "ProductName", left(tuijianPro(1,tuijian_j),16), false
tuijian_kkt.set_var "ProductPrice", tuijianPro(2,tuijian_j), false
tuijian_kkt.set_var "ProductPrice1", tuijianPro(3,tuijian_j), false
tuijian_kkt.set_var "ProductPic", tuijianPro(4,tuijian_j), false
tuijian_kkt.set_var "ProductShortContent", tuijianPro(5,tuijian_j), false
tuijian_kkt.parse "a", "tuijianProList", true
next
for tuijian_j = 0 to UBound(tuijianTitle)
tuijian_kkt.set_var "tuijianTitle"&tuijian_j, tuijianTitle(tuijian_j), false
next
tuijian_kkt.parse "out", "hndKktTemp", false
tuijian_kkt.p "out"
set tuijian_kkt = nothing
%>