<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Response.Buffer = True 
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache"
Admin_header
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewCloud Site Management System Version 1.0.1
' 文件名称：Admin_Register.asp
' 更新日期：2005-1-20
' 官方网站：新云网络(www.newasp.net) QQ：94022511
'=====================================================================
' Copyright 2002-2005 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
If Not ChkAdmin("999") Then
	Server.Transfer ("showerr.asp")
	Response.End
End If
Dim MyNewCloud
On Error Resume Next
Set MyNewCloud = CreateObject("Gatherer.clsManager")
If Err Then
	Response.Write "<br /><br /><br /><div align=""center"" style=""font-size:18px;color:red"">非常遗憾，您的服务器还没有安装新云的组件，不能注册本系统！</div>"
	Err.Clear
	Set MyNewCloud = Nothing
	Response.End
End If
MyNewCloud.DBConnstr = Connstr
MyNewCloud.SqlDataBase = IsSqlDataBase
MyNewCloud.ShowRegister
Set MyNewCloud = Nothing
Admin_footer
CloseConn
%>
