<%
'===================================================================
'= 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錯(cuò)誤","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錯(cuò)誤","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","禁止數(shù)據(jù)庫操作",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","禁止寫數(shù)據(jù)庫操作",""
	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"