<table width="430" border="1" align="left">
<tr>
<td>
<P align=left><Font face=方正舒体><Font size=5><STRONG>更新 动态新闻</STRONG>
<%
sql="Select ID as 编号,title as 标题 from dtnews"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.MoveFirst
rs.pagesize=MaxPerPage
howmanyfields=rs.Fields.Count-1
if trim(Request("Page"))<>"" then
CurrentPage=CLng(request("Page"))
if CurrentPage>rs.PageCount then
CurrentPage=rs.PageCount
End if
Else
CurrentPage=1
End if
if rs.eof then
response.Write "<p align='left'>ERROR!</p>"
else
totalPut=rs.recordcount
if CurrentPage<>1 then
if(currentPage-1)*MaxPerPage<totalPut then
rs.move(currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
end if
end if
dim n,k,x,y
if(totalPut mod MaxPerPage)=0 then
n=totalPut\MaxPerPage
else
n=totalPut\MaxPerPage+1
end if%>
</Font></Font></P>
<P>
PAGE <%=currentpage%>
OF <%=n%>
共<%=rs.recordcount%> 纪录
<% k=currentPage
if k<>1 then
response.Write "[<b>"+"<a href='news.asp?page=1'>首页</a></b>]"
response.Write "[<b>"+"<a href='news.asp?page="+cstr(k-1)+"'>上一页</a></b>]"
else
Response.Write "[首页][上一页]"
end if
if k<>n then
response.Write "[<b>"+"<a href='news.asp?page="+cstr(k+1)+"'>下一页</a></b>]"
response.Write "[<b>"+"<a href='news.asp?page="+cstr(n)+"'>尾页</a></b>]"
else
Response.Write "[下一页][尾页]"
end if
%>
</p><table border=1 align=left>
<tr>
<%for i=0 to howmanyfields%>
<td><b><%=rs(i).name%></b></td>
<%
next
i=0
do while not rs.eof and i<maxperpage%>
<tr align="left">
<%for j=0 to howmanyfields%>
<td>
<%=rs(j)%>
</td>
<%next%>
</tr>
<%
i=i+1
rs.movenext
loop
%>
</table>
<%
end if
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
以上为在网页中显示的表格数据,想在最后一列中添加“删除”按钮,请各位大虾帮忙解决。谢谢。
<tr>
<td>
<P align=left><Font face=方正舒体><Font size=5><STRONG>更新 动态新闻</STRONG>
<%
sql="Select ID as 编号,title as 标题 from dtnews"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.MoveFirst
rs.pagesize=MaxPerPage
howmanyfields=rs.Fields.Count-1
if trim(Request("Page"))<>"" then
CurrentPage=CLng(request("Page"))
if CurrentPage>rs.PageCount then
CurrentPage=rs.PageCount
End if
Else
CurrentPage=1
End if
if rs.eof then
response.Write "<p align='left'>ERROR!</p>"
else
totalPut=rs.recordcount
if CurrentPage<>1 then
if(currentPage-1)*MaxPerPage<totalPut then
rs.move(currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
end if
end if
dim n,k,x,y
if(totalPut mod MaxPerPage)=0 then
n=totalPut\MaxPerPage
else
n=totalPut\MaxPerPage+1
end if%>
</Font></Font></P>
<P>
PAGE <%=currentpage%>
OF <%=n%>
共<%=rs.recordcount%> 纪录
<% k=currentPage
if k<>1 then
response.Write "[<b>"+"<a href='news.asp?page=1'>首页</a></b>]"
response.Write "[<b>"+"<a href='news.asp?page="+cstr(k-1)+"'>上一页</a></b>]"
else
Response.Write "[首页][上一页]"
end if
if k<>n then
response.Write "[<b>"+"<a href='news.asp?page="+cstr(k+1)+"'>下一页</a></b>]"
response.Write "[<b>"+"<a href='news.asp?page="+cstr(n)+"'>尾页</a></b>]"
else
Response.Write "[下一页][尾页]"
end if
%>
</p><table border=1 align=left>
<tr>
<%for i=0 to howmanyfields%>
<td><b><%=rs(i).name%></b></td>
<%
next
i=0
do while not rs.eof and i<maxperpage%>
<tr align="left">
<%for j=0 to howmanyfields%>
<td>
<%=rs(j)%>
</td>
<%next%>
</tr>
<%
i=i+1
rs.movenext
loop
%>
</table>
<%
end if
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
以上为在网页中显示的表格数据,想在最后一列中添加“删除”按钮,请各位大虾帮忙解决。谢谢。