📄 document_gwbl_dlr_list.asp
字号:
<%
'功能：公文代理人列表
%>
<!--#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 language="javascript">
function gotourl(url,sname,swidth,sheight,sreplace,sclose)
{
var objNewWin;
if (swidth=="") swidth = "790";
if (sheight=="") sheight = "480";
if (sreplace=="") sreplace = false;
if (sclose=="") sclose = false;
objNewWin = window.open(url,sname,"fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=1,width=" + swidth + ",height=" + sheight + ",top=200,left=200",sreplace);
if (sclose) window.close();
objNewWin.focus();
}
</script>
</head>
<!--Here Edit your Script Code-->
<script language="vbscript">
function delDlr(lbbh)
if (confirm("确定删除吗？")) then
window.location="Document_Gwbl_Dlr_List.asp?SortID="&lbbh
end if
end function
</script>
<body topmargin="10" leftmargin="10">
<% dim SortID
SortID=Request.querystring("SortID")
if SortID<>"" then
sqlDel="delete from tbioaOffice_Bldlr where SortID="&SortID&" and UserID="&LoginID
oConn.execute(sqlDel)
end if
%>
<table width=98% class=tabletoolbar border=0 align=center>
<tr valign=center><td align=left nowrap><img src="../images/icon_title.gif" align="absmiddle"> 公文办理>>指定代理人</td>
<td align=right valign=bottom nowrap>
<input type="button" class="button0" onmouseout=className="button0" onmouseover=className="button1" value="新增其他类别的代理人" onclick="javascript:gotourl('Document_Gwbl_Dlr_Add.asp','adddlr','300px','120px',false,false);" id=button1 name=button1>
<input type="button" class="button0" onmouseout=className="button0" onmouseover=className="button1" value="返回" onclick="javascript:window.location='Document_Gwbl_List.asp';" id=button1 name=button1>
</td></tr>
</table>
<hr width="100%" size=1 color="#000000">
<br>
<table border=0 cellspacing='1' cellpadding='2' width=400 align=center class=tab>
<form name="frmxx" id="frmxx" method="post">
<input type="hidden" name="pageno" value="">
<tr class="tdTop">
<td align="center" width="220"><nobr>公文类别</nobr></td>
<td align="center"><nobr>我委托的代理人</nobr></td>
<td align="center" width="40"><nobr>操作</nobr></td>
</tr>
<%
set rs = server.CreateObject("ADODB.RecordSet")
ssql = "select * from (select doc_sort,id from tbioaOffice_Document_Sort) a inner join(select SortID,UserID,DlrID from tbioaOffice_Bldlr where UserID="&LoginID&") b on (a.id=b.SortID) inner join(select Name,ID from tbioaUser) c on b.DlrID=c.ID"
'Response.Write ssql
rs.Open ssql,oConn,1,1
ii = 1
do while not rs.EOF
%>
<%if ii mod(2)=0 then%>
<tr class=td1>
<%else%>
<tr class=td2>
<%end if%>
<td align="left" width="120">
<nobr><%=server.HTMLEncode(rs("doc_sort"))%></nobr>
</td>
<td align="left">
<nobr><%=server.HTMLEncode(rs("Name")&"")%></nobr>
</td>
<td align="center" width="30">
<nobr><img src="../images/icon_dele1.gif" alt="删除" style="cursor:hand" onclick="vbscript:delDlr('<%=rs("SortID")%>')"></nobr>
</td>
</tr>
<%
ii = ii + 1
rs.MoveNext
loop
rs.Close
%>
<tr class=tdbottom>
<td height=10 class="listtail" colspan=3 align="right">
</td></tr>
<tr class="tdTop">
<td align="center" width="120"><nobr>公文类别</nobr></td>
<td align="center" colspan="2"><nobr>下列人员指定我为代理人</nobr></td>
</tr>
<!--Here Insert your listdata Code-->
<%
ssql = "select * from (select doc_sort,id from tbioaOffice_Document_Sort) a inner join(select SortID,UserID,DlrID from tbioaOffice_Bldlr where DlrID="&LoginID&") b on (a.id=b.SortID) inner join(select Name,ID from tbioaUser) c on b.UserID=c.ID"
rs.Open ssql,oConn,1,1
ii = 1
do while not rs.EOF
%>
<%if ii mod(2)=0 then%>
<tr class=td1>
<%else%>
<tr class=td2>
<%end if%>
<td class=listcellrow align="left" width="120">
<nobr><%=server.HTMLEncode(rs("doc_sort"))%></nobr>
</td>
<td class="listcellrow" align="left" colspan="2">
<nobr><%=server.HTMLEncode(rs("Name")&"")%></nobr>
</td>
</tr>
<%
ii = ii + 1
rs.MoveNext
loop
rs.Close
set rs = nothing
%>
<tr class=tdbottom>
<td height=10 class="listtail" colspan=3 align="right">
</td></tr>
</form>
</table>
</body>
</html>
<%'释放对象变量
oConn.close
set oConn=nothing
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -