📄 用户模块授权设置.asp
字号:
<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl("用户模块权限设置")
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<meta name="tjh" content="Microsoft FrontPage Express 2.0">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>用户模块授权 欢迎使用欣科软件</title>
</head>
<body background="../images/di2001.jpg">
<p><font size="6" color="#ff0000"><strong>用户授权</strong>
<object id="RDS2" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" align="baseline"
border="0" width="7" height="14">
<param name="AllowAddnew" value="true">
<param name="AllowDelete" value="true">
<param name="AllowUpdate" value="true">
<param name="allowarrows" value="true">
</object>
<object id="RDS1" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" align="baseline"
border="0" width="7" height="8">
<param name="AllowAddnew" value="true">
<param name="AllowDelete" value="true">
<param name="AllowUpdate" value="true">
<param name="allowarrows" value="true">
</object></font><hr color="#ff0000">
<script language="vbscript">
public text11
PUBLIC L_MKMC
L_INS=TRUE
L_DEL=TRUE
RDS1.Server ="http://<%=request.servervariables("server_name")%>"
RDS1.Connect = "database=school;uid=sa;pwd=;dsn=school"
' RDS1.SQL = "select 用户名,学生资料,学生档案,成绩输入,成绩查询,综合报表,统计分析,课程设置,学生班级,学生学号,学生初始设置,教师资料,教师档案,教师初始设置,图书类别设置,图书借阅登记,"+_
' "图书借还,待借图书目录浏览,打印催还单,借书记录维护,图书目录查询,查询借书证目录,图书库存查询,查询外借图书目录,查询图书总册数,打印图书目录,打印图书库存,打印借书证目录,打印外借图书目录,图书增加,"+_
' "输入图书内容,图书目录维护,图书分类输入,出版社输入,发放借书证,收回借书证,更换IC卡,借书证维护,读者类别设置,查IC卡更换记录,校产管理,公告栏,讨论园地,电子邮件,* from USERset"
RDS1.SQL = "select * from USERset"
RDS1.ExecuteOptions = 1
RDS1.Refresh
RDS2.Server = "http://<%=request.servervariables("server_name")%>"
RDS2.Connect = "database=school;uid=sa;pwd=;dsn=school"
</script>
<div align="center"><center>
<table border="1" width="97%">
<tr>
<td valign="top" width="107%"><p align="left">
<object align="baseline" classid="clsid:00028CD1-0000-0000-0000-000000000046"
CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx"
dataSrc="#rds1" height="329" id="grid1" name="grid1" style="LEFT: 0px; TOP: 0px"
width="100%" border="0" VIEWASTEXT>
</object>
</td>
<td valign="top" width="49%"><p align="center">
<p align="center"><input type="button" NAME="DEL" value="删 除"
onclick="recorddelete()" style="font-family: 隶书; font-size: 17"></p>
<p align="center"><input type="button" value="保 存" NAME="SUB"
onclick="SubmitChanges()" style="font-family: 隶书; font-size: 17"></p>
<p align="center"><input type="button" value="取 消" NAME="CAN"
onclick="cancleupdate()" style="font-family: 隶书; font-size: 17">
<p align="center"><input type="button" value="退 出" NAME="return" onclick="returning()"
style="font-family: 隶书; font-size: 17"></td>
</tr>
</table>
</center></div>
<p><script language="vbscript">
Grid1.AllowAddnew = true
' Grid1.AllowUpdate = true
' Grid1.AllowDelete = true
' Grid1.AllowArrows = true
sub grid1_BeforeColEdit()
'grid1.editactive = true
end sub
sub recordadd()
grid1.editactive=true
INS.disabled = TRUE
IF INS.disabled = TRUE THEN
DEL.disabled = TRUE
L_INS=FALSE
END IF
rds1.recordset.addnew
GRID1.Col=0
end sub
Sub SubmitChanges()
moveflag = true
if grid1.row > 0 then
grid1.row = grid1.row -1
else
grid1.row =grid1.row +1
moveflag = false
end if
grid1.Editactive = ture
On Error resume next
RDS1.SubmitChanges
If Err.Number <> 0 Then
'RDS1.CancelUpdate
MsgBox "无法更新数据！"
End If
' if moveflag then
' grid1.row = grid1.row +1
' else
' grid1.row = grid1.row -1
' end if
End Sub
sub grid1_BeforeColEdit(colindex,keyascii,cancel)
set colsel = grid1.columns.item(colindex)
'msgbox trim(grid1.Columns.item(0))="SYSTEM"
if trim(grid1.Columns.item(0))="SYSTEM" then
msgbox "系统管理员的权限不能修改!",,"提示窗口"
CANCEL=TRUE
exit sub
end if
if colsel.caption<>"用户名" then
if grid1.columns.item(colindex).value = "已授权" then
grid1.columns.item(colindex).value = "没授权"
else
grid1.columns.item(colindex).value = "已授权"
end if
cancel = true
end if
end sub
sub recorddelete()
l_ok = msgbox("你真的要删除此项目吗!",1,"提示")
if l_ok = 1 then
if trim(grid1.Columns.item(0))="SYSTEM" then
msgbox "系统管理员的授权不能删除!",,"提示窗口"
CANCEL=TRUE
exit sub
end if
rds1.recordset.delete
grid1.rebind
end if
end sub
Sub CancleUpdate()
On Error Resume Next
RDS1.CancelUpdate
Grid1.Rebind
End Sub
Sub MoveFirst()
RDS1.Recordset.MoveFirst
End Sub
Sub MovePrevious()
If Not RDS1.Recordset.BOF Then
RDS1.Recordset.MovePrevious
End If
End Sub
Sub MoveNext()
If Not RDS1.Recordset.EOF Then
RDS1.Recordset.MoveNext
End If
End Sub
Sub MoveLast()
RDS1.Recordset.MoveLast
End Sub
sub returning()
history.go(-1)
end sub
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -