数据库的判断问题！！

[blessmxb]

各位：
大家好。首先新年快乐啊。！
我这里有个问题： 我在数据库里设置了用户名（name）为主键。我要在页面怎样写语句才能保证输入是唯一的。 如果数据库里面有该用户名了，就给用户一个提示，而不出现需要出错页面。。
请各位给我解答一下。谢谢。

我才学的！！！

[blessmxb]

谢谢 KimSoft(革命的小酒天天醉) 我弄好了。谢谢你。

以后多多向你请教！

[KAI3000]

name字段是主键，那么数据库里面该字段就是唯一的了，不会出现重复。如果有重复录入，就会报错。当你的用户录入数据的时候，可以采用如下代码：
on error resume next
'录入数据库操作
dim mName="用户名"
conn.execute("insert into 表(name) values('"&mName&"')")
if err <> 0 then
response.write("该用户已经存在"):response.end
end if

[KAI3000]

刚才dim写错了

on error resume next
'录入数据库操作
dim mName:mName="用户名"
conn.execute("insert into 表(name) values('"&mName&"')")
if err <> 0 then
response.write("该用户已经存在"):response.end
end if

[KimSoft]

<%
if clng(conn.execute("select count(*) from 用户表 where [username]='" & 用户名 & "'")(0)) > 0 then
response.write "用户已经存在！"
else
conn.execute("insert into 用户表 (字段1，字段2) values (值1,值2)")
end if
%>

[biao1]

楼上正解

[henzaihuni]

在name输入那里加个检测用户名按纽，不要在最后提交后再检测。

[rimguncheng]

正确，

[huagou]

<%
dim rs,SQLStr
SQLStr ="SELECT * FROM 用户表 WHERE USERNAME = '"&用户名&"'"
Set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
Response.Write "<font color=#FF0000>系统提示:该用户名已存在！</font>"
end if
rs.close
Set rs = Nothing
%>