<!--#include file="setup.asp" -->
<!--#include file="check.asp"-->
<!--#include file="include/collection.asp"-->
<%
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewCloud Site Manager System Version 2.0.0
' 文件名称：admin_collect.asp
' 更新日期：2004-12-20
' 官方网站：新云网络(www.newasp.net) QQ：94022511
'=====================================================================
' Copyright 2002-2005 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Server.ScriptTimeout = 99999
Dim NewCloud
Set NewCloud = New Collection_Cls
NewCloud.DataPath = ChkMapPath(DBPath)
NewCloud.Timeout = "1000"
NewCloud.ChannelPath = Newasp.InstallDir & Newasp.ChannelDir
NewCloud.ArticleCollect
Set NewCloud = Nothing
CloseConn
%>