📄 search_list.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<%
'功能：档案目录列表
'作者：展亮
'日期：2004-6-5 23:20
%>

<!--#include file="../inc/NoCatch.asp"-->
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!--#include file="./inc/flt.asp"-->

<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
maxmessage=20 '每页显示记录数
currentpage=request("page") '当前页码
Search=request("Search") '上次查询条件
'------------------------------------------------
'------------------------------------------------
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<script language="javascript">
function folderin(flh)
{
 if(parent.left.div_tree.style.display!='none'){
   parent.left.openBranch(flh,parent.left.foldersTree);
   parent.left.dfwh(flh);
 }else{
   window.location="?flh="+flh;
 } 
}

function xzfl(flh)
{
 if((flh.length)>=20){
   alert("当前分类级数已为10级，不能再新增分类");
 }else{
   window.location="dir_add.asp?sjflh="+flh;
 }
}

function delcheck()
{var j,k
j=0
k=0
for (var i=0;i<form_del.elements.length;i++)
    {
    var e = form_del.elements[i];
    if (e.checked!=false)
    {
    if (e.name=="del_sign_fl"){
      k=k+1;}
       j=j+1;}
     
           }
if (j==0){
alert("请选择要删除的文档或类目");
}
else
{
  if (k!=0)
    {  if (confirm('您要删除的对象包括分类，此分类下的子分类和文档都将被删除，确实要删除么？')) 
	  {document.form_del.action="dir_del.asp";
	  document.form_del.submit();}
   
    }
  else
     { if (confirm('所选中的文档都将被删除，确实要删除么？')) 
	 {document.form_del.action="dir_del.asp";
	 document.form_del.submit();}
	 }
 }


}
</script>

<SCRIPT language=javascript>
function WindowOpen(strURL){
  DocumentWin = window.open(strURL,"","toolbar=no,menubar=no,scrollbars=yes,resizable=yes,location=no,status=no");
  DocumentWin.focus();
}
</SCRIPT>
</head>
<body topmargin="0" leftmargin="0">
<%dim rs,sql,sjflh
sjflh=Request.QueryString("flh")
if sjflh="" then sjflh="0"

'取得目录管理权限
TmpSQL="select GLQX from tbioaDocument_Sort_Dep where FLH='"&sjflh&"' and DEPID="&Session("DepID")
set TmpRS=Server.CreateObject("ADODB.RecordSet")
TmpRS.open TmpSQL,oconn,1,1
if TmpRS.eof then
	Sort_Manage=0
else
	Sort_Manage=instr(","&TmpRS("GLQX")&"," , ","&LoginID&",")
end if
TmpRS.close
%>

<div style="font: bold 14px/20px; color: #ffffff; background-color: #2951AD; width: 100%; padding-top: 2px; padding-Left: 10px; margin-bottom:5px;">文档管理</div>
<table width="98%" class="tabletoolbar" border="0" cellspacing="1" cellpadding="0" align="center">
	<tr>
		<td align="left"><%call flt(sjflh,"search_list.asp")%></td>
		<td align="right" nowrap valign="top">
		    <%if Sort_Manage>0 then%>
			<input type="button" class="button0" onmouseout=className="button0" onmouseover=className="button1" value="新增分类" onclick="javascript:xzfl('<%=sjflh%>')">
			<input type="button" class="button0" onmouseout=className="button0" onmouseover=className="button1" value="删除" onclick="javascript:delcheck()">
		    <%end if%>
		</td>
	</tr>
</table>

<table width="98%" cellspacing="1" cellpadding="2" class="tab" align="center">
<form method="post" name="form_del">
<input type="hidden" name="sjflh" value="<%=sjflh%>">
	<tr class="tdTop">
		<td align="center" nowrap>名称</td>
		<td align="center" width="70" nowrap>类别</td>
		<td align="center" width="120" nowrap>修改日期</td>
		<%if Sort_Manage>0 then%>
		<td align="center" width="50" nowrap>处理</td>
		<%end if%>
	</tr>
<%
if sjflh="0" or sjflh="00" then
	sql="select * from tbioaDocument_Sort_Dep where (sjflh='0' or sjflh='00') and DEPID="&Session("DepID")
else
	sql="select * from tbioaDocument_Sort_Dep where sjflh='"&sjflh&"' and DEPID="&Session("DepID") 
end if
set rs=oConn.execute(sql)
if not rs.eof and not rs.bof then
do while not rs.eof
%> 
<tr>
	<td class="td1" nowrap>
	  <%if Sort_Manage>0 then%><input type="checkbox" name="del_sign_fl" value="<%=rs("flh")%>" <%if rs("SCQXBZ")="0" or GetTableNum("tbioaDocument_File_Dep","Where FLH='"&rs("flh")&"'") or GetTableNum("tbioaDocument_Sort_Dep","Where SJFLH='"&rs("flh")&"'") then response.write "disabled"%>><%end if%><img border="0" src="../images/dir.gif">
	  <a href="javascript:folderin('<%=rs("flh")%>')" title="进入此分类"><%=server.HTMLEncode(rs("lmmc"))%></a>
	</td>
	<td class="td1" align="center" nowrap>文件夹</td>
	<td class="td1" align="center" nowrap><%=rs("zhxgsj")%></td>
	<%if Sort_Manage>0 then%>
	<td class="td1" align="center" nowrap>
	  <%if rs("SCQXBZ")="1" then%>
	    <a href="dir_edit.asp?flh=<%=rs("flh")%>" title="修改类目信息">
	    <img src="../images/icon_edit.gif" border="0" alt="修改" align="left">修改</a>
	  <%else%>
	    <div disabled><img border="0" src="../images/icon_edit.gif" align="left" style="filter:xray"> 修改</div>
	  <%end if%>
	</td>
	<%end if%>
</td>
</tr>
<%rs.movenext
loop
end if
'-------------------------------------------------------------
if Search="" then
	Search="WHERE "
	Search=Search & "FLH='" & sjflh & "' and DEPID="&Session("DepID")
END if
Where=Search & " AND ','+CXQX+',' like ('%,"&LoginID&",%')"
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from tbioaDocument_File_Dep " & Where & " order by ID desc"
rs.open sql,oConn,1,1
Showpage=Paging(rs,maxmessage,currentpage,"Search="&Server.URLencode(Search)&"&FLH="&sjflh)
%>
<tr><td class="tdBottom" nowrap colspan="5">&nbsp;文件列表：<%=Showpage%>&nbsp;</td></tr>
<%
for i = 0 to rs.PageSize-1
  If rs.EOF Then Exit For
%>
<tr>
	<td class="td1" nowrap>
	  <%if Sort_Manage>0 then%><input type="checkbox" name="del_sign_da" value="<%=rs("ID")%>"><%end if%><img border="0" src="../images/document.gif">
	  <a href="javascript:WindowOpen('../Documents/DocumentShow.asp?RecordID=<%=rs("RecordID")%>&GZDBH=<%=rs("GZDBH")%>');" title="查看文档信息"><%=server.HTMLEncode(rs("Subject"))%></a>
	</td>
	<td class="td1" align="center" nowrap>文档文件</td>
	<td class="td1" align="center" nowrap><%=rs("File_Date")%></td>
	<%if Sort_Manage>0 then%>
	<td class="td1" align="center" nowrap>
	  <a href="Document_File_Gd_S.asp?RecordID=<%=rs("RecordID")%>" title="修改文档信息">
	  <img src="../images/icon_edit.gif" border="0" align="left">修改</a>
	</td>
	<%end if%>
</tr>
<%
  rs.movenext
next
rs.close
set rs=nothing
oConn.close
set oConn=nothing
%>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -