主题：HTTP用户身份验证

代码改成

 

1、直接复制粘贴帮助文档代码进去，是否有问题？

 

2、替换代码后，如果一直在登陆页，说明没有查找到表数据。核对你表数据和你输入的数据。

1、数据表Staff没有找到对应的用户，或者你数据没有加载出来导致找不到；

 

2、如果找到了，那就是password不匹配。

加入msgbox，看弹出什么

 

 

 

msgbox(dr is nothing)

msgbox(username & " | " & password)

if dr IsNot Nothing Then

    msgbox(username & " | " & password & " | " & dr("password"))

end If

If dr IsNot Nothing AndAlso Password = dr("password") Then

    Verified  = True

1、httprequest那里加入代码

 

msgbox(e.path)

 

2、下面代码，msgbox都弹出了没有？

 

MessageBox.Show( Verified ) '这里弹出什么内容
e.WriteString("<meta http-equiv='Refresh' content='0; url=/default.htm'>") '直接跳转到首页
MessageBox.Show(3)

 

3、做个具体实例发上来测试一下吧

 

            dr = UserTable.AddNew()
            dr("UserName") = UserName
            dr("UserID") = UserId
            dr("ActiveTime") = Date.Now '记录登录时间
            e.Appendcookie("username",UserName) '将用户名和密码写入cookie
            e.Appendcookie("userid",userid)