admin_app.asp

来自「1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛 」· ASP 代码 · 共 46 行

<%
'===================================================================
'= ASP FILENAME	: /admin/admin_app.asp
'= CREATED TIME : Feb,08,2004
'= LAST MODIFIED: Feb,08,2004
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : all manage application
'= Change Log:
'===================================================================
%>

<!-- #include file = "../inc/inc_class_def.asp" -->
<!-- #include file = "../inc/inc_pub_func.asp" -->

<%
Const CONST_PAGE_FILE = "admin/admin_app.asp"
GBL_strHomeURL = "../"

Call AdminCheckExec()

Call CheckPostExist("UptAppSet")

Call UptAppSet()
%>
<%
'=============== FUNCTION BODY BEGIN ===============================
'===================================================================
'= Sub		    : UptAppSet()
'= Time		    : Created At Nov,07,2003
'= Input        : None
'= Output       : None
'= Called by    : SwitchExeFunction()
'= Calls        : None
'= Table        : 
'= Description  : Set the web bulletin content and parameters
'===================================================================
Sub UptAppSet()

	Application(GBL_strCookieURL & "APP_ConfigLoaded") = ""
	Response.Redirect GBL_strHomeURL & "setup/config.asp?action=UptAppSet"

End Sub
'================ End of Sub UptAppSet() ===========================
'=============== FUNCTION BODY END =================================
%>