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

📄 news_admin.asp

📁 很不错的站件包含的内容和具体功能先删除编译后的debug/release目录以减少压缩包大小
💻 ASP
字号:
<script language="javaScript">
function checkdel(test)
{
return confirm("系统提示:\n此操作不可逆,是否确定"+test+"!!");
}
</script>
<!--#include file="conn.asp" -->
<!--#include file="check.asp" -->
<%
if request("action") = "Move" and request("Move") <> "" then
for each movedata in request("movedata")
sql="update Ce_News set N_Class = '"&request("N_Class")&"' where N_ID="&movedata
conn.execute sql
next
%>
<script language="JavaScript">
<!--
alert("系统提示:\n数据移动成功!")
self.navigate("News_Admin.asp")
-->
</script>
<%end if%>
<%
Set rc=Server.CreateObject("ADODB.Recordset")
if request("Class") = "" then
sql="Select * from  Ce_News order by N_id desc"
rc.open sql,conn,1,1
else
sql="Select * from  Ce_News where N_Class = '"&request("Class")&"' order by N_id desc"
rc.open sql,conn,1,1
end if
rc.pagesize=20
dim Page
Page =1
if request("Page") <> "" then
Page=cint(request("Page"))
end if
if not rc.eof and not rc.bof then
rc.absolutepage=Page
end if
count=rc.pagesize
%>
<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 leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="35" background="img/admin_top_bg.gif"><img src="img/copy.gif" height="35"></td>
  </tr>
</table><% if rc.eof then%>
<table width="820" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr height="10"> 
          <td height="5"></td>
        </tr>
      </table>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
        <tr bgcolor="00CC00" > 
          <td height="26" align="center" class="font"> <table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
              <tr> 
                <td class="font"><strong><font color="#FFFFFF"> 
                  <%if request("Class") = "" then%>
                  新闻管理 
                  <%else%>
                  新闻管理 — <%=request("Class")%>类列表
                  <%end if%>
                  </font></strong></td>
              </tr>
            </table></td>
        </tr>
        <tr align="center" bgcolor="#FFFFFF"> 
          <td height="23" bgcolor="#FFFFFF" class="td"><strong>暂时没有信息!</strong></td>
        </tr >
      </table>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr height="10"> 
          <td height="10"></td>
        </tr>
      </table></td>
  </tr>
</table>
<%else%>
<table width="820" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr height="10"> 
          <td height="5"></td>
        </tr>
      </table>
      
        
     
        <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
           <form name="form1" method="post" action="?action=Move" onSubmit="return checkdel('移动选定数据');"><tr bgcolor="00CC00" > 
            <td height="26" colspan="9" align="center" class="font"> <table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
                <tr> 
                  <td class="font"><strong><font color="#FFFFFF"> 
                    <%if request("Class") = "" then%>
                    新闻管理 
                    <%else%>
                    新闻管理 — <%=request("Class")%>类列表 
                    <%end if%>
                    </font></strong>
</td>
                </tr>
              </table></td>
          </tr>
          <tr align="center"> 
            <td width="5%" height="23" bgcolor="#FFFFFF" class="td">编号</td>
            <td width="50%" height="23" bgcolor="#FFFFFF" class="td">分类—新闻标题</td>
            <td width="15%" height="23" bgcolor="#FFFFFF" class="td">发布日期</td>
            <td width="5%" height="23" bgcolor="#FFFFFF" class="td">点击</td>
            <td width="5%" height="23" bgcolor="#FFFFFF" class="td">图片</td>
            <td width="5%" height="23" bgcolor="#FFFFFF" class="td">推荐</td>
            <td width="5%" bgcolor="#FFFFFF" class="td">选中</td>
            <td width="5%" height="23" bgcolor="#FFFFFF" class="td">编辑</td>
            <td width="5%" height="23" bgcolor="#FFFFFF" class="td">删除</td>
          </tr >
          <%do while not rc.eof and count>0%>
          <TR align="center" bgcolor="#CCFFCC" onmouseover="this.bgColor='#dedede'" onmouseout="this.bgColor='#CCFFCC'" style="CURSOR:default"> 
            <td height="23" class="font"><%=rc("N_ID")%></td>
            <td height="23" align="left" class="font">&nbsp;[<%=rc("N_Class")%>] 
              <%=left(rc("N_Title"),32)&""%></td>
            <td height="23" class="font"> 
              <%if rc("N_ID") <= 4522 then%>
              <%=left(rc("N_date"),9)&""%> 
              <%else%>
              <%=rc("N_date")%> 
              <%end if%>
            </td>
            <td height="23" class="font"><%=rc("N_Hit")%></td>
            <td height="23" class="font"> 
              <%if rc("Pic_News") = "Yes" then 
Response.Write("<strong><font color=#FF0000>√</font></strong>")
else 
Response.Write("")
end if
		  %>
            </td>
            <td height="23" class="font"> 
              <%if rc("True_News") = "Yes" then 
Response.Write("<strong><font color=#FF0000>√</font></strong>")
else 
Response.Write("")
end if
		  %>
            </td>
            <td><input name="movedata" type="checkbox" id="movedata" value="<%=rc("N_ID")%>"></td>
            <td height="23"><a href="Edit_News.asp?ID=<%=rc("N_ID")%>"><img src="img/edit.gif" width="12" height="12" border="0"></a></td>
            <td height="23"><a href="Del.asp?ID=<%=rc("N_ID")%>&Go=News"  onClick="return checkdel('删除该数据');"><img src="img/icon_del.gif" width="13" height="13" border="0"  style="CURSOR: hand"></a></td>
          </tr>
          <%     
    rc.movenext     
    count=count-1     
    loop     
  %>
          <tr bgcolor="00CC00" > 
            <td height="26" colspan="9" align="center" class="font"><table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
                <tr> 
                  <td class="font"><strong><font color="#FFFFFF">将</font><font color="#FFFFFF">所选信息移动到 
                    <select name="N_Class" class="input" id="N_Class">
                      <%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from Ce_News_Class order by C_ID asc"
rs.open sql,conn,1,1
do while not rs.eof
%>
                      <option  value="<%=rs("C_Name")%>"><%=rs("C_Name")%></option>
                      <%     
rs.movenext 
loop
rs.close 
set rs=nothing
%>
                    </select>
                    <input name="Move" type="submit" class="button" id="Move" value="确定">
                    </font></strong></td>
                </tr>
              </table></td>
          </tr> </form>
        </table>
     
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr height="10"> 
          <td height="5"></td>
        </tr>
      </table>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
        <tr > 
          <td width="100%"height="24" align="right" class="font">
		  
		  <%if request("Class") = "" then%> 
            <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                
                <form name="pa" method="post" action="">
                  <td width="70%" height="20" align="right" valign="middle" class="font">共有<font color="#FF2D00">[<%=rc.RecordCount%>]</font>条信息 
                    分<font color="#FF2D00"><%=rc.pagecount%></font>页 <font color="#FF2D00"><%=rc.pagesize%></font>条/页 
                    当前第<font color="#FF2D00"><%=Page%></font>页 <img src="img/logo_img042.gif" width="11" height="11" align="absmiddle"> 
                    <a href="?Page=1">首页</a> 
                    <%if Page>1 then%>
                    <a href="?Page=<%=Page-1%>">上页</a> 
                    <%else%>
                    上页 
                    <%end if%>
                    <%if Page < rc.pagecount then %>
                    <a href="?Page=<%=Page+1%>">下页</a> 
                    <%else%>
                    下页 
                    <%end if%>
                    <a href=?Page=<%=rc.pagecount%>>尾页</a> <img src="img/logo_img044.gif" width="11" height="11" align="absmiddle"> 
                    <input name="Page" type="text" class="put" id="Page" value="<%=Page%>" size="3"> 
                    <input name="Submit" type="submit" class="button" value="转到该页"> 
                  </td>
                </form>
              </tr>
            </table>
			  <%else%> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
                <form name="pa" method="post" action=""><tr> 
                  <td height="20" align="right" valign="middle" class="font"><font color="#ffffff">系统开发:j111</font>共有<font color="#FF2D00">[<%=rc.RecordCount%>]</font>条信息 
                    分<font color="#FF2D00"><%=rc.pagecount%></font>页 <font color="#FF2D00"><%=rc.pagesize%></font>条/页 
                    当前第<font color="#FF2D00"><%=Page%></font>页 <img src="img/logo_img042.gif" width="11" height="11" align="absmiddle"> 
                    <a href="?Page=1&Class=<%=request("Class")%>">首页</a> 
                    <%if Page>1 then%>
                    <a href="?Page=<%=Page-1%>&Class=<%=request("Class")%>">上页</a> 
                    <%else%>
                    上页 
                    <%end if%>
                    <%if Page < rc.pagecount then %>
                    <a href="?Page=<%=Page+1%>&Class=<%=request("Class")%>">下页</a> 
                    <%else%>
                    下页 
                    <%end if%>
                    <a href=?Page=<%=rc.pagecount%>&Class=<%=request("Class")%>>尾页</a> <img src="img/logo_img044.gif" width="11" height="11" align="absmiddle"> 
                    <input name="Page" type="text" class="put" id="Page" value="<%=Page%>" size="3"> 
                    <input name="Submit" type="submit" class="button" value="转到该页">
                  </td>
                </tr></form>
              </table><%end if%>
            </td>
        </tr>
      </table>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr height="10"> 
          <td height="10"></td>
        </tr>
      </table></td>
  </tr>
</table>
<%end if%>
</body>
</html>

⌨️ 快捷键说明

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