admin_makeflash.asp

采用的是新云内核

<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/cls_public.asp"-->
<!--#include file="../inc/FlashChannel.asp"-->
<%'=====================================================================
' 网站名称：黑客世界
' 当前版本：NewCloud Site Management System Version 2.1
' 文件名称：admin_account.asp
' 更新日期：2008-05-01
' 官方网站：黑客世界【www.skycap.cn】QQ：19901451
'=====================================================================
' Copyright 2008-2010 skycap.cn- All Rights Reserved.
' skycap.cn is a trademark of skycap.cn
'=====================================================================
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.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
%>