Question

asp 代码 需要加上分页和 全部选择 然后 全部删除按钮 能够帮我补齐代码

<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#B3D2EE">

<%action=request.QueryString("action")
select case action
case ""
%>

<%case "manage"
%>

</table>
<div align="center">
<table width="100%" border="0" cellpadding="5" cellspacing="1">
<tr>
<td width="6%" bgcolor="#E1E5EE" height="30">
<p align="center"><b>受理情况</b></td>
<td width="8%" bgcolor="#E1E5EE" height="30">
<p align="center"><b>姓名</b></td>
<td width="20%" bgcolor="#E1E5EE" height="30">
<p align="center"><b>部门</b></td>
<td width="38%" bgcolor="#E1E5EE" height="30">
<p align="center"><b>标题</b></td>
<td width="8%" bgcolor="#E1E5EE" height="30"><div align="center"><b>回复</b></div></td>
<td width="8%" bgcolor="#E1E5EE" height="30"><div align="center"><b>删除</b></div></td>
<td width="12%" bgcolor="#E1E5EE" height="30"><div align="center"><b>时间</b></div></td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from ZD_book where ntype=0"
rs.open sql,conn,2,3
do while not rs.eof
response.write "<tr>"
response.write "<td bgcolor=""#f2f2f2"" height=""30"">"
if trim(rs("revert"))<>"" then
response.write "<font color=""red""><p align=""center""><b>已反馈</p></font>"
else
response.write "<p align=""center"">未反馈</p>"
end if
%>

</td>
<td bgcolor="#f2f2f2" height="30"><p align="center"><%=rs("uname")%></p></td>
<td bgcolor="#f2f2f2" height="30"><%=rs("lyg")%></td>
<td bgcolor="#f2f2f2" height="30"><%=rs("title")%></td>
<td bgcolor="#f2f2f2" height="30"><div align="center"><a href="admin_revert.asp?id=<%=rs("id")%>" title="<%=rs("uname")%>[<%=rs("add_time")%>]">回复</a></div></td>
<td bgcolor="#f2f2f2" height="30"><div align="center"><a href="?action=del&id=<%=rs("id")%>">删除</a></div></td>
<td bgcolor="#f2f2f2" height="30"><p align="center"><%=rs("add_time")%></p></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing%>

</table>

</div>

</table>
<%case "del"
Sql="delete from ZD_book where id="&request.QueryString("id")
conn.ExeCute(Sql)
Response.Write "<script>alert(""删除成功！"");location.href=""admin_jubao.asp?action=manage"";</script>"
%>
<%end select%>
　</td>
</tr>

</table>

这段代码，需要加上分页显示，全部选择，全部删除，求补齐代码

Answer 1

我只处理了你分页，全选，全部删除这部分代码，现将这部分代码复制给你。估计你是新手，给你一个建议，你的删除代码容易给别人漏洞，可以从此处着手注入，因为你的id没有进行处理，如果别人提交的id是构造的语句呢，id不是数值呢，还有啊，别人只要知道了你的asp路径，在上边可以随便输入一个id，把你数据库中的内容来逐一删除完，这都是需要你处理的地方，我平时在录入提交数据时，会以当前时间和内容一起来生成一个md5值单独在数据库中保存为一项如RandCode，在删除时就验证id和RandCode两个值，别人单独输入一个id来删除就行不通了。全部删除就相当于全选后提交，提交的地址你自行添加，通过提交得到的request.form("SelectID")值，进行分割循环删除而已。其他方面就有很多处理的，在此不一一述说！

<div align="center">
<table width="100%" border="0" cellpadding="5" cellspacing="1">
<tr>
<!--注意这部分增加内容，form用于全选后进行表单提交，提交到的地址自行更改-->
<form name='form' method='Post' action='全选后提交到的地址'>
<td width=40 bgcolor="#E1E5EE" height="30"><p align="center"><b>选中</b></td>
<!--增加内容结束-->
<td width="6%" bgcolor="#E1E5EE" height="30"><p align="center"><b>受理情况</b></td>
<td width="8%" bgcolor="#E1E5EE" height="30"><p align="center"><b>姓名</b></td>
<td width="20%" bgcolor="#E1E5EE" height="30"><p align="center"><b>部门</b></td>
<td width="38%" bgcolor="#E1E5EE" height="30"><p align="center"><b>标题</b></td>
<td width="8%" bgcolor="#E1E5EE" height="30"><div align="center"><b>回复</b></div></td>
<td width="8%" bgcolor="#E1E5EE" height="30"><div align="center"><b>删除</b></div></td>
<td width="12%" bgcolor="#E1E5EE" height="30"><div align="center"><b>时间</b></div></td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from ZD_book where ntype=0"
rs.open sql,conn,1,1
if rs.EOF and rs.BOF then

response.write "<tr><td align=center bgcolor='#f2f2f2' height=30 colspan=7>"
if trim(rs("revert"))<>"" then
response.write "<font color=red><p align=center><b>已反馈</p></font>"
else
response.write "<p align=center>未反馈</p>"
end if
response.write "</tr></tr>

else
rs.PageSize=20
'每页显示的数量你可以自行更改
filename="?S=1"
color="ff0000"
pagecount=rs.PageCount
total=rs.recordcount
everypage=rs.PageSize
newpage=request.form("page1")
if newpage="" then
page=int(request.QueryString ("page"))
else
page=Cint(request.form("page1"))
end if
if page<=0 or page="" then
page=1
end if
rs.AbsolutePage=page
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if
%>
<tr>
<td bgcolor="#f2f2f2" height="30"><p align="center"><input name='SelectID' type='checkbox' id='SelectID' value='<%=rs("id")%>'></p></td>
<td bgcolor="#f2f2f2" height="30"><p align="center"><%=rs("uname")%></p></td>
<td bgcolor="#f2f2f2" height="30"><%=rs("lyg")%></td>
<!--这里少了一项哟你检查一下-->
<td bgcolor="#f2f2f2" height="30"><%=rs("title")%></td>
<td bgcolor="#f2f2f2" height="30"><div align="center"><a href="admin_revert.asp?id=<%=rs("id")%>" title="<%=rs("uname")%>[<%=rs("add_time")%>]">回复</a></div></td>
<td bgcolor="#f2f2f2" height="30"><div align="center"><a href="?action=del&id=<%=rs("id")%>">删除</a></div></td>
<td bgcolor="#f2f2f2" height="30"><p align="center"><%=rs("add_time")%></p></td>
</tr>
<%
rs.movenext
next
end if
rs.close
set rs=nothing
%>
</table>

<!--****以下内容为全选、删除选中项、分页功能****-->
<table border=0 width=100%><tr>
<td align=center width=40><input name='SelectAllID' type='checkbox' id='SelectAllID' onclick='CheckAll(this.form)' value='checkbox'>全部选中</td>
<td align=center width=120><input type="submit" name="Submit" value="删除选中项" style='width:100;height:20'></td></form>
<td align=center>
<form method=Post work="<%=filename%>"><td align="center">共<a style=color:<%=color%>><%=total%></a>条 <a style=color:<%=color%>><%=everypage%></a>条/页 <a style=color:<%=color%>><%=page%>/<%=pagecount%></a>页<%if page=1 and not

page=pagecount then%>
<a href="<%=filename%>&page=<%=page+1%>">下一页</a> <a href=<%=filename%>&page=<%=pagecount%>>尾页</a>
<%elseif page=pagecount and not page=1 then%>
<a href=<%=filename%>>首页</a> <a href="<%=filename%>&page=<%=page-1%>">上一页</a>
<%elseif page<1 then%><font color=red>没有任何记录！</font>
<%elseif page>pagecount then%><div class="font" align="right"><font color=red>没有任何记录！</font>
<%elseif page=1 and page=pagecount then%>

<%else%>
<a href=<%=filename%>>首页</a> <a href="<%=filename%>&page=<%=page-1%>">上一页</a> <a href="<%=filename%>&page=<%=page+1%>">下一页</a> <a href=<%=filename%>&page=<%=pagecount%>>尾页</a>
<%end if%> 转到：<select name="page1" size="1" class=input1 onChange="javascript:submit()">
<%for i = 1 to pagecount%>
<option value="<%=i%>" <%if page=cint(i) then%>selected <%end if%>>第<%=i%>页</option>
<%next%>
</select></td></form>
</td></tr></table>
<!--分页相关功能结束-->

</div>