newslist.asp

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

<%
dim newslistTitle,listid
dim newslistPro,newslistquery
dim newslist_kkt,newslist_j
	
newslistTitle = "网站新闻："
listid = shop.sqlcheck(Request.QueryString("id"))	
	
'ProClass
newslistquery = "Select n.NewsID,n.NewsTitle,n.NewsDate,c.n_classname from n_News n INNER JOIN n_class c ON c.n_classid = n.n_classid WHERE n.n_classid = "&listid&" order by n.newsOrderID,n.NewsID desc"
newslistPro = shop.DBClass(newslistquery)

if ArrayNum <> -1 then
	newslistTitle = newslistPro(3,newslist_j)
	set newslist_kkt = new kktTemplate 
	
	newslist_kkt.set_file "hndKktTemp", "kktTemplate/newslist.dwt"
	newslist_kkt.set_var "newslistTitle", newslistTitle, false
	newslist_kkt.set_block "hndKktTemp", "newslistProList", "a"
	
	'定义分页必须数据
	PageNum = 10
	call shop.setPage(PageNum,UBound(newslistPro,2) + 1)

	for newslist_j = 0 to UBound(newslistPro,2)
		newslist_kkt.set_var "NewsID", newslistPro(0,newslist_j), false
		newslist_kkt.set_var "NewsTitle", newslistPro(1,newslist_j), false	
		newslist_kkt.set_var "NewsDate", year(newslistPro(2,newslist_j))&"-"&month(newslistPro(2,newslist_j))&"-"&day(newslistPro(2,newslist_j)), false	
		newslist_kkt.parse "a", "newslistProList", true
	next
else
	Response.Write("该类别不存在")
	Response.End()
end if

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