📄 notice.asp

📁 学校勤工助学管理网站功能可管理考勤计算工资并进行等级评估。

💻 ASP

字号:

<%@language=vbscript codepage=936 %>
<!--#include file="database/conn.asp"--> 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
</head>
<body>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="600" align="center" valign="top"> 
     
     
      <form name="del" method="Post" action="" onsubmit="return ConfirmDel();">
        <table width="600" border="0" cellpadding="0" cellspacing="2">
          <tr bgcolor="#A4B6D7"> 
            <td height="25">
<%
if 1=1 then
dim leixin
  leixin="3"
	sql="select * from news where titletype="&leixin
	Set rs= Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,1,1
 	
 
%></td>
            <td width="150">&nbsp; 
              <%
  	if rs.eof and rs.bof then
		    response.Write(" Now NO news !!</td></tr></table>")
 	else
    	totalPut=rs.recordcount
		if currentpage<1 then
       		currentpage=1
    	end if
    	if (currentpage-1)*MaxPerPage>totalput then
	   		if (totalPut mod MaxPerPage)=0 then
	     		currentpage= totalPut \ MaxPerPage
		  	else
		      	currentpage= totalPut \ MaxPerPage + 1
	   		end if

    	end if
 		'response.Write "共找到 " & totalPut & " 条公告"
%> </td>
          </tr>
        </table>
                <table class="border" border="0" cellspacing="2" width="620" cellpadding="0" style="word-break:break-all">
            <tr bgcolor="#A4B6D7" class="title"> 
             <td width="375" align="center" bgcolor="#A4B6D7" >公告</td>
             <td width="239" align="center" >时间</td>
           </tr>
          <%do while not rs.eof%>
          <tr class=""> 
              <td width="375" bgcolor="#ECF5FF"><a href="../Shownotice.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("title"),18)%></a></td>
             
            <td width="239" align="center" bgcolor="#ECF5FF"><%=rs("riqi")%> </td>
           </tr>
          <%
	  
	      rs.movenext
	       loop

%>
        </table>
        <table width="620" border="0" cellpadding="0" cellspacing="0">
          <tr> 
             
            
          </tr>
        </table>
        
      </form>
      <br> </td>
  </tr>
</table>
 <%
    rs.close
set rs=nothing 
	conn.close
 set   conn=nothing
End if 
end if
%>
</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -