document_gwbl_dlr_add.asp
来自「OFFICE办公自动化」· ASP 代码 · 共 163 行
ASP
163 行
<%
'功能：公文代理人列表
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'------------------------------------------------设置参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
'------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>选择代理人</title>
<link rel="stylesheet" href="../css/main.css" type=text/css>
<script src="../js/user_select.js"></script>
<script language="JavaScript">
<!--
function selectdlr(form){
userid=SelectUser()
if (userid) {
if (userid.split("_")[0]==<%=LoginID%>){alert("不能把代理人指为自己"); return false}
form.UserID.value=userid.split("_")[0]
form.UserName.value=userid.split("_")[1]
}
}
function dosave_dlr(){
if (formEdit.UserID.value==""){
alert("请选择代理人")
return false
}
formEdit.submit()
}
//-->
</script>
</head>
<body>
<%dim id,DlrID,sql1,rs1,rs2
id=Request.Form("SortID")
DlrID=Request.Form("UserID")
if DlrID<>"" and id<>"" then
'寻找是否有形成代理人绕圈的记录
set rs1=createobject("adodb.recordset")
sql1="select * from tbioaOffice_Bldlr where SortID="&id&" and UserID="&DlrID&" and DlrID="&LoginID
rs1.Open sql1,oConn,1,1
if not rs1.EOF and not rs1.BOF then%>
<script language="JavaScript">
alert("您所指定的此类公文的代理人，已经将此类公文指向您代理，您无法再把公文代理指向他")
</script>
<%
rs1.close
else
sql1="select * from tbioaOffice_Bldlr where SortID="&id&" and UserID="&LoginID
set rs2=createobject("adodb.recordset")
rs2.Open sql1,oConn,3,2
if not rs2.EOF and not rs2.BOF then
rs2("DlrID")=DlrID
else
rs2.addnew
rs2("SortID")=id
rs2("UserID")=LoginID
rs2("DlrID")=DlrID
end if
rs2.update
rs2.close
set rs2=nothing
%>
<script language="JavaScript">
opener.location="Document_Gwbl_Dlr_List.asp"
</script>
<%
end if
set rs1=nothing
end if
%>
<%
dim ssql,rs
set rs = server.CreateObject("ADODB.RecordSet")
%>
<table align="center" border=0 width="240" cellpadding=0 cellspacing=1>
<tr>
<td valign="top">
<table border=0 cellspacing='1' cellpadding='2' width=100% align=center class=tab>
<form method="post" name="formEdit" action="" width="100%">
<input type="hidden" name="uUserID" value="<%=LoginID%>">
<tr>
<td class=td1>
<table border=0 align=center cellpadding=3 cellspacing=0>
<tr class=InputFrameLine>
<td class="InputLabelCell" width="60">
<nobr>公文类别</nobr>
</td>
<td class="InputAreaCell" width="160">
<select style="width:160" name="SortID" id="SortID">
<%ssql="select * from tbioaOffice_Document_Sort"
rs.open ssql,oConn,1,1
if not rs.eof and not rs.bof then
do while not rs.eof%>
<option value="<%=rs("id")%>"><%=server.HTMLEncode(rs("doc_sort"))%></option>
<%rs.movenext
loop
end if
rs.close
%>
</select>
</td>
</tr>
<tr class=InputFrameLine>
<td class="InputLabelCell" width="60">
<nobr>选择人员</nobr>
</td>
<td class="InputAreaCell" width="160">
<nobr>
<img src="../images/selectman.gif" alt="选择人员" style="cursor:hand" onclick="selectdlr(formEdit)">
<input type="hidden" name="UserID" id="UserID" value="">
<input class="inputreadonly" type="text" style="width:100" name="UserName" id="UserName" value="" readonly>
</nobr>
</td>
</tr>
<!--Here Edit Your Button Of Form-->
<tr class=InputFrameButtonLine>
<td align="center" colspan="4">
<input class="button0" onmouseout=className="button0" onmouseover=className="button1" type="button" value="确定" id=button2 name=button2 onclick="dosave_dlr()">
<input type="button" class="button0" onmouseout=className="button0" onmouseover=className="button1" onclick="javascript:window.close();" value="关闭" id=button3 name=button3>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
<%
set rs = nothing
%>
</body>
</html>
<%'释放对象变量
oConn.close
set oConn=nothing
%> ⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?