⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 notice.asp

📁 功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来看下.
💻 ASP
字号:
<!--#include file="check.asp"-->
<!--#INCLUDE FILE="connect.asp" --> 

<html>
<head>
<title>公告牌</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="apply.css" type="text/css">
</head>
<script language=javascript src="apply.js">
</script>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false">
<form name="form" method="post" action="notice.asp">
  <table width="100%" border="0" cellspacing="0" cellpadding="0" height="44">
    <tr>
      <td height="50" class="title" align="center"><img src="images/ggp.gif"></td>
    </tr>
  </table>
  <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="F5FAFD">
    <tr> 
      <td height="26"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%" bgcolor="#BADCFC">
          <tr height=1> 
            <td colspan=5 bgcolor="#66AAE3" height="1"></td>
          </tr>
          <tr> 
            <td width="4%" align="right">&nbsp;</td>
            <td width="29%" align="center"> 标   题</td>
            <td width="39%" align="center"> 内   容</td>
            <td align="center" width="17%">发布时间:</td>
            <td align="center" width="11%">阅读次数:</td>
          </tr>
          <tr height=1> 
            <td colspan=5 bgcolor="#66AAE3" height="1"></td>
          </tr>
        </table>
      </td>
    </tr>
    <!--#include file="checksql.asp"-->
    <%set rs=server.createobject("adodb.recordset")
		title=checksql(request("title"))
		sql="select * from news where title like '%"& title &"%' or news like '%"& title &"%' order by id desc"
		 rs.open sql,conn,1,1
		  mypage=9
		rs.pagesize=CINT(mypage)
	 PageNo=CLng(REQUEST("PageNo"))
	 TSum=1
	 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	 
	  nowrecord=0
	  end if
				  		   %>
		<%if rs.eof then %>
		<tr height="1">
                      <td bgcolor="#ffffff"><img src="images/spacer.gif" width="1" height="1"></td>
                    </tr>  
	<tr> 
      <td height="26"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
          <tr bgcolor='#F5FAFD'> 
            <td align="center" class="f6wait">没有发布公告</td>
          </tr>
        </table>
      </td>
    </tr>
	 <tr height="1">
   <td bgcolor="#C9E9FC"><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"><img src="images/spacer.gif" width="1" height="1"></td>
                    </tr>  
	<tr> 
      <td height="26"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
          <tr bgcolor='#F5FAFD'> 
            <td width="2%" align="center"> <a href="news.asp?id=<%=rs("id")%>" onClick="return OpenWindows(this.href)" class="flow"> 
              </a> </td>
            <td width="32%" align="left"><a href="news.asp?id=<%=rs("id")%>" onClick="return OpenWindows(this.href)" class="flow"> 
              <%temp=""&rs("title")
					if len(temp)>20 then
					temp=left(temp,20)&"…"
					end if
					response.write(temp)
					%>
              </a></td>
            <td width="38%" align="left"> <a href="news.asp?id=<%=rs("id")%>" onClick="return OpenWindows(this.href)" class="flow"> 
              <%
			  temp=""&rs("news")
			  temp=replace(temp,"<br>","  ")
			 if len(temp)>20 then
			 temp=left(temp,20)&"…"
			 end if
			 response.write(temp)
			  %>
              </a> </td>
            <td class="applygz" align="center" width="17%"><%=rs("senddate")%></td>
            <td class="applygz" align="center" width="11%"> 
              <%
			temp=CLng(rs("clicknum"))
			if temp>10 then
			response.write "<font class=numberbold>"&temp&"</font>"
			else response.write temp
			end if
			%>
            </td>
          </tr>
        </table>
      </td>
    </tr>
	 <tr height="1">
   <td bgcolor="#C9E9FC"><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="#BADCFC">
    <tr height=1> 
      <td colspan=3 bgcolor="#66AAE3" height="1"></td>
    </tr>
    <tr>
      <td width="54%" align="right"> 
        <%	if (PageNo*mypage-mypage)>0 then
		   PrwePage=PageNo-1   
	   response.write "<a href='notice.asp?title="&title&"&PageNo="&PrwePage&"' class='aapply'>上一页</a>&nbsp" 
	   else
	   response.write "上一页&nbsp"
	   end if
	   if (PageNO*mypage)<rs.recordcount then
	   NextPage=PageNo+1   
	   response.write"&nbsp;<a href='notice.asp?title="&title&"&PageNo="&NextPage&"' class='aapply'>下一页</a>"  
	   else
	     response.write"&nbsp;下一页" 
		 end if
		
    %>
        页次:<font color="#ff5bad"><%=PageNo%></font>/<%=tsum%>页 &nbsp;查询: 
        <input class="boxinput" type="text" name="title" size="10" tableindex=1 maxlength="10" value="<%=request("title")%>">
      </td>
      <td width="11%" align="center" valign="bottom"> 
        <input type="image" name="find3" value="查 找" src="images/findgif.gif" alt="查找">
      </td>
      <td width="35%" valign="bottom"> 
        <input type="image" name="find22" onClick="history.go(-1);return false;" src="images/fanhuigif.gif" width="71" height="19" alt="返回">
      </td>
    </tr>
    <tr height=1> 
      <td colspan=3 bgcolor="#66AAE3" height="1"></td>
    </tr>
  </table>
  <table width="60%" border="0" cellspacing="0" cellpadding="0" align="center" height="40">
    <tr> 
      <td > 
        <div align="center" class="9blue">注:可以对公告内容或标题进行查询,如“五一放假安排”、“节假日值班”</div>
      </td>
    </tr>
  </table>
</form>

<!--#INCLUDE FILE="close.asp" -->
</body>
</html>

⌨️ 快捷键说明

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