上一篇: 
下一篇: 
文章来自: 
引用通告: 
Tags: 
最新日志:
不错呦！smile@林凯西，确保“准备文件”中的几个文件都有安装，S...您好，看了您这篇帖子觉得很有帮助。但是有个问题想请...我的修改过了怎么还被恶意注册呢 @jjjjiiii 用PJ快9年了，主要是A...PJ3啊，貌似很少有人用PJ了，现在不是WP就是z...@332347365，我当时接入时错误码没有-10...楼主，ChkValue值应为-103是什么意思呢？...大哥 你最近能看到我发的信息，请跟我联系，我有个制...
检查用户名重复另解
编辑:dnawo 日期:2006-12-14
在检查用户名是否重复时，常规的方法是在数据库中查询是否存在同用户名的用户，并返回相应的信息，今天想到利用ACCESS数据库中主键不允许重复的特性也可以实现。
本例中db1.mdb中有一张test表，其中两个字段name和age，name为主键，代码如下：
本例中db1.mdb中有一张test表，其中两个字段name和age，name为主键，代码如下：
复制内容到剪贴板
程序代码
程序代码<%
On error resume next
Dim conn,sqlstr
Set conn=server.createobject("ADODB.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("db1.mdb")
conn.open
If err then
err.clear
Response.write "<script>alert('数据库连接出错')</script>"
End if
Sqlstr="insert into test values('aaa',26)"
Conn.execute(sqlstr)
If err then
err.clear
Response.write "<script>alert('该用户本已被使用!')</script>"
Else
Response.write "<script>alert('恭喜您可以使用这个用户名!')</script>"
End if
On error goto 0
%>
On error resume next
Dim conn,sqlstr
Set conn=server.createobject("ADODB.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("db1.mdb")
conn.open
If err then
err.clear
Response.write "<script>alert('数据库连接出错')</script>"
End if
Sqlstr="insert into test values('aaa',26)"
Conn.execute(sqlstr)
If err then
err.clear
Response.write "<script>alert('该用户本已被使用!')</script>"
Else
Response.write "<script>alert('恭喜您可以使用这个用户名!')</script>"
End if
On error goto 0
%>
评论: 0 | 引用: 0 | 查看次数: 4490
发表评论
请登录后再发表评论！
