[求助]怎么在用户注册是检查用户名是否可用 - 编程论坛

#2

天涯听雨2007-10-09 18:51

#3

multiple19022007-10-09 18:57

自己想想“可用”的定义就知道了。

#4

yms1232007-10-09 19:18

数据库中如果存在就是重复注册不可用，不存在即可用。
通过读取数据库进行判断即可。

#5

dushui2652007-10-09 19:37

是啊，那要看你可用的标准了，如果不希望用户名重复就如楼上所说，如果不希望用户名里存在特别的字符如汉字或者敏感字，那就定义个函数来判断了

#6

zacom2007-10-09 21:15

支持楼上做法,最近也在弄登陆

#7

youkuwanhuo2007-10-10 17:12

Dim sqlstr As String
Dim sqlcon As New SqlConnection
Dim sqlcom As New SqlCommand
Dim ds As New DataSet
Dim da As New SqlDataAdapter
sqlcon.ConnectionString = "server=.;database=book1;integrated security=sspi"
sqlstr = "select 会员名 from hyb where 会员名='" & Me.hymtxtbox.Text & "'"
sqlcom.Connection = sqlcon
sqlcom.CommandText = sqlstr
da.SelectCommand = sqlcom
Try
sqlcon.Open()
da.Fill(ds)
If ds.Tables(0).Rows.Count = 0 Then
Me.labinfo.Text = "恭喜您,您可以注册此用户名"
Else
Me.labinfo.Text = "对不起,此用户已经有人使用了,请用其他的用户名"
End If
sqlcon.Close()
Catch ex As Exception
Me.labinfo.Text = "连接打不开"

看下这段代码 ,为什么老是"连接打不开" .

#8

youkuwanhuo2007-10-10 17:26

这段就是注册时检查用户名是否可用的代码,不知道怎么老是"连接打不开"

#9

yms1232007-10-10 17:31

楼主用的是SQL Server?的数据库?

#10

hmhz2007-10-10 17:31

有必要那么复杂吗？

<%
name=trim(request.querystring("name"))
set rs=server.createobject("adodb.recordset")
rs.open "select * from [user] where UserName='"&name&"'",conn,1,1
if rs.bof and rs.eof then
response.write "<font color=""green"">可以注册！</font>"
else
response.write "<font color=""red"">不可注册！</font>"
end if
rs.close
set rs=nothing
%>

[此贴子已经被作者于2007-10-10 17:32:39编辑过]

#11

youkuwanhuo2007-10-10 17:34

恩是SQL 数据库