📄 announce.asp
字号:
<html>
<head>
<title>∷公文传输系统|电子公文交换系统|文件传输系统|办公自动化系统|公文管理系统|文档管理软件|公文上报系统|政务信息上报系统 ——智元软件</title>
<META name="keywords" content="公文传输系统 电子公文交换系统 企业文档传输系统 文件传输系统 办公自动化系统 公文管理系统 企业文档管理软件 公文上报系统 政务信息上报系统 智元软件">
<META content="智元软件公文传输系统实现党政机关企事业单位部门与部门之间，单位与单位之间公文上报和下发。我们致力于为您提供操作简便、直观实用、价格便宜的公文交换软件，可直接在线或下载试用，每套系统仅售1200元。上百家成功应用客户案例和我们诚信专业完善的售后服务，是您信任我们的基础。" name="description">
<LINK href="img/Forum.css" type=text/css rel=stylesheet>
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checkuser.asp"-->
<!--#include file="asp/style.asp"-->
<STYLE>.navPoint {
FONT-SIZE: 9pt; CURSOR: hand; COLOR: navy; FONT-FAMILY: Webdings
}
</STYLE>
<LINK href="img/Forum.css" type=text/css rel=stylesheet>
<SCRIPT language=javascript src="css/init.js"></SCRIPT>
</HEAD>
<BODY topMargin=0 rightMargin=0 leftMargin=0>
<!--#include file="asp/top.asp"-->
<br>
<TABLE borderColor=#cccccc cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width=90% align=center border=1>
<TBODY>
<TR>
<TD align=middle vAlign=top>
<%
set conn=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from newnotice "
'查询开始
'--------------------------------------------------
if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
if request("title")<>"" or request("content")<>"" then
sql= sql &" where "
end if
if request("title")<>"" then
sql=sql&" title like '%"&request("title")&"%'"
end if
if request("content")<>"" then
if request("title")<>"" then
sql=sql&" and content like '%"&request("content")&"%'"
else
sql=sql&" content like '%"&request("content")&"%'"
end if
end if
end if
'-----------------------------------------------------------------------------
'查询结束
' if request("id")<>"" then
' sql=sql & " where id=" & request("id")
' rs.open sql,conn,1
' else
sql=sql&" order by id desc"
rs.open sql,conn,1
if not rs.EOF and not rs.BOF then
pagecount=20
rs.PageSize =pagecount
curpage=cint(request("page"))
if curpage<1 then curpage=1
if curpage>=rs.PageCount then curpage=rs.PageCount
rs.AbsolutePage =curpage
%>
<TABLE cellSpacing=1 cellPadding=0 width="100%" border=0>
<TBODY>
<TR height="30">
<TD noWrap width=50 bgColor=#cccccc align="center"><A href="announce.asp">刷新</A> </TD>
<TD align=right width="100%" bgColor=#cccccc>
<FORM name=frmList action=announce.asp method=post>
<TABLE cellSpacing=0 cellPadding=0 width="98%" align=center border=0>
<TBODY>
<TR>
<TD vAlign=center noWrap>
<%
response.write "<div align=right>"
response.write "第" + cstr(curpage) + "页/总" + cstr(rs.pagecount) + "页 "
response.write "每页" + cstr(pagecount) + "条/共" + cstr(rs.recordcount) + "条 "
if curpage = 1 then
response.write "首页 前页 "
else
response.write "<a href='announce.asp?page=1'>首页</a> <a href='announce.asp?page=" + cstr(curpage-1) + "'>前页</a> "
end if
if curpage = rs.pagecount then
response.write "后页 末页 "
else
response.write "<a href='announce.asp?page=" + cstr(curpage+1) + "'>后页</a> <a href='announce.asp?page=" + cstr(rs.pagecount) + "'>末页</a>"
end if
%>
</TD></TR></TBODY></TABLE><!--for bbs--><INPUT
type=hidden name=BoardID> <INPUT type=hidden name=Status> <!--bbs end --><!--for notes--><INPUT type=hidden value=" "
name=WhereStr> <!--notes end --><!-- for document--><INPUT
type=hidden name=clsid> <INPUT type=hidden name=clsstr> <!-- document end--></FORM></TD></TR></TBODY></TABLE></CENTER></DIV>
<DIV align=center>
<CENTER>
<TABLE cellSpacing=1 cellPadding=0 width="100%" border=0 bgcolor="#FFFFFF">
<TBODY>
<%
color=false
count=0
do while not rs.EOF and count<pagecount
if color then
bg="#eeeeee"
else
bg="#ffffff"
end if%>
<tr bgcolor="<%=bg%>" height="30">
<TD align=left bgColor="<%=bg%>"> <%=rs("jointime")%> <a href="javascript:openScript1('showtg.asp?id=<%=rs("id")%>',600,500)"><b><%=rs("title")%></b></a>
<%
set rs1=server.CreateObject("adodb.recordset")
sql="select name from userinf where username='"&rs("username")&"'"
rs1.open sql,conn,1
Response.Write "("&rs1("name")&")"
rs1.close
set rs1=nothing
%></TD>
</TR>
<%
rs.MoveNext
count=count+1
color=not color
loop
else
'无通报
Response.Write "没有符合条件的通报"
Response.End
end if
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
</TBODY>
</TABLE>
</TR></TBODY></TABLE></tr></table>
<!--查询开始-->
<FORM name=FrmSearch action=announce.asp method=post>
<TABLE width="90%" border=0 align="center" cellPadding=0 cellSpacing=1 bgcolor="#cccccc">
<TBODY>
<TR bgcolor="#eeeeee">
<TD colspan="3" align=center height=20>-- <b>查询公告</b> --</TD>
</TR>
<TR bgcolor="#ffffff">
<TD colspan="3" align="center"><table width="60%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>标题:
<INPUT name=Title class=smallinput size=14></td>
<td>内容:
<INPUT name=content class=smallinput size=14></td>
<td><INPUT class=buttonface type=submit size=10 value=查询 name=B1>
<INPUT class=buttonface type=reset size=10 value=重写 name=B2></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
</FORM><!--查询结束-->
<P>
<!--#include file="footer.htm"-->
<p></P></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -