news.asp

网店批发系统,很好很强大,很好很强大很好很强大

<%
dim NewsMore
dim newsPro,newsquery,newsClass,newsClassquery,adv,advquery
dim news_kkt,news_j,news_k
dim n_ArrayNum0,n_ArrayNum1,n_ArrayNum2,n_j
dim titlecolor

'ClassTitle
NewsMore = shop.connectXml(XML,"/language/news")

'ProClass
newsquery = "Select newsid,newstitle,n_classid from n_news order by NewsID desc"
newsPro = shop.DBClass(newsquery)
n_ArrayNum0 = ArrayNum

advquery = "Select LinkadsTitle,LinkadsLink,n_classid from LinkAds order by orderID,LinkAdsID desc"
adv = shop.DBClass(advquery)
n_ArrayNum1 = ArrayNum

'newsClass
newsClassquery = "SELECT n_classid,n_classname FROM n_class ORDER BY n_classorderid,n_classid DESC"
newsClass = shop.DBClass(newsClassquery)
n_ArrayNum2 = ArrayNum

set news_kkt = new kktTemplate 

news_kkt.set_file "hndKktTemp", "kktTemplate/news.dwt"
news_kkt.set_block "hndKktTemp", "newsProList", "a"
news_kkt.set_block "hndKktTemp", "newsadv", "c"
news_kkt.set_block "hndKktTemp", "newsList", "b"
news_kkt.set_var "NewsMore", NewsMore(0), false 

if n_ArrayNum2 <> -1 then
	for news_j = 0 to UBound(newsClass,2)
		n_j = 0
		'标题颜色
		titlecolor = 4 + (news_j mod 4)
		news_kkt.set_var "titlecolor", titlecolor, false 
		
		news_kkt.set_var "n_classid", newsClass(0,news_j), false
		news_kkt.set_var "n_classname", newsClass(1,news_j), false
		news_kkt.unset_var "a"
		if n_ArrayNum0 <> -1 then
			for news_k = 0 to UBound(newsPro,2)
				if newsPro(2,news_k) = newsClass(0,news_j) then
					news_kkt.set_var "NewsID", newsPro(0,news_k), false
					news_kkt.set_var "NewsTitle", left(newsPro(1,news_k),12), false	
					news_kkt.parse "a", "newsProList", true
					'限制文章个数
				end if
			next
		end if
		news_kkt.unset_var "c"
		if n_ArrayNum1 <> -1 then
			for news_k = 0 to UBound(adv,2)
				if adv(2,news_k) = newsClass(0,news_j) then
					news_kkt.set_var "advpic", adv(0,news_k), false
					news_kkt.set_var "advlink", adv(1,news_k), false
					news_kkt.parse "c", "newsadv", true
				end if
			next
		end if
		news_kkt.parse "b", "newsList", true
		if news_j = UBound(newsClass,2) then
			news_kkt.unset_var "a"
			news_kkt.unset_var "c"
		end if
	next
end if

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