|
主题: 用户名重名
|
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
原来还有人比我菜~~~
|