admin_access.asp

1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛 小巧而实用的论坛,支持UBB标签,快速回复,帖子搜索,灵活的将帖子置顶,设置精华 3] 校友相册 相片上传[方便上传

<%
'===================================================================
'= ASP FILENAME	: /admin/admin_access.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  : class base list
'= Change Log:
'===================================================================
%>

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

<!-- #include file = "../inc/inc_db_func.asp" -->
<!-- #include file = "../class/class_db.asp" -->

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

<!-- #include file = "../class/class_html_form.asp" -->
<!-- #include file = "../class/class_html_table.asp" -->
<!-- #include file = "../main_func.asp" -->

<!-- #include file = "./admin_func.asp" -->

<!-- #include file = "../js/comm_func.js" -->

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

Call AdminCheckExec()

Dim clsPubDB
Set clsPubDB = New classDBOprt

Call SiteHead("用户管理")

Call CheckPostExist("FormAccessAdmin,ShowAccessAdmin,FormSaveAccessAdmin,DelAccessAdmin,MdyAccessAdmin,MdySaveAccessAdmin")

Call ExeSysAdminQst()


Set clsPubDB = Nothing

%>
<%
'=============== FUNCTION BODY BEGIN ===============================
'===================================================================
'= Sub         : DelAccessAdmin()
'= Time		   : Created At Jun,27,2004
'= Input       : None

'= Called by   : 
'= Calls       : 
'= Description : del access ip 
'===================================================================
Sub DelAccessAdmin()
	
	GetRSId = Trim(Request.QueryString("AccessId"))
	If Not IsNumeric(GetRSId) Then
		Call ResultExecute(E_USER_PUB,"access id错误","ES_ERR")
	End If

	clsPubDB.Clear()
	clsPubDB.AllSQL = "DELETE FROM CLASS_ACCESS WHERE ACCESS_ID=" & GetRSId
	clsPubDB.SQLExecute()
	Call ResultExecute(clsPubDB.intErrNum,"del access","ES_ERR")

	Response.Write"&nbsp;删除成功<br>"

	Response.Write "&nbsp;<a href='javascript:history.go(-1)'>返回</a>"

End Sub
'=============== End of Sub DelAccessAdmin() =======================
'===================================================================
'= Sub         : MdyAccessAdmin()
'= Time		   : Created At Jun,27,2004
'= Input       : None

'= Called by   : 
'= Calls       : 
'= Description : access ip 
'===================================================================
Sub MdyAccessAdmin()

	Dim clsForm			'== Class of form
	Dim strHtmlCode

	GetRSId = Trim(Request.QueryString("AccessId"))
	If Not IsNumeric(GetRSId) Then
		Call ResultExecute(E_USER_PUB,"access id错误","ES_ERR")
	End If

	clsPubDB.Clear()
	clsPubDB.AllSQL = "SELECT * FROM CLASS_ACCESS WHERE ACCESS_ID=" & GetRSId
	clsPubDB.SQLRSExecute()
	Call ResultExecute(clsPubDB.intErrNum,"mdy access","ES_ERR")
	
	If clsPubDB.intRSNum <= 0 Then
		Call ResultExecute(E_USER_PUB,"找不到该记录","ES_ERR")
		Exit Sub
	End If

	Set clsForm = New classForm
	clsForm.Action = "./admin_access.asp?action=MdySaveAccessAdmin&AccessId=" & GetRSId

	clsForm.Id = "frmMdyAccessAdmin"
	clsForm.Name = "frmMdyAccessAdmin"
	clsForm.OnSubmit = "return CheckMdyAccessAdmin()"
	clsForm.ColumnScale = "30%"
	clsForm.MakeForm()
	clsForm.MakeTable "0","3","1","center","98%",GBL_cssFormTable

	clsForm.AddTr GBL_cssFormTitleTr
	clsForm.AddTitle "访问控制编辑",GBL_cssFormTitleTd

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*类型",GBL_cssFormTdOne,GBL_cssFormTdTwo
	clsForm.AddSelect "selActionType",""
	clsForm.AddOption "0","用户ID",clsPubDB.objPubRS("ACCESS_ACTION_TYPE")
	clsForm.AddOption "1","IP段(完全)",clsPubDB.objPubRS("ACCESS_ACTION_TYPE")
	clsForm.AddOption "2","IP段(D)",clsPubDB.objPubRS("ACCESS_ACTION_TYPE")

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*IP/用户",GBL_cssFormTdOne,GBL_cssFormTdTwo
	clsForm.AddText "iptContent","40","40"
	clsForm.AddValue clsPubDB.objPubRS("ACCESS_CONTENT")

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*Access类型",GBL_cssFormTdOne,GBL_cssFormTdTwo
	clsForm.AddSelect "selType",""
	clsForm.AddOption "0","禁止数据库操作",clsPubDB.objPubRS("ACCESS_TYPE")
	clsForm.AddOption "1","禁止用户登陆",clsPubDB.objPubRS("ACCESS_TYPE")

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "备注",GBL_cssFormTdOne,GBL_cssFormTdTwo
	clsForm.AddText "iptDesc","40","40"
	clsForm.AddValue clsPubDB.objPubRS("ACCESS_DESC")

	clsForm.AddTr GBL_cssFormSubTr
	clsForm.AddSubTd GBL_cssFormSubTd
	clsForm.AddSub "subfrmMdyAccess","提 交","submit"
	clsForm.AddSub "rstfrmMdyAccess","重 写","reset"

	clsForm.OutPutForm()
	Set clsForm = Nothing

End Sub
'============== End of Function MdyAccessAdmin() ======================
'===================================================================
'= Sub         : FormAccessAdmin()
'= Time		   : Created At Jun,27,2004
'= Input       : None

'= Called by   : 
'= Calls       : 
'= Description : access ip 
'===================================================================
Sub FormAccessAdmin()

	Dim clsForm			'== Class of form
	Dim strHtmlCode

	Set clsForm = New classForm
	clsForm.Action = "./admin_access.asp?action=FormSaveAccessAdmin"

	clsForm.Id = "frmAccessAdmin"
	clsForm.Name = "frmAccessAdmin"
	clsForm.OnSubmit = "return CheckAccessAdmin()"
	clsForm.ColumnScale = "30%"
	clsForm.MakeForm()
	clsForm.MakeTable "0","3","1","center","98%",GBL_cssFormTable

	clsForm.AddTr GBL_cssFormTitleTr
	clsForm.AddTitle "访问控制",GBL_cssFormTitleTd

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*类型",GBL_cssFormTdOne,GBL_cssFormTdTwo
	clsForm.AddSelect "selActionType",""
	clsForm.AddOption "0","用户ID",""
	clsForm.AddOption "1","IP段(完全)",""
	clsForm.AddOption "2","IP段(D)",""


	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*IP/用户",GBL_cssFormTdOne,GBL_cssFormTdTwo
	clsForm.AddText "iptContent","40","40"

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*Access类型",GBL_cssFormTdOne,GBL_cssFormTdTwo
	clsForm.AddSelect "selType",""
	clsForm.AddOption "0","禁止写数据库操作",""
	clsForm.AddOption "1","禁止用户登陆",""


	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "备注",GBL_cssFormTdOne,GBL_cssFormTdTwo
	clsForm.AddText "iptDesc","40","40"

	clsForm.AddTr GBL_cssFormSubTr
	clsForm.AddSubTd GBL_cssFormSubTd
	clsForm.AddSub "subfrmAccessAdmin","提 交","submit"
	clsForm.AddSub "rstfrmAccessAdmin","重 写","reset"

	clsForm.OutPutForm()
	Set clsForm = Nothing

End Sub
'============== End of Function FormAccessAdmin() ======================
'===================================================================
'= Sub         : FormSaveAccessAdmin()
'= Time		   : Created At Jun,27,2004
'= Input       : None

'= Called by   : 
'= Calls       : 
'= Description : access ip
'===================================================================
Sub FormSaveAccessAdmin()

	Dim intAction,intType,strContent,strDesc

	intAction = Trim(Request.Form("selActionType"))
	strAddInfo = "类型"
	intErrId = DataCheck("DT_ENUM",intAction,strAddInfo,"0,1")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	strContent = Trim(Request.Form("iptContent"))
	strAddInfo = "IP/用户"
	intErrId = DataCheck("DT_FIX_LENGTH",strContent,strAddInfo,"1|DTC_LESS_MORE_LEN|50|")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	intType = Trim(Request.Form("selType"))
	strAddInfo = "Access类型"
	intErrId = DataCheck("DT_ENUM",intType,strAddInfo,"0,1")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	strDesc = Trim(Request.Form("iptDesc"))
	strAddInfo = "备注"
	intErrId = DataCheck("DT_FIX_LENGTH",strDesc,strAddInfo,"0|DTC_LESS_MORE_LEN|50|")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	clsPubDB.Clear()
	clsPubDB.TableName = "CLASS_ACCESS"
	clsPubDB.SQLType = "INSERT"