＜％@LANGUAGE="VBSCRIPT" CODEPAGE="936"％＞
＜!-- #include file="Connections/mj.asp" --＞
＜％
dim Duserid
Duserid=Request.form("userid")
if Duserid="" then
Remess="会员编号为空,删除失败!"
Response.Write(Remess)
else
set oConn=server.CreateObject("adodb.recordset")
sql1="delete from users where userid='"&Duserid&"'"
oConn.open sql1,gym_conn,1,3
Remess="成功删除会员编号为 "&Duserid&" 的记录！"
Response.Write(Remess)
oConn.Close
end if
％＞

set oConn=server.CreateObject("adodb.recordset")
oConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="& [数据库地址]
sql1="delete from users where userid='"& Duserid &"'"
delconn.Execute sql1
oConn.Close
Remess="成功删除会员编号为 "&Duserid&" 的记录！"
Response.Write(Remess)

[此贴子已经被作者于2006-4-21 16:11:04编辑过]