?? dir_searched.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") '上次查詢條件
'------------------------------------------------
'------------------------------------------------取記錄
'分頁取記錄 （返回rs對象）
'rs.recordcount 為記錄總數
'rs.PageSize 為本頁記錄數
'
'接受查詢參數
FLH=Request("FLH")'分類號
FLH_Mod=Request("FLH_Mod")'是否搜索下級目錄
DocMod=Request("DocMod")'收發文
DocFileNo=Request("DocFileNo")'文號包含
Subject=Request("Subject")'標題包含
DC_Doc_Sort=Request("DC_Doc_Sort")'報表類別
DC_Doc_Security=Request("DC_Doc_Security")'報表密級
File_Date=Request("File_Date")'歸檔日期
File_Date_end=Request("File_Date_end")'歸檔日期(結束)
File_Save=Request("File_Save")'保存日期
File_Save_end=Request("File_Save_end")'保存日期(結束)
'查尋條件
if Search="" then
Search="WHERE "
if FLH<>"" then
if FLH_Mod<>"" then
Search=Search & "FLH like '"&FLH&"%' AND "
else
Search=Search & "FLH = '"&FLH&"' AND "
end if
end if
if DocMod<>"" then Search=Search & "DocMod = '"&DocMod&"' AND "
if DocFileNo<>"" then Search=Search & "DocFileNo Like '%"&DocFileNo&"%' AND "
if Subject<>"" then Search=Search & "Subject Like '%"&Subject&"%' AND "
if DC_Doc_Sort<>"" then Search=Search & "DC_Doc_Sort = '"&DC_Doc_Sort&"' AND "
if DC_Doc_Security<>"" then Search=Search & "DC_Doc_Security = '"&DC_Doc_Security&"' AND "
if File_Date<>"" then Search = Search & "File_Date>='" & cdate(File_Date) & "' and "
if File_Date_end<>"" then Search = Search & "File_Date<='" & cdate(File_Date_end) & "' and "
if File_Save<>"" then Search = Search & "File_Save>='" & cdate(File_Save) & "' and "
if File_Save_end<>"" then Search = Search & "File_Save<='" & cdate(File_Save_end) & "' and "
Search=Search & "1=1"
END if
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from tbioaDocument_File " & Search & " order by ID desc"
rs.open sql,oConn,1,1
Showpage=Paging(rs,maxmessage,currentpage,"Search="&Server.URLencode(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 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">
<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">查詢結果列表：<%=Showpage%></td>
<td align="right" nowrap valign="top">
<input type="button" class="button0" onmouseout=className="button0" onmouseover=className="button1" value="刪除" onclick="javascript:delcheck()">
</td>
</tr>
</table>
<table width="98%" cellspacing="1" cellpadding="2" class="tab" align="center">
<form method="post" name="form_del">
<tr class="tdTop">
<td align="center" nowrap>文號</td>
<td align="center" nowrap>名稱</td>
<td align="center" width="70" nowrap>類別</td>
<td align="center" width="120" nowrap>修改日期</td>
<td align="center" width="50" nowrap>處理</td>
</tr>
<%
for i = 0 to rs.PageSize-1
If rs.EOF Then Exit For
%>
<tr>
<td class="td1" nowrap><%=rs("DocFileNo")%></td>
<td class="td1" nowrap>
<input type="checkbox" name="del_sign_da" value="<%=rs("ID")%>" <%if rs("File_Save")>=date then response.write "disabled"%>><img border="0" src="../images/document.gif">
<%if not rs("ZFBZ") then%>
<a href="javascript:WindowOpen('../Documents/DocumentShow.asp?RecordID=<%=rs("RecordID")%>&GZDBH=<%=rs("GZDBH")%>');" title="查看文檔信息"><%=server.HTMLEncode(rs("Subject"))%></a>
<%else%>
<span disabled><strike><%=server.HTMLEncode(rs("Subject"))%></strike> (作廢)</span>
<%end if%>
</td>
<td class="td1" align="center" nowrap><%=GetTableValue("tbioaOffice_Document_Sort","doc_sort","id",rs("DC_Doc_Sort"))%></td>
<td class="td1" align="center" nowrap><%=rs("File_Date")%></td>
<td class="td1" align="center" nowrap>
<a href="Document_File_Gd.asp?RecordID=<%=rs("RecordID")%>" title="修改文檔信息">
<img src="../images/icon_edit.gif" border="0" align="left">修改</a>
</td>
</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 + -