1. 论坛系统升级为Xenforo,欢迎大家测试!
    排除公告

程序错误...敬请各位大侠指教!!!!!!! 急!!!!!!!!!!!1

本帖由 Rongi20062006-03-08 发布。版面名称:后端开发

  1. Rongi2006

    Rongi2006 New Member

    注册:
    2006-03-04
    帖子:
    32
    赞:
    0
    各位大侠辛苦啦!!!!!!!!!小弟在测试以下这段程序时候...出现错误!!!!!!!!!!!
    错误就是:程序可以接收到Form的数据,但是却一直不能通过ID号的测试...老是说ID已占用!!可是数据库里根本没这些ID呀!!请教各位大侠.............应该怎么办????::cry: :cry: :cry:
    dim conn,connstr
    set conn=Server.CreateObject("ADODB.CONNECTION")
    connstr="DBQ="+server.mappath("database\bbsregister.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
    conn.open connstr

    id= Replace(trim(request.Form("id")),"'","")
    if id >0 then
    response.write ""&id&" " '为了验证程序是否接收到Form数据而写的
    end if

    Set cmd = Server.CreateObject("ADODB.Command")

    set cmd.ActiveConnection=conn

    sqlss="select id from register where id=id " '将变量用sql查询是否已经存在
    cmd.CommandText = sqlss
    Set rs=cmd.Execute

    if not (rs.eof or rs.bof) then
    response.write "ID号已占用!" '可惜老是显示这句....应该怎么办??请指教
    else
    conn.Execute "Insert Into register (id) Values(id)"'
    response.write "注册成功!" '我多希望能注册成功!!!!请教各位大侠!!!

    End if
     
  2. Rongi2006

    Rongi2006 New Member

    注册:
    2006-03-04
    帖子:
    32
    赞:
    0
    再说明一下...这只是一个注册的功能
     
  3. 小叶

    小叶 New Member

    注册:
    2005-09-04
    帖子:
    17,941
    赞:
    33
    检查此句
     
  4. Rongi2006

    Rongi2006 New Member

    注册:
    2006-03-04
    帖子:
    32
    赞:
    0
    很感谢你的帖子.......通过你的提醒......我已经解决了这个问题....谢谢!!!!!!!!!!!!!!!:lol: