Question

求代码:在asp中为查询到的表格添加删除和添加按钮，点击删除按钮可以对应的删除此项记录

Answer 1

index.asp其中代码读出数据库的记录，后面的相关的操作可删除和添加(假设主页面为index.asp)。其中添加用户的页面为newuser.asp,处理添加用户的后台为adduser.asp.我想newuser.asp中的代码应该不用写出来吧。

index.asp代码如下：

<table width="450" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC" style="text-align:center;">
<tr style="line-height:24px; font-weight:bold;">
<td width="60">编号</td>
<td width="120">用户名</td>
<td width="120">密码</td>
<td width="140">type</td>
<td width="140">操作</td>
</tr>
<%
dim sql,list

sql="select * from userlist order by id desc"
SET list=conn.EXECUTE(sql)

do while not list.eof
%>
<tr style="line-height:22px;">
<td><% =list("ID") %></td>
<td><% =list("name") %></td>
<td><% =list("password") %></td>
<td><% =list("usertype") %></td>
<td><a href="newuser.asp">添加</a> <a href="javascript:if(confirm('你确定要删除此用户吗？因为删除后无法恢复！')){window.location='deluser.asp?del_id=<% =list("id") %>';}">删除</a></td>
</tr>
<%
list.movenext
loop
%>
</table>

adduser.asp的代码如下：

<!--#include file="conn.asp"-->
<%
dim name,password,password1
name=trim(request.Form("name"))
password=trim(request.form("password"))
password1=trim(request.form("password1"))

if name="" or password="" or password1="" then

response.Write("<script>alert('用户名或密码不能为空！')</script>")
response.Write("<script>history.go(-1)</script>")
response.End()

if password<>password1 then
response.Write("<script>alert('两次密码不是一样，请重新输入！')</script>")
response.Write("<script>history.go(-1)</script>")
response.End()
end if
dim rs,sql
set rs = Server.CreateObject("ADODB.RecordSet")
sql = "Select * from userlist where name='" & name & "'"
rs.open sql,conn,1,3

if not(rs.eof or rs.bof) then
response.Write("<script>alert('此用户名已存在，请重新输入一个新的用户名！')</script>")
response.Write("<script>history.go(-1)</script>")
response.end()

else
rs.addnew
rs("name") = name
rs("password") = password
rs.update
rs.close
set rs = nothing
conn.close
set conn=nothing

Response.write ("<script>alert('新用户注册成功!');window.document.location.href='index.asp';</script>")

end if
%>

deluser.asp代码如下：
<!--#include file="conn.asp"-->
<%
dim del_id
del_id=request.QueryString("del_id")

conn.execute "delete * from userlist where id=" & del_id

Response.write ("<script>alert('删除成功!');window.document.location.href='Index.asp';</script>")

conn.close
set conn=nothing
%>

其中删除的后台中数据库表名你要相应的改下，删除时会提示一下来确认删除。然后其中数据库字段和表单名称你用时也改成相应的名称就行了。
好了，不多说，赶紧试一下吧。

Answer 2

每行都套一个form，每行都保存标识数据，按纽提交删除就行了