form_member.asp
来自「OFFICE办公自动化」· ASP 代码 · 共 209 行
ASP
209 行
<%
'文件名：form_member.asp
'作者：展亮
'功能：表单使用成员设置
'参数：form_name'表单名
'开发时间：2003-11-2 17:25
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!--#include file="../asp/displayform.asp"-->
<%
oabusyusername=Session("LoginName")
'-----------------------------------------------------
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/flowstep.css" type=text/css>
<title>main</title>
</head>
<center>
<script language="javascript" src="../js/popmenu.js"></script>
<%
form_name=request("form_name")
form_ico=request("ico")
if form_ico="" or isnull(form_ico) then form_ico=1
%>
<table>
<tr>
<td>
<b><%=form_name%><font color="#3F608F">表单使用成员设置</font></b>
</td>
<form method="post" action="formtype_control.asp">
<td>
<font color="#3F608F">
<input type="submit" name="submit" value="返回">
<input type="hidden" name="form_name" value="<%=form_name%>">
</font>
</td>
</form>
</tr>
</table>
</center>
<font color="#3F608F">
</font>
<br>
<center>
<%
'--------------------------------------------------------
%>
<script language="javascript">
function selectedall(){
var optionleftlen=document.form1.left.options.length;
for(var i=optionleftlen-1;i>=1;--i){
document.form1.left.options(i).selected = true
}
}
function addtoleft(){
var optionrightlen=document.form1.right.options.length;
for(var i=optionrightlen-1;i>=0;--i){
if(document.form1.right.options(i).selected){
var rightselected=i;
}
}
var addOption = document.createElement('OPTION');
addOption.text = document.form1.right.options(rightselected).text;
addOption.value = document.form1.right.options(rightselected).value;
form1.left.options.add(addOption);
}
function deletetoleft(){
var optionleftlen=document.form1.left.options.length;
for(var i=optionleftlen-1;i>=0;--i){
if(document.form1.left.options(i).selected){
var leftselected=i;
}
}
form1.left.options.remove(leftselected);
}
</script>
<%
'--------------------------------------------------------
if request("submit")="确定" then
leftstr=request("left")
leftstr=Replace(leftstr,", ","|")
sql="update workflow_form_name set allow_username='" & cString(leftstr) & "',ico='"&form_ico&"' where form_name='" & cString(form_name) &"'"
oConn.Execute sql
%>
<center><br><br><font color=red size=3>设置成功！</font></center>
<%
end if
'----------------------------------------------------------------
%>
<form name="form1" method="post" action="form_member.asp">
<font color="#3F608F">
<b>左边为允许使用<%=form_name%>表单的人员</b><br>
图标：<select name=ico style="font-family:arial" size=1 onChange="document.images['face'].src='/ico/p'+options[selectedIndex].value+'.gif';">
<script>
for(i=1;i<45;i++){document.write("<option value="+i+">p"+i+".gif</option>");}
</script>
</select> <img id=face src='/ico/p<%=form_ico%>.gif' height=20>
<script>
form1.ico.value=<%=form_ico%>
</script>
</font>
<table bordercolor="#3F6090" style="border-collapse: collapse" border="1">
<tr>
<td>
<font color="#3F608F">
<%
'打开数据库读出人员用户名并分割开，转化成姓名
set rs=server.createobject("adodb.recordset")
sql="select allow_username from workflow_form_name where form_name='" & cString(form_name) &"'"
rs.open sql,oConn,1
allow_username=rs("allow_username")
rs.close
dim allow_usernamearr
if allow_username<>"" and not isnull(allow_username) then
allow_usernamearr=split(allow_username,"|",-1,1)
else
ReDim Preserve allow_usernamearr(1)
'if allow_username<>"" and not isnull(allow_username) then
'allow_usernamearr(1)=allow_username
'else
allow_usernamearr(1)="所有人"
'end if
end if
'for each allowusername in allow_usernamearr
'Response.Write allowusername&"<br><br><br><br>"&allow_username
'next
%>
<select name="left" size=4 multiple style="width:150; height:150">
<option value="">表单成员</option>
<%
for each allowusername in allow_usernamearr
allowusername=trim(allowusername)
if allowusername<>"" then
%>
<option value="<%=allowusername%>">
<%
if allowusername="所有人" then
response.write "所有人"
else
set rs=server.createobject("adodb.recordset")
sql="select name from tbioaUser where loginname='" & cString(allowusername) &"'"
rs.open sql,oConn,1
if not rs.eof and not rs.bof then response.write rs("name")
rs.close
set rs=nothing
end if
%>
</option>
<%
end if
next
%>
</select>
</font>
</td>
<td>
<font color="#3F608F">
<input type="button" name="addleft" onclick="if(document.form1.right.value!=''){addtoleft();}" value="<<增加"><br>
<input type="button" name="deleteleft" onclick="if(document.form1.left.value!=''){deletetoleft();}" value="删除>>">
</font>
</td>
<td>
<font color="#3F608F">
<select name="right" size=4 style="width:150; height:150">
<option value="">所有用户名单</option>
<option value="所有人">所有人</option>
<%
set rs=server.createobject("adodb.recordset")
sql="select Loginname,name from tbioaUser"
rs.open sql,oConn,1
while not rs.eof and not rs.bof
%>
<option value="<%=rs("Loginname")%>"><%=rs("name")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
set oConn=nothing
%>
</select>
</font>
</td>
</tr>
</table>
<font color="#3F608F">
<input type="submit" name="submit" value="确定" onclick="selectedall();">
<input type="hidden" name="form_name" value="<%=form_name%>">
</font>
</form>
</center>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?