help.asp

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

<%
dim ID,IDD,helpTitle
dim helpPro,helpProTitle,helpquery
dim help_kkt,help_j
dim help_D_query,help_D_Pro,help_D_j

ID = shop.sqlcheck(Request.QueryString("ID"))
IDD = shop.sqlcheck(Request.QueryString("IDD"))
	
'ProClass
if IDD <> "" then
	helpquery = "Select NewsContent,NewsTitle,NewsID from News where NewsType = 4 and NewsID = "&IDD&""
elseif ID <> "" then
	helpquery = "Select NewsContent,NewsTitle,NewsID from News where NewsType = 1 and NewsID = "&ID&""
else
	helpquery = "Select NewsContent,NewsTitle,NewsID from News where NewsType = 1 and NewsTitle = '常见问题'"
end if

helpPro = shop.DBClass(helpquery)

set help_kkt = new kktTemplate 

help_kkt.set_file "hndKktTemp", "kktTemplate/help.dwt"

if ArrayNum <> -1 then
	if helpPro(1,0) = "常见问题" then
		help_kkt.set_var "helpID", helpPro(2,0), false 
		help_kkt.set_block "hndKktTemp", "helplist", "a"
		
		help_D_query = "Select NewsID,NewsTitle from News where NewsType = 4 order by orderid,NewsID desc"
		help_D_Pro = shop.DBClass(help_D_query)
		
		for help_D_j = 0 to UBound(help_D_Pro,2)
			help_kkt.set_var "helplistID", help_D_Pro(0,help_D_j), false
			help_kkt.set_var "helplistTitle", help_D_Pro(1,help_D_j), false	
			help_kkt.parse "a", "helplist", true
		next
		
		if IDD <> "" then
			help_kkt.set_var "helpDetail", helpPro(0,0), false 
			help_kkt.set_var "helpTitle", helpPro(1,0), false 
		else
			help_kkt.set_var "helpTitle", helpPro(1,0), false 
		end if
	else
		help_kkt.set_var "helpDetail", helpPro(0,0), false 
		help_kkt.set_var "helpTitle", helpPro(1,0), false 
	end if
else
	Response.Write("该帮助信息不存在")
	Response.End()
end if

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