Question

ASP如何删除数据库的一行数据

<!--#include file="conn.asp"-->
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from comment where id<>'' order by id desc"
rs.open sql,conn,1,1
if rs.bof then
Response.Write("现在没有评论。")
Response.end
end if
%>
<%
Function leftString(str,length)
dim x,y,i,s
s=str
x = len(str)
y = 0
if x >= 1 then
for i = 1 to x
if asc(mid(str,i,1)) < 0 or asc(mid(str,i,1)) >255 then
y = y + 2
else
y = y + 1
end if
if y >= length then
s = left(str,i) '字符串字节数
exit for
end if
next
end if
leftString = s
End Function
%>
<script>
function test()
{
if(!confirm('确认删除吗？')) return false;
}
</script>
<table width="790" height="31" border="0" cellpadding="0" cellspacing="1">
<tr>
<td width="98" bgcolor="#dddddd"><div align="center">大名</div></td>
<td width="220" bgcolor="#dddddd"><div align="center">网址</div></td>
<td width="267" bgcolor="#dddddd"><div align="center">内容</div></td>
<td width="131" bgcolor="#dddddd"><div align="center">IP</div></td>
<td width="68" bgcolor="#dddddd"><div align="center">删除</div></td>
</tr>
<%
rs.pagesize=30
currentpage=Clng(request("page"))
if currentpage<1 then currentpage=1
if currentpage>rs.pagecount then currentpage=rs.pagecount
rs.absolutepage=currentpage
do while not rs.eof
%>

<tr>
<td><div align="center">【<%= rs("zz").value%>】</div></td>
<td><div align="center"><%= rs("www").value%></div></td>
<td><%=leftString(rs("content"),40)%>
</td>
<td><div align="center"><%= rs("ip").value%></div></td>
<td><div align="center">删除</div></td>
</tr>
<%
i=i+1
rs.MoveNext
If i>=rs.pagesize Then Exit Do
Loop
%>
</table>
<form id="form1" name="form1" method="post" width="790" action="">
<table width="790" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#dddddd"><div align="center">共有评论：<%=rs.recordcount%>   （<%=rs.pagecount%>页）
<%if currentpage>1 then%>
<a href="pinglun.asp" class="black">首页</a>  <a href="pinglun.asp?page=<%=currentpage-1%>" class="black"> 上一页</a>
<%end if%>
<%if currentpage<rs.pagecount then%>
  <a href="pinglun.asp?page=<%=currentpage+1%>" class="black">下一页</a>  <a href="pinglun.asp?page=<%=rs.pagecount%>" class="black">尾页</a>
<%end if%>
    
<input name="search" type="hidden" id="search" value="<%=search%>" />
<input name="key" type="hidden" id="key" value="<%=key%>" />
</div></td>
</tr>
</table>
</form>
在这段代码中 如何《点击删除》删除一列数据

Answer 1

在删除位置做一个链接并把ID值,用参数的形式传递过来.

<td><div align="center"><a href="delete.asp?id=<%=Rs("id")%>">删除</a></div></td>

delete.asp的内容
<!--#include file="conn.asp"-->
<%

sql="delete from comment where id = " & Request.QueryString("id")
Conn.Execute(sql)

%>

也可以把删除写在你的程序最上面里,用一个参数判断你是否点了删除.

<td><div align="center"><a href="?id=<%=Rs("id")%>&del=yes">删除</a></div></td>

<!--#include file="conn.asp"-->
<%
If Request.QueryString("del") = "yes"
sql="delete from comment where id = " & Request.QueryString("id")
Conn.Execute(sql)
End If

Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from comment where id<>'' order by id desc"
rs.open sql,conn,1,1
if rs.bof then
Response.Write("现在没有评论。")
Response.end
end if
%>

Answer 2

删除数据库中的一行分为以下几个步骤：
1、通过数据库访问客户端（例如访问oracle，使用plsql），使用有删除权限的用户登录数据库；
2、执行删除脚本：
delete
from
tablename
where
id=11（这里假设删除的表名为tablename，标识要删除行的字段为id，值为11）；
3、执行commit;
此时，id为11的记录从tablename表删除成功。

Answer 3

ASP连接数据库ACCESS学习(3)-删
学习目的：学会数据库（删除记录）
http://hi.baidu.com/gamevip/blog/item/eeceb931b2230fa85fdf0e4b.html

Answer 4

www.taoma.cn