📄 managenews.asp

📁 教师在线查分系统
💻 ASP
字号:
<!--#include file="conn.asp"--> 
<%'数据库的连接文件我就不多说了%> <html> 
<head>
<title>管理新闻</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../index/style.css" type="text/css">
<script>
function del ()  //用于判断记录有没有选中的函数
{
var flag=true;
var temp="";
var  tmp;
if((document.form1.answer.length+"")=="undefined") {tmp=1}else{tmp=document.form1.answer.length}
if (tmp==1){
if (document.form1.answer.checked){
    flag=false;
  temp=document.form1.answer.value
}
}else{
for (i=0;i<document.form1.answer.length;i++) {
if (document.form1.answer[i].checked){
if (temp==""){
flag=false;
temp=document.form1.answer[i].value
}else{
flag=false;
temp = temp +","+ document.form1.answer[i].value
}
}
}
}
if (flag){ alert("对不起，你还没有选择！")}
else{   name=document.form1.name.value
        //alert(name)
          if (confirm("确实要删除？")){
        window.location="delnews.asp?id=" + temp;
}
}
return !flag;
}
</script>
</head>
<body>
<script language=Javascript>
function checkall(all)//用于判断全选记录的函数
{
  var a = document.getElementsByName("answer");
  for (var i=0; i<a.length; i++) a[i].checked = all.checked;
}
</script>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from bbs1 order by xh desc"
rs.open sql,conn,1,3 %> 
<form method="POST" id=form1 name=form1>
<table width="90%" border="0" align="center" class="tabDocborder" ID="Table3">
<tr>
    <td>
      <table width="80%"  align="center" id=TabDocMain border='1' cellspacing='0' cellpadding='0'   bordercolorlight='#82b4dd' bordercolor='#b6d3eb' class="TabDocMain">
        <thead> 
        <tr> 
      <td colspan="7" align="center">
     新闻管理中心
    </td>
  </tr>
  </thead>
  <tbody>
  <tr> 
     <td align=center>
      删除框
    </td>
    <td align=center>
新闻标题
    </td>
    <td align=center>
发布时间
    </td>
    <td  align=center>
     管理
    </td>
  </tr>
   <%  
      do while not rs.eof               
%> 

  <tr> 
<td align=center><input type="checkbox" name="answer" value="<%=rs("id")%>" ID="Checkbox1">
</td>
   <td align=left></td>
<td align=left><%=rs("xh")%></td>
<td align=center><a href="editnews.asp?id=<%=rs("id")%>">编　辑</a></td>
  </tr>
  </tbody>
<%           
    rs.movenext  
  loop           
%> 

<tr> 
<td colspan="7" align="center">
<input type="checkbox" name="chkall" value="on" onclick="checkall(this)" ID="Checkbox2">选中所有的显示新闻　　　
<input type="button" name="btnDelete" value="删除" style='font-family: 宋体; font-size: 9pt;' onclick="del()" ID="Button1">
</td>
</tr>
  </table>
</form>
</td>
</tr>
</table>      
<% set rs=nothing                    
conn.close                  
set conn=nothing   
%>
</body>
</html>
⌨️ 快捷键说明

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