copyright.asp

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

<%
dim copyTitle
dim copyPro,copyquery
dim copy_kkt,copy_j

'ClassTitle
copyTitle = shop.connectXml(XML,"/language/copy")
	
'copyPro
copyquery = "Select LinkName,LinkUrl,linkPic,linkType from link order by orderid,linkID desc"
copyPro = shop.DBClass(copyquery)

set copy_kkt = new kktTemplate 

copy_kkt.set_file "hndKktTemp", "kktTemplate/copyright.dwt"
copy_kkt.set_block "hndKktTemp", "w_link", "w"
copy_kkt.set_block "hndKktTemp", "p_link", "p"
copy_kkt.set_var "copyTitle0", copyTitle(0), false 

for copy_j = 0 to UBound(copyPro,2)
	if copyPro(3,copy_j) = 1 then
		copy_kkt.set_var "w_url", copyPro(1,copy_j), false
		copy_kkt.set_var "w_name", copyPro(0,copy_j), false	
		copy_kkt.parse "w", "w_link", true
	end if
next

for copy_j = 0 to UBound(copyPro,2)
	if copyPro(3,copy_j) = 0 then
		copy_kkt.set_var "p_url", copyPro(1,copy_j), false
		copy_kkt.set_var "p_name", copyPro(2,copy_j), false	
		copy_kkt.parse "p", "p_link", true
	end if	
next

copy_kkt.parse "out", "hndKktTemp", false      				
copy_kkt.p "out"                              			
set copy_kkt = nothing              			
%>
<!--#include file="../floatadv.asp"-->