if Duserid="" then
Remess="会员编号为空,删除失败!"
Response.Write(Remess)
else
sql="delete from users where userid='"&Duserid&"'"
oConn.execute sql
Remess="成功删除会员编号为 "&Duserid&" 的记录！"
Response.Write(Remess)
oConn.Close
end if

或者

if Duserid="" then
Remess="会员编号为空,删除失败!"
Response.Write(Remess)
else
sql="delete from users where userid="&Duserid
oConn.execute sql
Remess="成功删除会员编号为 "&Duserid&" 的记录！"
Response.Write(Remess)
oConn.Close
end if

用了你上面的  还是不行  一样的结果