www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/adminhtry/admin_makenews.asp
<!--#include file="setup.asp"--> <!--#include file="check.asp"--> <!--#include file="../inc/cls_public.asp"--> <!--#include file="../inc/NewsChannel.asp"--> <% '===================================================================== ' 软件名称:新云网站管理系统 ' 当前版本:NewAsp Site Management System Version 3.0 ' 文件名称:admin_makenews.asp ' 更新日期:2006-10-20 ' 官方网站:新云网络(www.newasp.net www.newasp.cn) QQ:94022511 '===================================================================== ' Copyright 2003-2007 newasp.net - All Rights Reserved. ' newasp is a trademark of newasp.net '===================================================================== 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.htmlmark = 1 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 %>