newsdetail.asp

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

<%
dim NewsID,DnewsTitle
dim DnewsPro,Dnewsquery
dim Dnews_kkt,Dnews_j

NewsID = shop.sqlcheck(Request.QueryString("NewsID"))

'ClassTitle
DnewsTitle = shop.connectXml(XML,"/language/Dnews")
	
'ProClass
Dnewsquery = "Select NewsTitle,NewsContent,NewsDate,n_classid from n_news where NewsID = "&NewsID&""
DnewsPro = shop.DBClass(Dnewsquery)

set Dnews_kkt = new kktTemplate 

Dnews_kkt.set_file "hndKktTemp", "kktTemplate/newsDetail.dwt"
Dnews_kkt.set_var "DnewsTitle0", DnewsTitle(0), false 
Dnews_kkt.set_var "DnewsTitle1", DnewsTitle(1), false 
Dnews_kkt.set_var "DnewsTitle2", DnewsTitle(2), false 

if ArrayNum <> -1 then
	Dnews_kkt.set_var "DnewsTitle", DnewsPro(0,0), false 
	Dnews_kkt.set_var "DnewsContent", DnewsPro(1,0), false 
	Dnews_kkt.set_var "listID", DnewsPro(3,0), false 
	Dnews_kkt.set_var "NewsDate", Year(DnewsPro(2,0))&"-"&month(DnewsPro(2,0))&"-"&day(DnewsPro(2,0)), false 
else
	Response.Write("该新闻不存在")
	Response.End()
end if

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