<!--#include file="../inc/config.asp" -->
<!--#include file="../inc/conn.asp" -->
<!--#include file="inc/function.asp" -->
<!--#include file="inc/Session.asp" -->
<!--#include file="inc/createfile.asp"-->
<!-- #include file="inc/checkrole.asp" -->
<%
Server.ScriptTimeout = 999999
'''''''''''''''''''''''''''''''''''''''''''''''
call checkPrevilege(Session("Name"),"p05")
'''''''''''''''''''''''''''''''''''''''''''''''
dim classid,BeginTime,classname,ischannel
BeginTime=Timer
if(request.QueryString("classid")<>"") then
	classid=Cint(request("classid"))
else
	classid=0
end if
if(request("delays")<>"") then
	delays=Cint(request("delays"))
else
	delays=1
end if
Set rs = Server.CreateObject("adodb.recordset")
rs.open "select id,title,flag from catalogs where id>"&classid&" order by id asc",conn,3,1
if not rs.eof then
	classname=rs("title")
	classid=rs("id")
	ischannel=rs("flag")
	rs.close
	set rs=nothing
	response.Write("<meta http-equiv=""refresh"" content="""&delays&";URL=?delays="&delays&"&classid="&classid&""" />")
	if(ischannel=true) then'如果是频道
		call CreateCatalogHtml(classid)
	else
		call CreateHtml(classid,NewsNumPerPage)
	end if
else
	rs.close
	set rs=nothing
end if

call connclose()

response.Write("成功发布栏目>>"&classname&"<<!<br>")
response.Write("<br><br><br>执行时间"&CStr(FormatNumber((Timer-BeginTime)*1000,2))& "毫秒")
%>