📄 news.asp

📁 具有计划、任务、通告、公文、员工档案、等网络办公功能

💻 ASP

字号:

<%@language="VBscript"%>
<%Response.Expires=0%>
<!--#include file="../include/checkadmin.asp"--><!--#include file="../include/conn.asp"-->
<!--#include file="../include/tools.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>上电电机厂_信息发布系统</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>

<body>
<br>
<%
set rs_column=conn.execute("select columnid,columnname from tbl_news_column order by columnid desc")
do while not rs_column.eof
%>
<table width="454" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="444" height="24" background="images/search_1.gif"> <b><%=rs_column("columnname")%></b> </td>
  </tr>
</table>
<table width="453" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="e8e8e8">
  <tr> 
    <td width="451" bgcolor="#FFFFFF"> 
      <table width="428" border="0" align="center" cellpadding="0">
		<%
		set rs=conn.execute("select top 6 id,title,regdate from tbl_news where columnid="&rs_column("columnid")&" order by id desc")
		do while not rs.eof
		%>
        <tr> 
          <td width="424">·<a href="news_detail.asp?id=<%=rs("id")%>"><%=rs("title")%></a> <font color="#666666"><%=formatdatetime(rs("regdate"),2)%></font></td>
        </tr>
		<%
			rs.movenext
		loop
		%>
        <tr>
          <td height="20"> 
            <div align="right"><a href="news_list.asp?columnid=<%=rs_column("columnid")%>"><img src="images/more.gif" width="60" height="20" border="0"></a></div></td>
        </tr>
      </table> </td>
  </tr>
</table>
<br>
<%
	rs_column.movenext
loop
set rs_column=nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -