📄 document_search.asp
字号:
<%
'功能：公文搜索
'修改：展亮
'2004-6-5 13:49
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
Response.Expires=0
Response.Buffer=true
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css">
<title>公文查询</title>
<script language="javascript">
<!--
function doSearch()
{
var s = new Object();
s.gzdbh=frmxx.gzdbh.value;
s.Step=frmxx.Step.value;
s.DocMod=frmxx.DocMod.value;
s.DocFileNo=frmxx.DocFileNo.value;
s.Subject=frmxx.Subject.value;
s.DC_Doc_Sort=frmxx.DC_Doc_Sort.value;
s.DC_Doc_Security=frmxx.DC_Doc_Security.value;
s.DC_Doc_Exigence=frmxx.DC_Doc_Exigence.value;
window.returnValue=s;
window.close();
}
//-->
</script>
</head>
<body class="tdbottom">
<table align="center" width="300" class="InputFrameMain"><tr><td><table border=0 cellspacing='1' cellpadding='2' width=100% align=center class=tab>
<form name="frmxx" id="frmxx" action="" method="post">
<tr class=td1>
<td class="td2" width="80"><nobr>办理状态</nobr></td>
<td class="td1" width="200">
<select style="width:200" name="gzdbh" id="gzdbh">
<option value="">全部</option>
<%call SOptions("tbioaOffice_Flow_Bldy","BLGZMC")%>
</select>
</td>
</tr>
<tr class=td1>
<td class="td2" width="80"><nobr>当前状态</nobr></td>
<td class="td1" width="200">
<select style="width:200" name="Step" id="Step">
<option value="">全部</option>
<option value="GD">待归档</option>
<option value="YG">已归档</option>
<option value="XH">已销毁</option>
<%call SOptions("tbioaOffice_Flow_Bldy","BLGZMC")%>
</select>
</td>
</tr>
<tr class=td1>
<td class="td2" width="80"><nobr>收发文</nobr></td>
<td class="td1" width="200">
<select style="width:200" name="DocMod" id="DocMod">
<option value="">全部</option>
<option value="收文">收文</option>
<option value="发文">发文</option>
</select>
</td>
</tr>
<tr class=td1>
<td class="td2" width="80"><nobr>文号包含</nobr></td>
<td class="td1" width="200">
<input type="text" class="input" style="width:200" name="DocFileNo" id="DocFileNo">
</td>
</tr>
<tr class=td1>
<td class="td2" width="80"><nobr>标题包含</nobr></td>
<td class="td1" width="200">
<input type="text" class="input" style="width:200" name="Subject" id="Subject">
</td>
</tr>
<tr class=td1>
<td class="td2" width="80"><nobr>公文类别</nobr></td>
<td class="td1" width="200">
<select style="width:200" name="DC_Doc_Sort" id="DC_Doc_Sort">
<option value="">全部</option>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select * from tbioaOffice_Document_Sort order by id",oConn,1,1
do while not rs.eof
%>
<option value="<%=rs("id")%>"><%=server.HTMLEncode(rs("doc_sort") & "")%></option>
<%
rs.movenext
loop
rs.close
%>
</select>
</td>
</tr>
<tr class=td1>
<td class="td2" width="80"><nobr>公文密级</nobr></td>
<td class="td1" width="200">
<select style="width:200" name="DC_Doc_Security" id="DC_Doc_Security">
<option value="">全部</option>
<option value='普通'>普通</option>
<option value='秘密'>秘密</option>
<option value='机密'>机密</option>
<option value='绝密'>绝密</option>
</select>
</td>
</tr>
<tr class=td1>
<td class="td2" width="80"><nobr>紧急程度</nobr></td>
<td class="td1" width="200">
<select style="width:200" name="DC_Doc_Exigence" id="DC_Doc_Exigence">
<option value="">全部</option>
<option value="一般">一般</option>
<option value="紧急">紧急</option>
<option value="特急">特急</option>
</select>
</td>
</tr>
</form>
</table></td></tr></table>
<table width=100%>
<tr>
<td align="middle" colspan="2">
<input type=button class="button0" onmouseout=className="button0" onmouseover=className="button1" value=确定 name="bQD" id="bQD" onclick="javascript:doSearch();">
<input type=button class="button0" onmouseout=className="button0" onmouseover=className="button1" value=放弃 name="bFQ" id="bFQ" onclick='vbscript:window.close'>
</td>
</tr>
</table>
</BODY>
</html>
<%
oConn.Close
set rs = nothing
set oConn = nothing
%>
<%
Function SOptions(TableName,Field)
'下拉菜单(表名,字段名)-----------------------
set Rstmp=server.createobject("adodb.recordset")
str = "select * from "& TableName &" order by BLGZBH"
Rstmp.open str,oConn,1,1
while not Rstmp.eof
response.write "<option value="&Rstmp("BLGZBH")&">"&server.htmlencode(trim(Rstmp(field))) & vbcrlf
Rstmp.MoveNext
wend
Rstmp.close
set Rstmp=nothing
End Function
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -