用户注册时，如何判断用户重名？先谢谢了~~~

[frankh2002]

代码如下：
<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<%@ page Language="VB" Debug="true"%>
<script runat="server">
Dim myConnection As OleDbConnection
Dim myCommand As OleDbCommand
Dim null AS DBnull
dim username as string,password as string
sub page_load(obj as object,e as eventargs)
username = request.QueryString("username")
password = request.QueryString("password")
if(username = "" or password = "")
response.write("用户名和密码不能为空")
end if
if(username <> "" and password <>"")
dim dbname as string
dbname=server.mappath("admin/dbnews.mdb")
myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source="&dbname )
myConnection.Open()
myCommand = New OleDbCommand( "select * FROM dbuser where dbusername="&username, myConnection )
response.write(myCommand)
'这里应该怎么判断啊？数据库是acess的


'下面是插入到数据库的东西
myCommand = New OleDbCommand( "Insert INTO dbuser(dbusername,dbpassword) Values('"& username &"','"& password &"')", myConnection )
myCommand.ExecuteNonQuery()
response.write("注册成功")
response.write(myCommand)
MyConnection.Close()



end if

end sub
</script>
如何判断用户名重名？

[2002pine]

如果你不准同名，你可以在数据库中设name字段为uniqure，这样在执行时就会throw 一个
sqlException,你就可以用try catch
{
insert.....
}
catch(System.Data.SqlClient .SqlException ex )
{
if(ex.Number==）//你可试一下它等于多少
//已经有此用户
}

• 打赏
• 举报

回复 赞

[lkk2073]

C#的...看看思路吧...

//检查是否存在登录名重复的情况
foreach(DataRow pRow in ds_all.Tables["personalInfo"].Rows)//表中的所有行
{
if(pRow["loginname"].ToString().TrimEnd().Equals(tb_loginname.Text.TrimEnd()))
{
Response.Write ("<script>window.alert('该登录名已存在,请重新填写!!!')</script>");
}
}

• 打赏
• 举报

回复 赞

[frankh2002]

谢谢楼上的几位！
我用的是vb.net~~~
当然可以那样设置关键字
但是，我已经设置其它的关键字，另外其它的页面需要哪个关键字，不好改~~还是麻烦你们帮我想想。
如何查询数据库里已经有记录？
如何返回查询结果？
如何判断？
我用的是acess数据库。

• 打赏
• 举报

回复 赞

[gzhubonet]

这是VB.NETr的.
Dim conn As OledbConnection
conn=new OledbConnection()
'设置链接字符串
conn.connectionString="provider=Microsoft.Jet.Oledb.4.0;" & _
"Data Source=" & server.MapPath("user.mdb")
conn.open()
Dim Cmd As OledbCommand
'建立command对象，并且指定sql语句
Dim SqlStr As String
SqlStr="Select * From reg Where userid='" & username.text & "'"
Cmd=New OledbCommand(SqlStr,conn)
Dim Rd As OledbDataReader
Rd=Cmd.ExecuteReader()
If rd.Read() then

response.write ("该用户名已经被占用")
祝你成功!!!!!!!!

• 打赏
• 举报

回复 赞

[frankh2002]

谢谢楼上的~~~
马上给分`~

• 打赏
• 举报

回复 赞