'===================================================================
'= ASP FILENAME : /admin/admin_index.asp
'= CREATED TIME : 2006-5-1
'= LAST MODIFIED: 2006-5-1
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION : 后台管理index
'= Change Log:
'===================================================================
%>
'========================================================
'== Action参数设置
'========================================================
'== 页面名
Const CONST_PAGE_FILE = "admin/admin_index.asp"
'== 页面标题/功能
Const CONST_PAGE_TITLE = "管理系统登陆"
'== 功能函数名字空间
Const CONST_ACTION_FUNC = "AdminIndexCtl"
'== 相对根目录路径
GBL_strHomeURL = "../"
'== 页面构造
Call ActionBuild()
'== 在模板中引用的标签变量
Dim TAG_strVerifyCode
'== 请求校验与过滤
Call ActionViewFilterAdmin(CONST_PAGE_FILE,CONST_ACTION_FUNC)
'== 页面析构
Call ActionOver()
%>
'===================================================================
'= Function : LoadPageTpl()
'= Time : Created At 2006-5-4
'= Description : 加载页面模块
'===================================================================
Function LoadPageTpl()
%>
End Function
'===================================================================
'= Function : AdminIndexCtl()
'= Time : Created At Mar,11,2003
'= Input :
'= Output :
'= Description :
'===================================================================
Function AdminIndexCtl()
'== 客户段表单校验生成
Dim objClientChk
Set objClientChk = New classClientChk
TAG_strVerifyCode = objClientChk.ClientDataCheck("theform",arrAdminLoginDataChk)
Set objClientChk = Nothing
End Function
%>
