主题:  用户名重名

sunslee

职务:普通成员
等级:1
金币:0.0
发贴:107
#12003/6/19 21:28:58
用户注册时候,和access数据库用户名进行核对,如果没有重名就添加,如果重名就提醒更改,如何实现阿。给一段代码好吧。谢谢。



浮尘

职务:普通成员
等级:3
金币:7.0
发贴:1258
#22003/6/20 9:52:13
用SQL查呀,如果结果为Empty,就证明无重名。



sunslee

职务:普通成员
等级:1
金币:0.0
发贴:107
#32003/6/20 11:00:47
能不能详细点啊,给我一段代码算了,好吧。



我有BLOG了

职务:普通成员
等级:4
金币:16.8
发贴:2209
#42003/6/20 11:37:09
我也需要啊................提供一下!!!!!!!!



janlay

职务:管理员
等级:7
金币:28.0
发贴:7244
#52003/6/20 12:07:41
如果连这也要代码,我只能说你们基础太差了!

自己多看看书,多练练吧,抄别人的代码,知识永远都是别人的



sunslee

职务:普通成员
等级:1
金币:0.0
发贴:107
#62003/6/20 12:39:10
说得头头是道,老兄,外面培训的都是混饭的,自学又没有老师,你肯吗?如果肯我就把我的错误代码给你看;(



janlay

职务:管理员
等级:7
金币:28.0
发贴:7244
#72003/6/20 13:53:55
别人是不是在混饭你不用管,自己努力钻研就是了

自学如果还要老师的话,就不是自学了。ASP 自学起来算不上难,如果你觉得自学不了的话,劝你放弃它选择适合自己的技术。



计算器

职务:普通成员
等级:1
金币:0.0
发贴:74
#82003/6/20 14:10:18
janlay在上个帖子中说
引用:
别人是不是在混饭你不用管,自己努力钻研就是了

自学如果还要老师的话,就不是自学了。ASP 自学起来算不上难,如果你觉得自学不了的话,劝你放弃它选择适合自己的技术。 :)


有道理,但是还是希望管理人员,能提醒一下......................



sunslee

职务:普通成员
等级:1
金币:0.0
发贴:107
#92003/6/23 10:26:45
<%
set conn=server.createobject("ADODB.Connection")
set rs=server.createobject("ADODB.Recordset")
conn.open "filedsn=e:\user\user.dsn"
rs.open "select username from user",conn
strsql="insert into user(username,password,name_corp,product,add_corp,pc,tel_corp,fax_corp,mobile,email,ip) values ('"&username&"','"&password&"','"&name_corp&"','"&product&"','"&add_corp&"','"&pc&"','"&tel_corp&"','"&fax_corp&"','"&mobile&"','"&email&"','"&ip&"')"
checked=0
do while not rs.eof
if rs("username")=username then
checked=1
else rs.open strsql,conn
end if
rs.movenext
loop
if Checked =1 then
response.Write("username is exist ,change another one! ")
Response.End
end if
%>
这里也有一段程序,也是循环出错,不能控制,我想控制注册时候用户名和库里面的核对,如果同名则要更换。请问这个怎么弄啊。我已经学以致用了,用checked来控制,而不是直接输出。



sunslee

职务:普通成员
等级:1
金币:0.0
发贴:107
#102003/6/23 10:28:11
不能说我不努力自学,我也编了阿,可是不能用阿。怎么办啊,出来的结果不一样啊,你帮我看看,思路对吗?这样写能用吗?修改一下好吧。



{ 在指尖上绽放的花朵 }

职务:普通成员
等级:5
金币:14.0
发贴:3209
#112003/6/24 2:07:41
棘手的问题呢……

我过去的原则是好人做到底,送佛送到家。

总是写完整的代码出来。

后来被人声讨,说助长懒人习气,败坏论坛风气,被骂了个狗血喷头。

于是老老实实小心翼翼地开始提供算法,

结果又被骂,被说“某些人仗着自己比别人会的多一点,答问题的时候就那么笼统的一说,臭毛病!”

说我的人一副我是新手我怕谁的样子。

我说写代码吧? 挨骂了。 写算法吧? 照样不成……

…… 本来一片好意,结果落得个猪八戒照镜子的下场。

sigh~ 本来是过去的事情了…… 今天看到这个,突然又回想起来……

水一个,感慨一下……

好了,下面是正事。

楼上的那个如果重复则替换是什么意思呢?

id重复的话,把什么替换成什么呢?



sunslee

职务:普通成员
等级:1
金币:0.0
发贴:107
#122003/6/24 20:31:19
老兄,不是的,就是查询一下,如果有重复用户名出现就提醒username is exist ,change another one!
否则就把用户名插入数据库啊。但是结果出错的。而且有人说我的思路太乱。我不知道应该怎么考虑;)呵呵,行者,你是我对于本坛子里最熟悉的一个,不管任何流言蜚语我想我会永远做你最好的观众的。



{ 在指尖上绽放的花朵 }

职务:普通成员
等级:5
金币:14.0
发贴:3209
#132003/6/24 21:32:14
<%
set CONN=server.createobject("ADODB.Connection")
set Rs=server.createobject("ADODB.Recordset")
CONN.open "filedsn=e:\user\user.dsn"
Rs.open "SELECT username FROM user",CONN

strsql="insert into user(username,password,name_corp,product,add_corp,pc,tel_corp,fax_corp,mobile,email,ip) values ('"&username&"','"&password&"','"&name_corp&"','"&product&"','"&add_corp&"','"&pc&"','"&tel_corp&"','"&fax_corp&"','"&mobile&"','"&email&"','"&ip&"')"

checked = 0
do while NOT Rs.EOF 
 if Rs("username") = username then
  checked = 1
 end if
Rs.movenext
loop
[color=purple]Rs.close[/color]

if checked = 1 then 
 Response.Write("username is exist ,change another one! ") 
 Response.End
[color=red]else
  Rs.open strsql,conn[/color]
end if 
%>


呵呵,谢谢。

其实您的想法还是没什么问题的。

把红色的部分移动到现在的位置,然后加上紫色的部分。

应该就差不多了。

看看能不能懂? 有什么问题再提吧?

另外,写程序的时候,注意大小写和格式? 这样眼睛比较舒服。

编辑历史:[这消息被行者编辑过(编辑时间2003-06-24 21:35:59)]


sunslee

职务:普通成员
等级:1
金币:0.0
发贴:107
#142003/6/26 9:51:48
谢了,老哥



爱多媒体爱生活

职务:普通成员
等级:2
金币:1.0
发贴:303
#152003/6/26 15:36:50
原来还有人比我菜~~~