left_help.asp

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

<%
dim lefthelpTitle
dim lefthelpPro,lefthelpquery
dim lefthelp_kkt,lefthelp_j

'ClassTitle
lefthelpTitle = shop.connectXml(XML,"/language/lefthelp")
	
'ProClass
lefthelpquery = "Select NewsID,NewsTitle from News where NewsType = 1 order by orderid,NewsID"
lefthelpPro = shop.DBClass(lefthelpquery)

set lefthelp_kkt = new kktTemplate 

lefthelp_kkt.set_file "hndKktTemp", "kktTemplate/left_help.dwt"
lefthelp_kkt.set_block "hndKktTemp", "lefthelplist", "a"
lefthelp_kkt.set_var "leftTitle", lefthelpTitle(0), false 

for lefthelp_j = 0 to UBound(lefthelpPro,2)
	lefthelp_kkt.set_var "lefthelpID", lefthelpPro(0,lefthelp_j), false
	lefthelp_kkt.set_var "lefthelpTitle", lefthelpPro(1,lefthelp_j), false	
	lefthelp_kkt.parse "a", "lefthelplist", true
next

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