检测用户名是否己注册

检测用户名是否己注册

这是我们常会用的到代码了,你要好好记住啊.检测用户名是否己注册

Sub Checkname()
 Dim Rs,SQL,UserEmail
 UserEmail = Newasp.checkstr(Trim(XmlDoc.documentElement.selectSingleNode("email").text))
 If IsValidEmail(UserEmail) = False Then
  Messenge = "

您的Email有错误！"
  Status = 1
  Exit Sub
 End If
 If CInt(Newasp.ChkSameMail) = 1 Then
  Set Rs = Newasp.Execute("SELECT userid FROM NC_User WHERE usermail='" & UserEmail & "'")
  If Not Rs.EOF Then
   Status = 1
   Messenge = "此邮箱["&UserEmail&"]已经占用，请您换一个邮箱再注册吧。"
   Exit Sub
  End If
  Rs.Close:Set Rs = Nothing
 End If
 Set Rs = Newasp.Execute("SELECT username FROM NC_User WHERE username = '" & UserName & "'")
 If Not (Rs.bof And Rs.EOF) Then
  Status = 1
  Messenge =  "Sorry！此用户已经存在,请换一个用户名再试！"
 Else
  Status = 0
  Messenge =  "" & UserName & " 尚未被人使用，赶紧注册吧！"
 End If
 Rs.Close:Set Rs = Nothing
End Sub