www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > admin/admin_trans.asp

    <%
'===================================================================
'= ASP FILENAME	: /admin/admin_trans.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  : trans control
'= 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 = "../class/class_html_form.asp" -->
<!-- #include file = "../class/class_html_table.asp" -->
<!-- #include file = "../main_func.asp" -->

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


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

Call AdminCheckExec()

Dim clsPubDB
Set clsPubDB = New classDBOprt

Call SiteHead("通用设置管理")

Call CheckPostExist("ShowTransAdmin,TransOprtAdmin")

Call ExeSysAdminQst()

Set clsPubDB = Nothing

%>
<%
'=============== FUNCTION BODY BEGIN ===============================
'===================================================================
'= Sub		    : ShowTransAdmin()
'= Time		    : Created At Nov,24,2003
'= Input        : None
'= Output       : None
'= Called by    : 
'= Calls        : None
'= Table        : 
'= Description  : The web column control
'===================================================================
Sub ShowTransAdmin()

	Dim strFileName 
	Dim intMaxPerPage
	Dim strHtmlCode
	Dim intCurPage,intTotalPut
	Dim i
	Dim intClass

	'== Get data
	clsPubDB.Clear()
	clsPubDB.AllSQL = "SELECT TRANS_NAME,TRANS_CODE_TYPE,TRANS_STATUS,TRANS_AUTHEN,TRANS_DESC FROM CLASS_TRANS ORDER BY TRANS_CODE_TYPE ASC"
	clsPubDB.SQLRSExecute()
	Call ResultExecute(clsPubDB.intErrNum,"get func admin","ES_ERR")
	If Not ResultExecute(clsPubDB.intRSNum,"网站功能列表","ES_DB_NO") Then

		intTotalPut =  clsPubDB.intRSNum

		Set clsTable = New classTable
		'== Set table prameters
		clsTable.Border = "0"
		clsTable.CellPadding = "2"
		clsTable.CellSpacing = "1"
		clsTable.Width = "96%"
		clsTable.ClassType = GBL_cssListTable
		clsTable.Align = "center"

		clsTable.MakeTable()

		i = 0
		'== Set table header
		clsTable.AddTitleTr GBL_cssListTitleTr
		clsTable.AddTitleTd "No",GBL_cssListTitleTd,"7%"
		clsTable.AddTitleTd "分类",GBL_cssListTitleTd,"7%"
		clsTable.AddTitleTd "交易名",GBL_cssListTitleTd,"20%"
		clsTable.AddTitleTd "功能说明",GBL_cssListTitleTd,"20%"
		clsTable.AddTitleTd "权限",GBL_cssListTitleTd,"10%"
		clsTable.AddTitleTd "开关",GBL_cssListTitleTd,"10%"
		clsTable.AddTitleTd "选择",GBL_cssListTitleTd,"10%"
		
		strLastCodeType = ""
		While Not clsPubDB.objPubRS.Eof
			
			i = i + 1

			If (i Mod 2) = 0 Then 
				strTdClass = GBL_cssListTd1
			Else
				strTdClass = GBL_cssListTd2
			End If	
			
			clsTable.AddTr ""
			clsTable.AddTd i,strTdClass
			clsTable.AddTd clsPubDB.objPubRS("TRANS_CODE_TYPE"),strTdClass
			clsTable.AddTd clsPubDB.objPubRS("TRANS_NAME"),strTdClass
			clsTable.AddTd clsPubDB.objPubRS("TRANS_DESC"),strTdClass
			If clsPubDB.objPubRS("TRANS_AUTHEN") = 1 Then
				strTmp = "<font color=red>管理员</font>"
			ElseIf clsPubDB.objPubRS("TRANS_AUTHEN") = 0 Then
				strTmp = "注册用户"
			ElseIf clsPubDB.objPubRS("TRANS_AUTHEN") = 9 Then
				strTmp = "<font color=red>所有访客</font>"
			Else
				strTmp = "未知"
			End If
			clsTable.AddTd strTmp,strTdClass
			If clsPubDB.objPubRS("TRANS_STATUS") = 0 Then
				strTmp = "开放"
			ElseIf clsPubDB.objPubRS("TRANS_STATUS") = 1 Then
				strTmp = "<font color=red>关闭</font>"
			Else
				strTmp = "未知"
			End If
			clsTable.AddTd strTmp,strTdClass

			strHtmlCode = "<input type='checkbox' name='TransName' id='TransName' value=" & clsPubDB.objPubRS("TRANS_NAME") & " class='CSS_IPT_CHKBOX' >"
			clsTable.AddTd strHtmlCode,strTdClass

			clsPubDB.objPubRS.MoveNext
			
		Wend

		clsTable.AddInfoTr "","TOP"
		clsTable.AddInfoTd MakeTitle("网站功能管理"),GBL_cssListTd2

		clsTable.AddInfoTr "","BOTTOM"
		clsTable.AddInfoTd " 说明：<br>&nbsp;&nbsp;→本网站目前具有上述" & strFuncInfo & i & "项主体功能,每项功能又包含若干个具体交易<br>&nbsp;&nbsp;→您可分别设定每项功能的开放状态,使用权限,显示模式等参数<br>&nbsp;&nbsp;→也可分别设定每个具体交易的开放状态,使用权限等各项参数","CSS_TD_LEFT1"

		Response.Write "<form action='admin_trans.asp?action=TransOprtAdmin' method=post id=frmShowTransAdmin name=frmShowTransAdmin onsubmit='return CheckFormShowTransAdmin(this)'>"
		Response.Write clsTable.OutPutTable()

		strHtmlCode = "<input type='checkbox' name='chkAllTrans' value='on' class='CSS_IPT_CHKBOX' onclick='SelectTransAllChkBox(this.form)'>选取所有&nbsp;"

		strHtmlCode = strHtmlCode & "<input type='submit' name='subStatus0' value='功能开通'  onclick=""return confirm('您确认要开通该功能?')"" class=CSS_IPT_BTN_SMALL>&nbsp;&nbsp;"

		strHtmlCode = strHtmlCode & "<input type='submit' name='subStatus1' value='功能关闭'  onclick=""return confirm('您确认要关闭该功能?')"" class=CSS_IPT_BTN_SMALL>&nbsp;&nbsp;"

		strHtmlCode = strHtmlCode & "<input type='submit' name='subAuthen1' value='赋予管理员权限'  onclick=""return confirm('您确认要赋予管理员权限?')"" class=CSS_IPT_BTN_SMALL>&nbsp;&nbsp;"

		strHtmlCode = strHtmlCode & "<input type='submit' name='subAuthen0' value='赋予注册用户权限'  onclick=""return confirm('您确认要赋予注册用户权限?')"" class=CSS_IPT_BTN_SMALL>&nbsp;&nbsp;"

		strHtmlCode = strHtmlCode & "<input type='submit' name='subAuthen9' value='赋予浏览权限'  onclick=""return confirm('您确认要赋予浏览权限?')"" class=CSS_IPT_BTN_SMALL>&nbsp;&nbsp;"

		strHtmlCode = strHtmlCode & "<input type='submit' name='del' value='删除该功能'  onclick=""return confirm('您确认要删除该功能?')"" class=CSS_IPT_BTN_SMALL>&nbsp;&nbsp;"

		Response.Write strHtmlCode
		Response.Write "</form>"

		Set clsTable = Nothing

	End If

End Sub
'====================================================================
'= Sub         : TransOprtAdmin()
'= Time		   : Created At Mar,28,2004
'= Input       : 
 
'= Called by   :
'= Calls       :
'= Table	   : Update _Trans,
'= Description : operate Trans such as del ,authen,status
'====================================================================
Sub TransOprtAdmin()

	Dim GetRSId
	Dim strAddInfo
	Dim intErrId
	Dim arrTmp
	Dim strWhere,strWhere1 

	strWhere = " AND NOT (TRANS_NAME='ShowUserRegAnnounce' OR TRANS_NAME='FormUserLogin' OR TRANS_NAME='FormUserRegister' OR TRANS_NAME='UserLogin' OR TRANS_NAME='FormSaveUserRegister')"

	strWhere1 = ""

	'== Check board's id of board
	GetRSId = Trim(Request("TransName"))
	GetRSId = Replace(GetRSId," ","")
	arrTmp = Split(GetRSId,",")
	strAddInfo = "该交易记录"
	For i = LBound(arrTmp) To UBound(arrTmp)
		arrTmp(i) = "'" & Trim(arrTmp(i)) & "',"
	Next

	GetRSId = ""
	For i = LBound(arrTmp) To UBound(arrTmp)
		GetRSId = GetRSId & arrTmp(i)
	Next
	GetRSId = Left(GetRSId,Len(GetRSId) - 1)

	'== set Trans  open
	If Trim(Request.Form("subStatus1")) <> "" Then

		clsPubDB.Clear()
		clsPubDB.AllSQL = "UPDATE CLASS_TRANS SET TRANS_STATUS=1  WHERE TRANS_NAME IN (" & GetRSId & ") " & strWhere1
		clsPubDB.SQLExecute()
		Call ResultExecute(clsPubDB.intErrNum,"set Trans open"&clsPubDB.returnsql,"ES_ERR")
	
		Set clsPubDB = Nothing
		Response.Write"<script>alert('您选择的功能关闭成功');location='admin_trans.asp?action=ShowTransAdmin'</script>"

		Exit Sub

	End If

	'== set Trans  close
	If Trim(Request.Form("subStatus0")) <> "" Then

		clsPubDB.Clear()
		clsPubDB.AllSQL = "UPDATE CLASS_TRANS SET TRANS_STATUS=0  WHERE TRANS_NAME IN (" & GetRSId & ") " & strWhere1
		clsPubDB.SQLExecute()
		Call ResultExecute(clsPubDB.intErrNum,"set Trans open"&clsPubDB.returnsql,"ES_ERR")
	
		Set clsPubDB = Nothing
		Response.Write"<script>alert('您选择的功能开放成功');location='admin_trans.asp?action=ShowTransAdmin'</script>"

		Exit Sub

	End If

	'== set Trans  authen
	If Trim(Request.Form("subAuthen1")) <> "" Then

		clsPubDB.Clear()
		clsPubDB.AllSQL = "UPDATE CLASS_TRANS SET TRANS_AUTHEN=1  WHERE TRANS_NAME IN (" & GetRSId & ") " & strWhere
		clsPubDB.SQLExecute()
		Call ResultExecute(clsPubDB.intErrNum,"set Trans open"&clsPubDB.returnsql,"ES_ERR")
	
		Set clsPubDB = Nothing
		Response.Write"<script>alert('您选择的功能授予了管理员权限');location='admin_trans.asp?action=ShowTransAdmin'</script>"

		Exit Sub

	End If

	'== set Trans  authen
	If Trim(Request.Form("subAuthen0")) <> "" Then

		clsPubDB.Clear()
		clsPubDB.AllSQL = "UPDATE CLASS_TRANS SET TRANS_AUTHEN=0  WHERE TRANS_NAME IN (" & GetRSId & ") " & strWhere
		clsPubDB.SQLExecute()
		Call ResultExecute(clsPubDB.intErrNum,"set Trans open"&clsPubDB.returnsql,"ES_ERR")
	
		Set clsPubDB = Nothing
		Response.Write"<script>alert('您选择的功能授予了注册用户权限');location='admin_trans.asp?action=ShowTransAdmin'</script>"

		Exit Sub

	End If

	'== set Trans  authen
	If Trim(Request.Form("subAuthen9")) <> "" Then

		clsPubDB.Clear()
		clsPubDB.AllSQL = "UPDATE CLASS_TRANS SET TRANS_AUTHEN=9  WHERE TRANS_NAME IN (" & GetRSId & ") " & strWhere
		clsPubDB.SQLExecute()
		Call ResultExecute(clsPubDB.intErrNum,"set Trans open"&clsPubDB.returnsql,"ES_ERR")
	
		Set clsPubDB = Nothing
		Response.Write"<script>alert('您选择的功能授予了浏览权限');location='admin_trans.asp?action=ShowTransAdmin'</script>"

		Exit Sub

	End If

	'== del Trans  
	If Trim(Request.Form("del")) <> "" Then

		clsPubDB.Clear()
		clsPubDB.AllSQL = "DELETE FROM CLASS_TRANS  WHERE TRANS_NAME IN (" & GetRSId & ") " & strWhere
		clsPubDB.SQLExecute()
		Call ResultExecute(clsPubDB.intErrNum,"del Trans open"&clsPubDB.returnsql,"ES_ERR")
	
		Set clsPubDB = Nothing
		Response.Write"<script>alert('您选择的功能已被删除');location='admin_trans.asp?action=ShowTransAdmin'</script>"

		Exit Sub

	End If


End Sub
'============== End of Sub TransOprtAdmin() ==========================
'=============== FUNCTION BODY END ===================================
%>
<script language="JavaScript">

function SelectTransAllChkBox(strFormName)  
{
	for (var i=0;i<strFormName.elements.length;i++)    
	{
		var e = strFormName.elements[i];
		if (e.name != 'chkAllTrans')      
			e.checked = strFormName.chkAllTrans.checked; 
	}
}
</script>