newsmanage_inc.asp

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

<%
	call CheckType(4)

	dim i,j,rs,PageNum,PageEnd,DataName
	dim news
	i=0
	
	PageNum=20 	
	DataName="条新闻"
	
	set rs = conn.execute("select newsID,newsTitle,newsDate from news where NewsType = 0 order by orderID,newsID desc")
	if not rs.eof then
		news = rs.getrows
		i = ubound(news,2)
		if not isnumeric(i) then
			i = 1
		end if
	else
		i = -1
	end if
%>