hot.asp

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

<%
dim hotTitle
dim hotPro,hotquery
dim hot_kkt,hot_j

'ClassTitle
hotTitle = shop.connectXml(XML,"/language/hot")
	
'ProClass
hotquery = "Select top 10 ProductID,ProductName,ProductPrice1 from Product order by ProductHits desc,ProductID desc"
hotPro = shop.DBClass(hotquery)

set hot_kkt = new kktTemplate 

hot_kkt.set_file "hndKktTemp", "kktTemplate/hot.dwt"
hot_kkt.set_block "hndKktTemp", "hotProList", "a"
hot_kkt.set_var "hotTitle0", hotTitle(0), false 
hot_kkt.set_var "hotTitle1", hotTitle(1), false 

for hot_j = 0 to UBound(hotPro,2)
	hot_kkt.set_var "ProductID", hotPro(0,hot_j), false
	hot_kkt.set_var "ProductName", hotPro(1,hot_j), false	
	hot_kkt.set_var "ProductPrice", hotPro(2,hot_j), false	
	hot_kkt.parse "a", "hotProList", true
next

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