<%@ Language=VBScript %>
<%
' 显示所有的管理栏目
Call SetConn ()
intSysID = Request.QueryString ("id")
If intSysID = "" Then Response.Write ""
intSysID = CInt (intSysID)
If Request.Form ("submit") <> "" Then
strCheckBox = Trim (Request.Form ("checkbox"))
If strCheckBox = "" Then
Response.Write ""
End If
' 首先删除所有的权限分配
Conn.Execute ("Delete FROM tSysUserRight where SysID = " & intSysID & "")
Dim arrValue
Dim strBorderName
Dim strBorder
Dim arrBorder
arrValue = Split (strCheckBox, ",")
For i = 0 To UBound (arrValue)
strBorderName = "checkbox"&CInt(arrValue (i))
strBorder = Request.Form (strBorderName)
If strBorder <> "" Then
arrBorder = split (strBorder, ",")
For j = 0 To Ubound (arrBorder)
sql = "Insert Into tSysUserRight (SysID, BorderID, ParentID) Values (" & intSysID & ", " & Cint (arrBorder (j)) & ", " & Cint (arrValue (i)) & ")"
Conn.Execute (sql)
If Err.number <> 0 Then
Call ClearConn ()
Response.Write "数据库异常错误"
Response.End
End If
Next
End If
Next
Response.Redirect "ListSystem.asp"
End If
Function GetCheckStatus (sysid, borderid)
sql1 = "Select sysid from tSysUserRight where SysID = " & sysid & " and BorderID = " & borderid & ""
Set objSql = Conn.Execute (sql1)
If not objSql.Eof Then
GetCheckStatus = "Checked"
Else
GetCheckStatus = ""
End If
objSql.close
Set objSql = Nothing
End Function
Function GetCheck (sysid, borderid)
sql1 = "Select ParentID From tSysUserRight where ParentID = " & borderid & " and SysID = " & sysid & ""
Set objSql = Conn.Execute (sql1)
If not objSql.Eof Then
GetCheck = "Checked"
Else
GetCheck = ""
End If
objSql.close
Set objSql = Nothing
End Function
%>