useropenid是什么内容？新用户肯定不会等于这个变量，新用户没有打开授权链接之前，肯定也无法获取到openid，所以不会出现授权成功的情况，正常应该会跳到下面红色代码。
If OpenId > "" AndAlso dr IsNot Nothing AndAlso dr("permit") = True '授权成功
wb.AppendCookie("username",UserName) '用户名和openid存储在Cookie中
wb.AppendCookie("openid",OpenID)
'output.show("2-1用户名和openid存储在Cookie中")
dr = DataTables("GrantTable").SqlFind("HtmName ='" & e.path & "'") '根据openid找出对应的行
If openid <>useropenid And dr("HtmName") <> dr("guest") Then
'output.show("3-清COOKINES时,如果不是超级用户")
wb.InsertHTML("<meta http-equiv='Refresh' c>")
'output.show("4-根据" & e.path & "找到所在行" & "跳转ul为:" & dr("guest"))
e.WriteString(wb.Build) '在用户浏览器显示错误信息
Return
Else
'如果是超级用户
wb.InsertHTML("<meta http-equiv='Refresh' c>")
e.WriteString(wb.Build) '在用户浏览器显示错误信息
Return
End If
Else
With wb.AddMsgPage("","msgpage","您无权访问该页","此内容仅供俱乐部永久会员访问!")
.icon = "Warn" '改变图标
End With
e.WriteString(wb.Build)
Return '必须返回
End If
这个还是需要您自己去一步步调试，应该执行的代码那些执行了，那些没有执行到，没有执行到是什么原因，哪些判断条件不符合。。。。。
加好友 
发短信
Post By：2021/3/4 17:05:00 [显示全部帖子]
