新微赢技术网

标题: 这个代码怎么错了? [打印本页]

作者: 别问我是谁    时间: 2010-1-10 09:07
标题: 这个代码怎么错了?
各位大虾,我做的是注册页面,其中有一个判断是超级用户还是普通用户,我是这样写的 :
rs.addnew
rs("name")=name
rs("password")=password
if qq="管理员" then
rs("user_type")=1
else
rs("user_type")=0
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
session("name")=name
session("password")=password
response.write "恭喜你注册成功!你的用户名是:"
response.write  session("name")
response.write "<br>"
response.write "你的密码是:"
response.write  session("password")
response.write "<br>"
response.write "<a href='index.asp'>转到首页</a>"
end if
这个是其中一部分代码,但是就是当我选择管理员单选按钮时根本写不进去数据库,但是按普通的那个单选按钮就能写进去,但当我直接这样写:

if qq="管理员" then
rs.addnew
rs("name")=name
rs("password")=password
rs("user_type")=1
能写进管理员是肯定的,但又当点普通用户时出现问题了,你们说我要怎么写?谢谢
作者: 我為ぷぃ情醉    时间: 2010-1-10 09:07
程序代码:
Dim i,s
i=10
If i Mod 2=1 Then
  s="奇数"
Else
  s="偶数"
  Msgbox s
End If
作者: 人杰地灵    时间: 2010-1-10 09:07
谢谢楼上的哥们,我按你的方法解决了,真的很感谢,非常感谢,嗨,昨天都在提醒自己要细心,今天我又是怎么了,还是粗心,嗨,这样真累啊,是不是啊大哥大姐门,所以大家都以后注意点哦,信心第一!!!!!来到这里真好,有那么多兄弟姐妹帮忙,没有什么办不了的,以后大家有什么问题,尽管问,我知道的肯定全部奉告!!!!友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁友谊万岁
作者: 我只在乎你    时间: 2010-1-10 09:07
update语句,我没有用update语句啊,我就是直接写进去啊,我发现就是不能写进第一句,也就是if qq="管理员" then
rs("user_type")=1   else   , 就这句执行不了,当选到管理员就写不进去,但选普通用户就能写,你们说怎么了?
作者: 西门庆    时间: 2010-1-10 09:07
看看你的update语句在哪里执行的。
作者: け星☆辰ご    时间: 2010-1-10 09:08
if qq="管理员" then
rs("user_type")=1
else
rs("user_type")=0
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
这里有问题,end if应在这里:
if qq="管理员" then
rs("user_type")=1
else
rs("user_type")=0
end if

rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
作者: →莲佳    时间: 2010-1-10 09:08
我觉得这样不行,我想想,呵呵,不行   ,我刚试过了
作者: 成哥    时间: 2010-3-14 15:05
我现在终于明白我缺乏的是什么了,正是楼主那种对真理的执着追求和楼主那种对理想的艰苦实践所产生的厚重感。




欢迎光临 新微赢技术网 (http://bbs.weiying.cn/) Powered by Discuz! X3.2