role_add.asp
来自「OFFICE办公自动化」· ASP 代码 · 共 212 行
ASP
212 行
<%
'功能：增加职位
'作者：展亮
'日期：2003-12-2 12:00
'参数：request.form("addedit_subed")="true"#表单提交;
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
dep_id=request("dep_id") '部门ID
'------------------------------------------------
'------------------------------------------------增加记录
table="tbioaRole" '表名
if request.form("addedit_subed")="true" then
'表单提交后
'接受录入参数
input_rolename=Request.Form("input_rolename")'职位名
input_rights=Request.Form("input_rights")'职位权限
input_department=request.Form("input_department") '部门ID
'添加时使用的字段
field1=array("rolename","rights","department","sdate")
value1=array(input_rolename,input_rights,input_department,date())
for i=0 to ubound(field1)
value1(i)=replace(value1(i),"'","''")
next
sql = "INSERT INTO " & table & " (" & Join(field1, ",") & ") VALUES ('" & Join(value1, "','") & "')"
oConn.Execute sql
word="<p>职位已成功提交!</p><p><img border=0 src=../images/icon_show.gif align=left width=16 height=16><a href=role_add.asp?dep_id="&dep_id&">继续提交</a>"
end if
'------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>增加部门职位</title>
<script src="../js/Popup.js"></script>
<script src="../js/front_chec.js"></script>
<script language="JavaScript">
<!--
function require(form){
return checnull(form.input_rolename,"请新增职位名！")&&
1==1;
}
function check_input_rights(per,star,end){
for(i=star;i<=end;i++){
if (per.checked) eventfrm.input_rights[i].checked=true
else eventfrm.input_rights[i].checked=false
}
}
-->
</script>
</head>
<body topmargin="10" leftmargin="10">
<br>
<div align="center">
<table width="500" cellspacing="1" cellpadding="2" class="tab">
<tr>
<td width="100%" class="tdTop">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td class="tdTop2">
<img border="0" src="../images/icon_title.gif" align="left">新增职位
</td>
<td width="60" class="tdTop2">
<img border="0" src="../images/icon_return.gif" align="left">
<a href="javascript:window.close()" class="linkTop">关闭</a>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td class="td1">
<% if request.form("addedit_subed")="true" then %>
<script>opener.location.reload();</script>
<table border="0" width="100%" cellspacing="10" cellpadding="0">
<tr>
<td width="36%">
<p align="right"><img border="0" src="../images/edit.gif" width="32" height="32">
</td>
<td width="64%"><p> </p>
<%=word%>
</td>
</tr>
<tr>
<td width="100%" colspan="2">
</td>
</tr>
</table>
<% else %>
<form name="eventfrm" method="POST" action="" onSubmit="return require(this)">
<input type=hidden name="addedit_subed" value="true">
<input name="input_department" type="hidden" id="input_department" value="<%=dep_id%>">
<table border="0" width="100%" cellspacing="1" cellpadding="2" class="tab">
<tr>
<td class="td1">职位名：<input type="text" name="input_rolename" value="<%=show_rolename%>" size="40" maxlength="250" class="input"> <font COLOR="RED">*</font>
</td>
</tr>
<tr>
<td class="tdtop">职位权限</td>
</tr>
<%set oRsRightType=server.createobject("ADODB.RecordSet")
sql="select Title,Number,Mod from tbioaRoleRightsType"
oRsRightType.open sql,oConn,1,1
dim s,e: s=0: e=0
while not oRsRightType.eof
if oRsRightType("Mod")<>"X" then
set oRsRight=server.createobject("ADODB.RecordSet")
sql="select Title,Number,Mod from tbioaRoleRights where TypeNumber="&oRsRightType("number")
oRsRight.open sql,oConn,1,1
e=s+oRsRight.RecordCount-1
set oRsTypeRight=server.createobject("ADODB.RecordSet")
sql="SELECT COUNT(*) FROM tbioaRoleRights,tbioaRole WHERE CHARINDEX(tbioaRoleRights.Number, tbioaRole.rights)>0 AND tbioaRoleRights.TypeNumber="&oRsRightType("number")&" AND tbioaRoleRights.mod='1'"
oRsTypeRight.open sql,oConn,1,1
%>
<tr>
<td width="100%" nowrap class="td2">
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td><INPUT TYPE="checkbox" NAME="all_rights" hidefocus=true onclick="check_input_rights(this,<%=s%>,<%=e%>)" <%if oRsTypeRight(0) then response.write "checked"%>></td>
<td>
<span style="cursor:hand" onClick="if (list_<%=oRsRightType("Number")%>.style.display=='none'){list_<%=oRsRightType("Number")%>.style.display='';p_<%=oRsRightType("Number")%>.src='../images/menu_open.gif';} else {list_<%=oRsRightType("Number")%>.style.display='none';p_<%=oRsRightType("Number")%>.src='../images/menu_close.gif';} ">
<img src="../images/menu_close.gif" border="0" id="p_<%=oRsRightType("Number")%>" align="left">
<%=trim(oRsRightType("Title"))%>
</span>
</td>
</tr></table>
</td>
</tr>
<%s=s+oRsRight.RecordCount%>
<tr id="list_<%=oRsRightType("Number")%>" style="display=none">
<td width="100%" nowrap class="td1">
<table width="100%">
<%while not oRsRight.eof%>
<tr>
<td width="10" nowrap></td>
<td width="50%" nowrap>
<%if not oRsRight.eof then%>
<INPUT TYPE="checkbox" NAME="input_rights" hidefocus=true value="<%=trim(oRsRight("Number"))%>" <%if oRsRight("Mod")="1" then response.write "checked"%> <%if oRsRight("Mod")="X" then response.write "disabled"%>>
<font color="#000080"> <%=trim(oRsRight("Title"))%></font>
<%oRsRight.movenext
end if%>
</td>
<td width="50%" nowrap>
<%if not oRsRight.eof then%>
<INPUT TYPE="checkbox" NAME="input_rights" hidefocus=true value="<%=trim(oRsRight("Number"))%>" <%if oRsRight("Mod")="1" then response.write "checked"%> <%if oRsRight("Mod")="X" then response.write "disabled"%>>
<font color="#000080"> <%=trim(oRsRight("Title"))%></font>
<%oRsRight.movenext
end if%>
</td>
</tr>
<%wend
oRsRight.close
set oRsRight = nothing%>
</table>
</td>
</tr>
<%end if
oRsRightType.movenext
wend
oRsTypeRight.close
set oRsTypeRight = nothing
oRsRightType.close
set oRsRightType = nothing%>
<tr>
<td width="100%" colspan="2" class="tdBottom" align="center">
<input type="submit" value=" 确 定 " name="B1" class="button0" onmouseout=className="button0" onmouseover=className="button1"> <input type="reset" value="全部重写" name="B2" class="button0" onmouseout=className="button0" onmouseover=className="button1">
</td>
</tr>
</table>
</form>
<% end if %>
</td>
</tr>
<tr>
<td width="25%" class="tdBottom">
</td>
</tr>
</table>
</div>
</body>
</html>
<%'释放对象变量
oConn.close
%> ⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?