编辑新闻

<% if FormatSQL(SafeRequest("action",0))="del" then conn.execute "delete from news where newsid in ("&request.form("selectdel")&")" response.Redirect "editnews.asp" end if %> 编辑新闻

新闻修改删除

<% Const MaxPerPage=20 dim totalPut dim CurrentPage dim TotalPages dim j dim sql if Not isempty(SafeRequest("page",1)) then currentPage=Cint(SafeRequest("page",1)) else currentPage=1 end if set rs=server.createobject("adodb.recordset") rs.open "select newsid,newsname,addname,adddate from news order by adddate desc",conn,1,1 if err.number<>0 then response.write "数据库中暂时无数据" end if if rs.eof And rs.bof then Response.Write "

您还没有添加新闻！

" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"editnews.asp" else if (currentPage-1)*MaxPerPage <%do while not rs.eof%> <%i=i+1 if i>=MaxPerPage then Exit Do rs.movenext loop rs.close set rs=nothing%>

新闻主题	发布人	发布时间	选择
><%=trim(rs("newsname"))%>	<%=trim(rs("addname"))%>	<%=rs("adddate")%>	>
全选

<% End Sub Function showpage(totalnumber,maxperpage,filename) Dim n If totalnumber Mod maxperpage=0 Then n= totalnumber \ maxperpage Else n= totalnumber \ maxperpage+1 End If Response.Write "