<!--#include file="../Connections/oavbsconncopy.asp" -->
<%
Dim jioaxuedongtai__MMColParam
jioaxuedongtai__MMColParam = "1"
If (Session("bumen") <> "") Then 
  jioaxuedongtai__MMColParam = Session("bumen")
End If
%>
<%
Dim jioaxuedongtai
Dim jioaxuedongtai_numRows
Set jioaxuedongtai = Server.CreateObject("ADODB.Recordset")
jioaxuedongtai.ActiveConnection = MM_oavbsconn_STRING
jioaxuedongtai.Source = "SELECT *  FROM 权限分配  WHERE 部门 = '" + Replace(jioaxuedongtai__MMColParam, "'", "''") + "' and 功能模块='教学动态'"
jioaxuedongtai.CursorType = 0
jioaxuedongtai.CursorLocation = 2
jioaxuedongtai.LockType = 1
jioaxuedongtai.Open()
jioaxuedongtai_numRows = 0
%>

<% if not jioaxuedongtai.eof or not jioaxuedongtai.bof then %>
<% jioaxuequanxian="ok"
jioaxuedongtai.Close()
Set jioaxuedongtai = Nothing
%>
<%else%>
<script language="javascript">

<!--
alert("很抱歉,您无此权限！");history.go(-1)
-->

</script>
<%response.end%>
<%end if%>

