admin_collected.asp

来自「这是一套基于WEB的网站管理系统」· ASP 代码 · 共 14 行

<!--#include file="setup.asp" -->
<!--#include file="check.asp"-->
<!--#include file="include/collection.asp"-->
<%
Server.ScriptTimeout = 99999
Dim NewCloud
Set NewCloud = New Collection_Cls
NewCloud.DataPath = ChkMapPath(DBPath)
NewCloud.Timeout = "1000"
NewCloud.ChannelPath = Newasp.InstallDir & Newasp.ChannelDir
NewCloud.SoftCollect
Set NewCloud = Nothing
CloseConn
%>