<%@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
%>