Question

ASP删除数据库记录问题

if(idcount>0 and sqlid<>"") then
sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,0,1
while(not rs.eof)'填充数据到表格
Response.Write "<tr bgcolor='#EBF2F9' onMouseOver = ""this.style.backgroundColor = '#FFFFFF'"" onMouseOut = ""this.style.backgroundColor = ''"" style='cursor:hand'>" & vbCrLf
Response.Write "<td nowrap>"&rs("ID")&"</td>" & vbCrLf
if rs("working") then
Response.Write "<td nowrap><font color='blue'>√</font></td>" & vbCrLf
else
Response.Write "<td nowrap><font color='red'>×</font></td>" & vbCrLf
end if
Response.Write "<td nowrap>"&rs("MemName")&"</td>" & vbCrLf
if StrLen((rs("Company")))>31 then
Response.Write "<td nowrap title='单位： "&rs("Company")&"'>"&StrLeft(rs("Company"),28)&"</td>" & vbCrLf
else
Response.Write "<td nowrap title='单位： "&rs("Company")&"'>"&rs("Company")&"</td>" & vbCrLf
end if
Response.Write "<td nowrap title='组别号： "&rs("GroupID")&"'>"&rs("GroupName")&"</td>" & vbCrLf
Response.Write "<td nowrap>"&rs("AddTime")&"</td>" & vbCrLf
Response.Write "<td nowrap>"&rs("LastLoginTime")&"</td>" & vbCrLf
Response.Write "<td nowrap>"&rs("LoginTimes")&"</td>" & vbCrLf
Response.Write "<td nowrap>"&rs("Loginhits")&"</td>" & vbCrLf
Response.Write "<td width='40' nowrap><a href='MemEdit.asp?Result=Modify&ID="&rs("ID")&"' onClick='changeAdminFlag(""修改会员资料"")'><font color='#330099'>修改</font></a></td>" & vbCrLf
Response.Write "<td width='22' nowrap><input name='selectID' type='checkbox' value='"&rs("ID")&"' style='HEIGHT: 13px;WIDTH: 13px;'></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
rs.movenext
wend
Response.Write "<tr>" & vbCrLf
Response.Write "<td colspan='9' nowrap bgcolor='#EBF2F9'> </td>" & vbCrLf
Response.Write "<td colspan='2' nowrap bgcolor='#EBF2F9'><input name='submitDelSelect' type='button' class='button' id='submitDelSelect' value='删除所选' onClick='ConfirmDel(""您真的要删除这些会员吗？"");'></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
else
response.write "<tr><td height='50' align='center' colspan='11' nowrap bgcolor='#EBF2F9'>暂无网站会员</td></tr>"
end if

这段代码，删除记录的代码没写，请问怎么补上del.asp文件，才可以正常删除记录。

Answer 1

delID=request("submitDelSelect")
<%
conn.execute("delete from tableName where id in("&submitDelSelect&")")
%>

以上代码是简化后的，应当能看得懂。

Answer 2

你要把这个表单提交到Del.asp这个页面
然后获取会员的ID
需要保证有Connection对象
<%
IDList=Request("SubmitDelSelect")
IDList=Replace(IDList," ","")'过滤掉空格
SQL="Delete From 表名 Where 表里的标识列 In("&IDList&")"
Connection对象名.Execute(SQL)
%>

Answer 3

using(SqlConnection
con=new
SqlConnection("server=你的sql
server服务名;uid=用户名;pwd=密码;database=db"))
{
using(SqlCommand
cmd=new
SqlCommand("sql语句",con))
{
con.Open();
cmd.ExecuteNonQuery();
}
}