admin_register.asp

来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 41 行

<!--#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
'=====================================================================
' 软件名称：四博CMS网站管理系统 2008 sp3
' 当前版本：NewCloud Site Management System Version 1.0.1
' 文件名称：Admin_Register.asp
' 更新日期：2006-1-20
' 官方网站：新云网络(www.newasp.net) QQ：94022511
'=====================================================================
' Copyright 2003-2007 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
%>