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 |
请发表评论