（在说正事之前，我要推荐一个福利：你还在原价购买阿里云、腾讯云、华为云服务器吗？那太亏啦！来这里，新购、升级、续费都打折，能够为您省60%的钱呢！2核4G企业级云服务器低至69元/年，点击进去看看吧>>>)
Set objRs = Server.CreateObject("Adodb.Recordset")
mysql = "select sname from [users] where sname = '"&sname&"'"
objRs.open mysql,objConn,1,3

If objRs.Bof Or objRs.Eof Then
 objRs.addnew
 objRs("sname") = sname
 objRs.update
Else
 call salert("该用户已经存在，不可以注册")
End If