bcid=request("bcid")
    set rs=Server.CreateObject("adodb.recordset")
    sql="delete from beautycontent where bcid="&bcid&""
    set rs=conn.Execute(sql)

bcid=request("bcid")
    set rs=Server.CreateObject("adodb.recordset")
    sql="delete from beautycontent where bcid="&bcid&""
dim bdicount
    set rs=conn.Execute(sql,bdicount)
if bdicount>0 then response.write("成功")

set rs=Server.CreateObject("adodb.recordset")
后面用的conn.execute那么上面这句就是多余的

如果是判断是否成功执行删除可以利用错误捕捉的方法
On Error Resume Next
sql="delete from beautycontent where bcid="&bcid&""
conn.Execute(sql)
IF Err.Nmbuer=0 Then
   Response.Write "删除成功"
Else
   Response.Write "删除失败"
   Response.Write "原因:"&Err.Description
End IF
如果是判断删除后数据是否还存在就要进行读取
bcid=request("bcid")
sql1="delete from beautycontent where bcid="&bcid&""
sql2="select * from beautycontent where bcid="&bcid
conn.Execute(sql1)
Set rs=conn.execute(sql2)
if rs.eof then
   Response.write "数据已经被删除"
End IF

yms123依旧还是那么牛比啊！

UP