你的位置:| 首页网站建设asp新闻后台全选、多选、分页、删除所选的新闻实例→文章正文  
文章导航


asp后台新闻全选、多选、分页、删除所选的新闻实例

1、后台新闻管理文件(adminlist.asp)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn1.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.cate.length+"")=="undefined"){
tmp=1
}else{
tmp=document.form1.cate.length
}
if(tmp==1){
if(document.form1.cate.checked){
flag=false;
temp=document.form1.cate.value
}
}else{
for (i=0;i<document.form1.cate.length;i++) {
if (document.form1.cate[i].checked){
if (temp==""){
flag=false;
temp=document.form1.cate[i].value
}else{
flag=false;
temp =temp+","+ document.form1.cate[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("cate");
for (var i=0; i<a.length; i++) a[i].checked = all.checked;
}
</script>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from news order by id desc"
rs.open sql,conn,1,3 %>
<% if rs.eof then %>
<table width="50%" border="0" align="center" ID="Table2">
<tr>
<td align="center">没有新闻!</td>
</tr>
</table>
<% else %>
<table width="90%" border="0" align="center" class="tabDocborder" ID="Table3">
<form method="POST" id=form1 name=form1>
<tr>
<td>
<table width="100%" align="center" id=TabDocMain
border='1' cellspacing='0' cellpadding='0' bordercolorlight='#82b4dd'
bordercolor='#b6d3eb'     class="TabDocMain">
<thead>
<tr>
<td colspan="8" align="center">新闻管理中心</td>
</tr>
</thead>
<tbody>
<tr>
<td align=center>删除框</td>
<td align=center>新闻标题</td>
<td align=center>发布时间</td>
<td align=center>管理</td>
<td align=center>管理</td>
</tr>
<%
tjt=rs("tjtime")
y=left((tjt),4)
m=mid((tjt),5,2)
dd=mid((tjt),7,2)
t=mid((tjt),9,2)
s=mid((tjt),11,2)
mytime=m&"月"&dd&"日"
%>
<%
rs.PageSize =20 '这里是设定每页显示的记录数
'rs.CursorLocation = 3
'rs.Open sql,conn,0,2,1 '这里是执行你查询SQL并获得结果记录集
pre = true
last = true
page = trim(Request.QueryString("page"))'取的分页数据。并去掉空格
'下面开始判断
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>
<%
do while not rs.eof
%>
<tr>
<td align=center><input type="checkbox" name="cate" value="<%=rs("id")%>" ID="Checkbox1"></td>
<td align=left><%If Len(rs("biaoti"))<=30 Then%><%=rs("biaoti")%><%else%><%=(Left(rs("biaoti"),30))%>...<%end if %></td>
<td align=left><%=rs("tjtime")%></td>
<td align=center><a href="update.asp?id=<%=rs("id")%>">修改</a></td>
<td align=center>
<a href=javascript:if(confirm('确定要删除吗?')==true)location="delnews.asp?id=<%=rs("id")%>">删除</a>
</td>
</tr>
</tbody>
<%
rs.movenext
loop
%>
<!-- 分页开始 -->
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0099FF" borderColorDark=#ffffff background="../images/bg/1.gif">
<tr>
<%''调用分页显示部分:
if rs.pagecount > 0 then%>
<td width="49%" align="right" valign="bottom">当前第<%=intpage%>页/共<%=rs.PageCount%>页</td>
<%else%>
<td width="6%" align="right" valign="bottom">当前页0/0</td>
<%end if%>
<td width="45%"> <a href="adminlist.asp?page=1&lb=<%=lb%>">首页</a>|
<%if pre then%>
<a href="adminlist.asp?page=<%=intpage -1%>&lb=<%=lb%>">上页</a>| <%end if%>
<%if last then%>
<a href="adminlist.asp?page=<%=intpage +1%>&lb=<%=lb%>">下页</a> |<%end if%>
<a href="adminlist.asp?page=<%=rs.PageCount%>&lb=<%=lb%>">尾页</a>|转到第
<select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to rs.PageCount
if i = intpage then%>
<option value="adminlist.asp?page=<%=i%>&lb=<%=lb%>" selected><%=i%></option>
<%else%>
<option value="adminlist.asp?page=<%=i%>&lb=<%=lb%>"><%=i%></option>
<%
end if
next
%>
</select>页
</td>
</tr>
</table>
<!-- 分页结束 -->
<tr>
<td colspan="8" 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
conn.close
set conn=nothing
%>
</body>
</html>

=================================

2、删除文件(delnews.asp)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn1.asp"-->
<%
arrdel=Request.QueryString("id") '规定类型防,止误认为数字出错
'Response.Write arrdel
sql="delete from news where id in("&arrdel&")"
'Response.Write sql
conn.Execute(sql)
set conn=nothing
response.write"<SCRIPT language=JavaScript>alert('删除成功!');"
response.write"javascript: history.go(-1)</SCRIPT>"
response.end
%>

点击下载:实例文件包

  上一页 1 2 3 4 5 下一页
 
公司简介 在线客服 客服中心 意见反馈 相关法律 隐私条款 广告服务 友情链接
Q链:515347638  电子邮箱:hanen@126.com 粤ICP备05086553