editnews.asp

来自「为了开发出适用于中小型企业的通用人才管理软件。对于已备电脑等硬件设备而无人才管理」· ASP 代码 · 共 75 行

ASP
75 行
字号 
<%@ Language=VBScript %>
<% If Session(strCookieURL & "www.3rom.com") = "1369852475213" and Session("count")<10 Then %> 
<!--#INCLUDE FILE="inc_Conn.asp" -->
<%
Dim strSql
strSql="select * from News Order by NewsID Desc"
set rs=MyCon.execute(strSql)
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="VI60_defaultClientScript" content="JavaScript">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>DelNews</title>
</head>

<body bgcolor="#D6D3CE">
<div align="center">
  <center>
  <table border="1" width="75%" cellspacing="0" cellpadding="0">
    <tr>
      <td width="5%" bgcolor="#C0C0C0">　</td>
      <td width="90%" colspan="4" bgcolor="#C0C0C0"><a href="Index.asp">返回管理</a></td>
      <td width="5%" bgcolor="#C0C0C0">　</td>
    </tr>
    <% Do while not rs.eof %>
    <% 
    if strbgcolor="#D6D3CE" then 
    strbgcolor="#CCCCff"
    else
    strbgcolor="#D6D3CE"
    end if
    %>
    <tr>
      <td width="5%">　</td>
      <td width="80%" bgcolor="<%=strbgcolor%>"><a href="../ReadNews.asp?NewsID=<%=rs("NewsID")%>"><%=rs("News_Title")%></a></td>
      <td width="4%" bgcolor="<%=strbgcolor%>"><a href="DelNews2.asp?active=Del&amp;NewsID=<%=rs("NewsID")%>"><img alt="永久删除" border="0" hspace="0" src="../IMAGES/icon_trashcan.gif"></a></td>
      <td width="4%" bgcolor="<%=strbgcolor%>"><a href="EditNews2.asp?active=Edit&amp;NewsID=<%=rs("NewsID")%>"><img alt="编辑新闻" border="0" hspace="0" src="../IMAGES/icon_pencil.gif"></a></td>
      <td width="5%" bgcolor="<%=strbgcolor%>"><img alt="放入回收站" border="0" height="15" src="../IMAGES/icon_folder_delete.gif" width="15"></td>
      <td width="5%">　</td>
    </tr>
    <%
    rs.movenext
    Loop
    %>
    <tr>
      <td width="5%" bgcolor="#C0C0C0">　</td>
  </center>
      <td width="90%" colspan="4" bgcolor="#C0C0C0" align="right">
        <a href="Index.asp">返回管理</a>
    </td>
  <center>
      <td width="5%" bgcolor="#C0C0C0">　</td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>
<%
rs.close
set rs=nothing
MyCon.close
set MyCon=nothing
%>
<% 
Else
Response.redirect "Login.asp"
End If
%>

editnews.asp - 源码说明

本页面展示了「为了开发出适用于中小型企业的通用人才管理软件。对于已备电脑等硬件设备而无人才管理软件的企业更能带来更高的收益。此人才管理软件主要应用了DELPHI 7和SQL。解决企业管理中的员工管理」中的 editnews.asp 源码文件，采用 ASP 编程语言编写，共 75 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与DELPHI相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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