admin_makenews.asp

来自「一套开源WEB的网站管理系统」· ASP 代码 · 共 38 行

<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/cls_public.asp"-->
<!--#include file="../inc/NewsChannel.asp"-->
<%
'=====================================================================
' 软件名称：创业中国网站管理系统
' 当前版本：599Cn Site Management System Version 2.1
' 文件名称：admin_login.asp
' 更新日期：2004-10-20
'=====================================================================
' 产品咨询：Tel：[phone]，QQ：94022511，Email：[e-mail]
' 程序开发：创业软件开发组
' 论坛支持：创业论坛(http://www.599cn.com)
' 官方网站：创业网络(www.599cn.com)
'=====================================================================
' Copyright 2002-2005 599cn.com - All Rights Reserved.
' newasp is a trademark of www.599cn.com
'=====================================================================
Dim ArticleID,sortid,showid,indexid
ChannelID = Newasp.ChkNumeric(Request("ChannelID"))
If ChannelID < 1 Then ChannelID = 1
ArticleID = Newasp.ChkNumeric(Request("ArticleID"))
sortid = Newasp.ChkNumeric(Request("sortid"))
showid = Newasp.ChkNumeric(Request("showid"))
indexid = Newasp.ChkNumeric(Request("indexid"))
NewCloud.Channel = ChannelID
NewCloud.ChannelMain
NewCloud.ShowFlush = showid
If indexid > 0 Then
	NewCloud.CreateArticleIndex
End If
If ArticleID > 0 Then
	NewCloud.CreateArticleContent(ArticleID)
End If
Set NewCloud = Nothing
CloseConn
%>