📄 news.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">
<%   dim leixin
    leixin="1"
    if 1=1 then        'where id="&newsid
	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>")
		response.write "共找到 0 条新闻</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="398" align="center" bgcolor="#A4B6D7" >NEWS</td>
             <td width="216" align="center" >Datetime</td>
           </tr>
          <%do while not rs.eof%>
          <tr class=""> 
              <td width="398" bgcolor="#ECF5FF"><a href="Shownews.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("title"),18)%></a></td>
             
            <td width="216" 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 + -