<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checksession.asp" -->
<%
Response.Buffer =false
Response.Expires=-1

set rs=server.CreateObject("adodb.recordset")
sql = "select * from hy"
rs.open sql,conn

 %> 
<html> 
　　<head> 
　　<title>管理新闻</title> 
　　<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
　　<link rel="stylesheet" href="include/e1.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> 

　　<% if rs.recordcount=0 then %> 
　　<table width="50%" border="0" align="center" ID="Table2"> 
　　<tr> 
　　<td align="center"> 
　　没有新闻！ 
　　</tr> 
　　</table> 
　　<%else%>
　　<form method="POST" id=form1 name=form1> 
　　<table width="90%" border="0" align="center"  ID="Table3"> 
　　<tr> 
　　<td> 
　　<table width="80%" align="center" id=TabDocMain border='1' cellspacing='0' cellpadding='0' bordercolorlight='#82b4dd' bordercolor='#b6d3eb'> 
　　<tr> 
　　<td align=center> 
　　删除框 
　　</td> 
　　<td align=center> 
　　新闻标题 
　　</td> 
　　<td align=center> 
　　发布时间 
　　</td> 
　　<td align=center> 
　　管理 
　　</td> 
　　</tr>
　　<%while not rs.EOF%>
　　<tr> 
　　<td align=center><input type="checkbox" name="answer" value="<%=rs("id")%>" ID="Checkbox1"> 
　　</td> 
　　<td align=left><%=rs("HyName")%></td> 
　　<td align=left><%=rs("HyMobile")%></td> 
　　<td align=center><a href="editnews.asp?id=<%=rs("id")%>">编　辑</a></td> 
　　</tr> 
　　<%rs.MoveNext%>
　　<%wend %>
　　<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> 
　　<%end if%> 
　　</table> 
　　<% set rs=nothing 
		set conn=nothing%>
　　</body> 
　　</html> 

