www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/adminhtry/admin_makesoft.asp

    <!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/cls_public.asp"-->
<!--#include file="../inc/SoftChannel.asp"-->
<%
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewAsp Site Management System Version 3.0
' 文件名称：admin_makesoft.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 softid,sortid,showid,indexid
ChannelID = Newasp.ChkNumeric(Request("ChannelID"))
If ChannelID < 2 Then ChannelID = 2
softid = Newasp.ChkNumeric(Request("softid"))
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.CreateDownIndex
End If
If softid > 0 Then
	NewCloud.ReadSoftIntro(softid)
End If
Set NewCloud = Nothing
CloseConn
%>