注册检查用户名问题(急阿，明天要交作业，在线等）

[BENQ789]

rt.asp

<%
DIM conn
FUNCTION RT(str,file,table)

set conn=server.createobject("ADODB.connection")

conn.connectionstring="provider=microsoft.jet.OLEDB.4.0;" & "data source=" & server.mappath(file)

conn.Open


set RT=server.createobject("ADODB.recordset")

RT.open str,conn,1,3
END FUNCTION
%>





注册检查用户.asp

<!-- #include file="rt.asp"-->
<%
dim username,userpw1,userpw2,rs,str
username=request("username")
userpw1=request("userpw1")
userpw2=request("userpw2")


response.write "<br>"& username & "<br>" & userpw1 &"<br>"&userpw2

if username<>"" then
str="selcet * from " & user & " where username=username"
set rs=RT(str,feilong.mdb,user)
if username=rs("username") then
Response.Write "这个名字已经有人注册了，请换一个用户名字"
%>


这句应该怎么写？
str="selcet * from " & user & " where username=username"

[BENQ789]

to alexzhang00(三角猫(sjcatsoft))


if username<>"" then
if CheckUser(username,dbfile,tablename) > 0 then
Response.Write "这个名字已经有人注册了，请换一个用户名字"
end if
end if

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'CheckUser'

[BENQ789]

如果表的名字是固定的话用下边的：

　str="select * from talbe where username='"&username&"'"

如果表的名字是变化的用下边的：

　str="select * from '"&user&"' where username='"&username&"'"


Microsoft JET Database Engine 错误 '80040e14'

无效的 SQL语句；期待 'DELETE'、'INSERT'、'PROCEDURE'、'SELECT'、或 'UPDATE'。

[BENQ789]

库名 feilong.mdb
表名： user （固定表)
表的一个字段 username

在表格传过来的用户名也是 username

注册检查用户.asp 定义的用户名也是USERNAME
dim username,userpw1,userpw2,rs,str

[chhwang]

str="select * from user where username='"&username&"'"
rs.open str,conn,1,3
if not rs.eof then
reponse.write "对不起,该用户名"&username&"已注册!"
end if

[BENQ789]

str="select * from user where username='"&username&"'"
rs.open str,conn,1,3
if not rs.eof then
reponse.write "对不起,该用户名"&username&"已注册!"
end if

可以不用这种方法？好像很少见这种方法，而且我想用SQL查询

[BENQ789]

str="selcet * from [user] where username='"&username&"'"
这句本来就有语法错误，怎么改？

Microsoft JET Database Engine 错误 '80040e14'

无效的 SQL语句；期待 'DELETE'、'INSERT'、'PROCEDURE'、'SELECT'、或 'UPDATE'。

[chhwang]

不明白你什么意思,什么sql查询,这个和你的意思不是一样吗??也是通过返回的username然后在数据库中查询啊

[chhwang]

那一句没有错误,你用的什么数据库,数据库权限怎么设置的

[BENQ789]

我用的是ACCESS,权限是每个人完全控制

[BENQ789]

急阿，等了2个多小时还没有搞惦，加了我最后20分

[BENQ789]

？？？help

[wugw]

这样吧我给你点思路，因为我也从不用桌面数据库也没有那ACCESS，无论给你试，三角猫的代码应该是正确的，你好好研究调试一下，有点研究精神，别忙着交差。不明白多用GOOLE。
对于那段代码无非是一个查询字符串的语法问题，你自己写一条正确的查询语句，然后再转到代码上进行字符串组合，把这个字符串输出看你组合的是不是正确的，当然我认为三角猫的好象没错。问题得你自己耐下心来一点点克服，别动不动就上来了。很可能是你数据库上的事。

[BENQ789]

数据库没有问题，应该是语法问题

to alexzhang00(三角猫(sjcatsoft))


if username<>"" then
if CheckUser(username,dbfile,tablename) > 0 then
Response.Write "这个名字已经有人注册了，请换一个用户名字"
end if
end if

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'CheckUser'

[wugw]

你查下那个函数，或许你把
CheckUser = rt(0) 改为
CheckUser = CInt(rt(0))
然后再试试

[BENQ789]

用这种方法不可以？

str="selcet * from [user] where username='"&username&"'"

[wd_6532]

1 set rs=RT(str,feilong.mdb,user)
这句的feilong.mdb怎么没有"".

2 你调试的时候，有没有加上option explict,如果没有，先加上再调试。

3 把sql查询串再执行之前先response.write str: response.end 出来。看看有没有语法错误。

[BENQ789]

真是天大的笑话，原来是我英语水平问题 select 写成selcet

下面那句可以了，楼上的也是复制我的吧，5555害了我白等6个小时
str="select * from [user] where username='"&username&"'"


在表中有记录的时候正常输出这个名字已经有人注册了，请换一个用户名字，在没有相同用户的时候，为什么显示


错误 '80020009'
发生意外。

[xlou]

晕 楼主 只知道抄些例子 却不知道抄了人家一部分！！

[chhwang]

你现在是在检查该用户名是否存在,如果存在你就应该接着下一个动作,INSERT 进库啊,
IF CHECK()>0 THEN
RESPONSE.WRITE("...")
ELSE
SQL="INSERT INTO TABLE VALUES(...)"
SET RS=SERVER......
RS.OPEN SQL,CONN
END IF

[BENQ789]

错误 '80020009'
发生意外。