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