📄 findfawen.asp
字号:
<!--#include file="check.asp"-->
<!--#INCLUDE FILE="connect.asp" -->
<!--#INCLUDE FILE="checksql.asp" -->
<html>
<head>
<title>办公自动化（OA）</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="apply.css" type="text/css">
</head>
<%set rs=server.createobject("adodb.recordset")
select case session("power")
case 1
miji="miji in('普通')"
case 2
miji="miji in('秘密','普通')"
case 3
miji="miji in('绝密','秘密','普通')"
end select
timestart=checksql(request("timestart"))
timeend=checksql(request("timeend"))
keywords=checksql(request("keywords"))
zihao=checksql(request("zihao"))
if request("timeend")="" and request("timestart")="" then
sql="select writename,id,wenhao,title,donetime from fawen where status=1 and wenhao like '%"& request("zihao") &"%' and title like '%"& request("keywords") &"%' and "&miji&" order by donetime desc"
end if
if request("timeend")="" and request("timestart")<>"" then
sql="select writename,id,wenhao,title,donetime from fawen where status=1 and wenhao like '%"& request("zihao") &"%' and title like '%"& request("keywords") &"%' and donetime>#"&request("timestart")&"# and "&miji&" order by donetime desc"
end if
if request("timeend")<>"" and request("timestart")="" then
sql="select writename,id,wenhao,title,donetime from fawen where status=1 and wenhao like '%"& request("zihao") &"%' and title like '%"& request("keywords") &"%' and donetime<#"&request("timeend")&"# and "&miji&" order by donetime desc"
end if
if request("timeend")<>"" and request("timestart")<>"" then
sql="select writename,id,wenhao,title,donetime from fawen where status=1 and wenhao like '%"& request("zihao") &"%' and title like '%"& request("keywords") &"%' and donetime>#"&request("timestart")&"# and donetime<#"&request("timeend")&"# and "&miji&" order by donetime desc"
end if
rs.open sql,conn,1,1
TSum=1
PageNo=CLng(REQUEST("PageNo"))
mypage=10
rs.pagesize=CINT(mypage)
if PageNo="" or PageNo=0 then
PageNo=1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if
if not rs.eof then
TSum=INT(rs.RECORDCOUNT/Mypage*-1)*-1
rs.absolutepage=PageNo
RowCount=rs.PageSize
end if
%>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="50" align="center" colspan="4"><img src="images/findfawen.gif">
</td>
</tr>
<tr>
<td height="26" colspan="4">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="26" bgcolor="#D4DEF4">
<tr height=1>
<td bgcolor="#A7BAE4" height="1" colspan="2"></td>
</tr>
<tr>
<td width="3%" align="center"> </td>
<td> 共计<%=tsum%>页,目前第<font color="#ff5bad"><%=PageNo%></font>页,共查询到
<font color="#ff5bad"><%=rs.recordcount %></font>个发文 </td>
</tr>
<tr height=1>
<td bgcolor="#A7BAE4" height="1" colspan="2"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="26" bgcolor="E7ECF7">
<tr>
<td width="16%" align="center" height="25">发 文 号</td>
<td align="center" width="51%" height="25"> 标 题</td>
<td align="center" width="14%" height="25">拟 稿 人</td>
<td align="center" width="19%" height="25">归档时间</td>
</tr>
<tr height="1">
<td bgcolor="#C9E9FC" colspan="4"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
</table>
</td>
</tr>
<%if rs.eof then %>
<tr height="1">
<td bgcolor="#ffffff" colspan="4"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<tr bgcolor="#F5FAFD" align="center">
<td height="26" colspan="4" class="f6wait">没有找到相应的内容</td>
</tr>
<tr height="1">
<td bgColor="#D6E1F8" colspan="4"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<% else %>
<% for i=1 to mypage
if rs.eof then exit for
%>
<tr height="1">
<td bgcolor="#ffffff" colspan="4"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<tr bgcolor="#F5FAFD">
<td height="26" width="16%" bgcolor="#F5FAFD" align="center"> <a href="readfawengd.asp?flowid=<%=rs("id")%>" class="aapply"><%=rs("wenhao")%></a></td>
<td height="26" width="51%" align="center"><a href="readfawengd.asp?flowid=<%=rs("id")%>" class="aapply">
<%temp=""&rs("title")
if len(temp)>20 then
temp=left(temp,20)&"…"
end if
response.write(temp)
%>
</a></td>
<td height="26" width="14%" align="center" class="applygz"><%=rs("writename")%></td>
<td height="26" width="19%" align="center" class="applygz"><%=rs("donetime")%></td>
</tr>
<tr height="1">
<td bgColor="#D6E1F8" colspan="4"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<%
rs.movenext
next
end if
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="26" bgcolor="#D4DEF4">
<tr height=1>
<td bgcolor="#A7BAE4" height="1"></td>
</tr>
<tr>
<td align="center"> <a href="findwork.asp" class="aapply">转到公文查询</a>
<%
if (PageNo*mypage-mypage)>0 then
PrwePage=PageNo-1
response.write "<a href='findfawen.asp?timestart="×tart&"&timeend="&timeend&"&keywords="&keywords&"&zihao="&zihao&"&PageNo="&PrwePage&"' class='aapply'>上一页</a> "
else
response.write "上一页 "
end if
if (PageNO*mypage)<rs.recordcount then
NextPage=PageNo+1
response.write" <a href='findfawen.asp?timestart="×tart&"&timeend="&timeend&"&keywords="&keywords&"&zihao="&zihao&"&PageNo="&NextPage&"' class='aapply'>下一页</a>"
else
response.write" 下一页"
end if
%>
<a href="javascript:history.go(-1)" class="aapply">返 回</a>
</td>
</tr>
<tr height=1>
<td bgcolor="#A7BAE4" height="1"></td>
</tr>
</table>
</div>
<!--#include file="close.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -