最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
检测用户名是否己注册
时间：2022-07-02 23:14:27 编辑：袖梨 来源：一聚教程网
检测用户名是否己注册
这是我们常会用的到代码了,你要好好记住啊.检测用户名是否己注册
Sub Checkname()
Dim Rs,SQL,UserEmail
UserEmail = Newasp.checkstr(Trim(XmlDoc.documentElement.selectSingleNode("email").text))
If IsValidEmail(UserEmail) = False Then
Messenge = "
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 = "
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 = "
Else
Status = 0
Messenge = "
End If
Rs.Close:Set Rs = Nothing
End Sub
相关文章
- 韩漫原著无删减入口链接-最新地址获取及在线阅读指南 04-17
- 朋友收集梦想生活初音未来捏脸一览 04-17
- 暗黑挂机使者手游好玩吗 暗黑挂机使者手游核心玩法与挂机养成机制详解 04-17
- 三角洲行动官网直达-三角洲行动官网入口 04-17
- 这是谐音梗手游好玩吗 这是谐音梗手游核心玩法与趣味性解析 04-17
- 夸克入口-夸克浏览器网页版 04-17