www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/adminhtry/admin_makeflash.asp
<!--#include file="setup.asp"--> <!--#include file="check.asp"--> <!--#include file="../inc/cls_public.asp"--> <!--#include file="../inc/FlashChannel.asp"--> <% '===================================================================== ' 软件名称:新云网站管理系统 ' 当前版本:NewAsp Site Management System Version 3.0 ' 文件名称:admin_makeflash.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 flashid,sortid,showid,indexid ChannelID = Newasp.ChkNumeric(Request("ChannelID")) If ChannelID < 5 Then ChannelID = 5 flashid = Newasp.ChkNumeric(Request("flashid")) sortid = Newasp.ChkNumeric(Request("sortid")) showid = Newasp.ChkNumeric(Request("showid")) indexid = Newasp.ChkNumeric(Request("indexid")) NewCloud.Channel = ChannelID NewCloud.htmlmark = 1 NewCloud.MainChannel NewCloud.ShowFlush = showid If indexid > 0 Then NewCloud.CreateFlashIndex End If If flashid > 0 Then NewCloud.LoadFlashInfo(flashid) End If Set NewCloud = Nothing CloseConn %>