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
