userpriv.asp

AspMaker调用的自定义包

<!--##session init##-->
<!--##
	Set TABLE = DB.Tables(DB.UserLevelTbl)
	Set FIELD = TABLE.Fields(DB.UserLevelIdFld)
	sUserLevelIDFldVar = FIELD.FldVar
	sUserLevelIDFldParm = Mid(sUserLevelIDFldVar, 3)
##-->
<!--##/session##-->

<!--##session aspheader##-->
<%
If Not IsArray(arTableName) Then
    Session(ewSessionMessage) = "<!--##@NoTableGenerated##-->"
    Response.Redirect "<!--##=fn_userleveltablelist##-->"
End If

Dim arPriv
ReDim arPriv(UBound(arTableName))

' Get action
Dim TempPriv, sItemRowClass, sListTrJs, sDisabled
sAction = Request.Form("a_edit")
If sAction = "" Or IsNull(sAction) Then
	sAction = "I"	' Display with input box
	' Load key from QueryString
	<!--##=sUserLevelIDFldVar##--> = Request.QueryString("<!--##=sUserLevelIDFldParm##-->")
	If <!--##=sUserLevelIDFldVar##--> = "" Or IsNull(<!--##=sUserLevelIDFldVar##-->) Then Response.Redirect "<!--##=fn_userleveltablelist##-->"
	If <!--##=sUserLevelIDFldVar##--> = "-1" Then
		sDisabled = " disabled=""true"""
	Else
		sDisabled = ""
	End If
Else
	' Get fields from form
	<!--##=sUserLevelIDFldVar##--> = Request.Form("<!--##=sUserLevelIDFldParm##-->")
	For i = LBound(arTableName) to UBound(arTableName)
		arPriv(i) = CInt(Request.Form("Add_" & i)) + _
			CInt(Request.Form("Delete_" & i)) + CInt(Request.Form("Edit_" & i)) + _
			CInt(Request.Form("List_" & i))
	Next
End If

' Open connection to the database
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
Select Case sAction
	Case "I": ' Display
		SetUpUserLevelEx(-2) ' Get all user level info
	Case "U": ' Update
		If EditData() Then ' Update Record based on key
			Session(ewSessionMessage) = "<!--##@UpdateSuccess##-->"
			conn.Close ' Close Connection
			Set conn = Nothing
			Response.Clear
			' Alternatively, comment out the following line to go back to this page
			'Response.Redirect "userpriv.asp?UserLevelID=" & x_UserLevelID
			Response.Redirect "<!--##=fn_userleveltablelist##-->"
		End If
End Select
%>
<!--##/session##-->

<!--##session htmtable##-->
<script language="javascript">
<!--
function EW_SelectAll(sCtrl, bChecked)	{
	for (i=0; i<document.userpriv.elements.length; i++) {
		var elm = document.userpriv.elements[i];
		if (elm.type == "checkbox" && elm.name.substr(0, sCtrl.length+1) == sCtrl + "_") {
			elm.checked = bChecked;	
		}
	}
}	
//-->
</script>
<p><span class="aspmaker"><!--##@UserLevelPermission##--><br><br><a href="<!--##=fn_userleveltablelist##-->"><!--##@BackToList##--></a></span></p>
<p><span class="aspmaker"><!--##@UserLevel##-->: <%= GetUserLevelName(<!--##=sUserLevelIDFldVar##-->) %>(<%= <!--##=sUserLevelIDFldVar##--> %>)</span></p>
<form name="userpriv" id="userpriv" action="<!--##=fn_userpriv##-->" method="post">
<input type="hidden" name="a_edit" value="U">
<!-- hidden tag for User Level ID -->
<input type="hidden" name="<!--##=sUserLevelIDFldParm##-->" value="<%=<!--##=sUserLevelIDFldVar##-->%>">
<%
If Session(ewSessionMessage) <> "" Then
%>
<p><span class="aspmaker" style="color: red;"><%= Session(ewSessionMessage) %></span></p>
<%
	Session(ewSessionMessage) = "" ' Clear message
End If
%>
<table<!--##=sListTableId##--><!--##=ewCSSTableClass##-->>
	<tr<!--##=ewCSSTableHeaderClass##-->>
		<td><span<!--##=ewCSSCaptionSpanClass##-->><!--##@TableOrView##--></span></td>
		<td><span<!--##=ewCSSCaptionSpanClass##-->><!--##@PermissionAddCopy##--></span><input type="checkbox" value="" onClick="EW_SelectAll('Add', this.checked);"<%=sDisabled%>></td>
		<td><span<!--##=ewCSSCaptionSpanClass##-->><!--##@PermissionDelete##--></span><input type="checkbox" value="" onClick="EW_SelectAll('Delete', this.checked);"<%=sDisabled%>></td>
		<td><span<!--##=ewCSSCaptionSpanClass##-->><!--##@PermissionEdit##--></span><input type="checkbox" value="" onClick="EW_SelectAll('Edit', this.checked);"<%=sDisabled%>></td>
		<td><span<!--##=ewCSSCaptionSpanClass##-->><!--##@PermissionListSearchView##--></span><input type="checkbox" value="" onClick="EW_SelectAll('List', this.checked);"<%=sDisabled%>></td>
	</tr>
<%
For i = LBound(arTableName) to UBound(arTableName)
	TempPriv = GetUserLevelPrivEx(arTableName(i), <!--##=sUserLevelIDFldVar##-->)

	sItemRowClass = <!--##=DoubleQuote(ewCSSTableRowClass, 1)##-->
	sListTrJs = <!--##=DoubleQuote(sListTrJs, 1)##-->

<!--##If PROJ.TblAltColor Then##-->
	' Display alternate color for rows
	If i Mod 2 <> 1 Then
		sItemRowClass = <!--##=DoubleQuote(ewCSSTableAltRowClass, 1)##-->
	End If
<!--##End If##-->
%>
	<tr<%=sItemRowClass%><%=sListTrJs%>>
		<td><span class="aspmaker"><%= arTableName(i) %></span></td>
		<td align="center"><input type="checkbox" name="Add_<%= i %>" value="1" <% If (TempPriv And ewAllowAdd) = ewAllowAdd Then %>checked<% End If %><%=sDisabled%>></td>
		<td align="center"><input type="checkbox" name="Delete_<%= i %>" value="2" <% If (TempPriv And ewAllowDelete) = ewAllowDelete Then %>checked<% End If %><%=sDisabled%>></td>
		<td align="center"><input type="checkbox" name="Edit_<%= i %>" value="4" <% If (TempPriv And ewAllowEdit) = ewAllowEdit Then %>checked<% End If %><%=sDisabled%>></td>
		<td align="center"><input type="checkbox" name="List_<%= i %>" value="8" <% If (TempPriv And ewAllowList) = ewAllowList Then %>checked<% End If %><%=sDisabled%>></td>
	</tr>
<% Next %>				
</table>	
<p>
<input type="submit" name="btnSubmit" value="<!--##@Update##-->"<%=sDisabled%>>
</form>
<!--##/session##-->

<!--##session aspfooter##-->
<%
conn.Close ' Close Connection
Set conn = Nothing
%>
<%
Function EditData()
	Dim Sql, RowCnt, i
	For i = LBound(arTableName) to UBound(arTableName)
		Sql = "UPDATE " & ewUsrLvlPrivTbl & " SET " & ewUsrLvlPrivPrivFld & " = " & arPriv(i) & " WHERE " & _
			ewUsrLvlPrivTblNameFld & " = '" & AdjustSql(arTableName(i)) & "' AND " & _
			ewUsrLvlPrivUsrLvlIdFld & " = " & <!--##=sUserLevelIDFldVar##-->
		conn.Execute Sql, RowCnt
		If RowCnt = 0 Then
			Sql = "INSERT INTO " & ewUsrLvlPrivTbl & " (" & ewUsrLvlPrivTblNameFld & ", " & ewUsrLvlPrivUsrLvlIdFld & ", " & ewUsrLvlPrivPrivFld & ") VALUES ('" & AdjustSql(arTableName(i)) & "', " & <!--##=sUserLevelIDFldVar##--> & ", " & arPriv(i) & ")"
			conn.Execute Sql, RowCnt
		End If
	Next	
	EditData = True
End Function
%>
<!--##/session##-->