如下写代码， 能弹出 我进来了， 11,33,44 可是0 1 2 3 4 5 都弹不出来， 不至于if else 一个都不满足吧？能帮忙看看是什么问题吗？
Dim e As RequestEventArgs=args(0)
msgbox("我进来了")
' For Each key As String In e.GetValues.Keys
' msgbox(e.GetValues(key)) '弹不出来
' Next
Dim OpenID As String
Dim sb As New StringBuilder
sb.AppendLine("<meta name='viewport' c>")
msgbox(11)
If e.GetValues.ContainsKey("code") Then '如果通过授权链接跳转而来,就根据传递过来的code参数调用接口,获取用户的OpenID
Dim ul As String = "https://api.weixin.qq.com/sns/oauth2/access_token?appid={0}&secret={1}&code={2}&grant_type=authorization_code"
ul = CExp(ul,"wx75369af48****","6fecdca78c5eb1e65ac****",e.GetValues("code"))
Dim hc As new HttpClient(ul)
Dim jo As JObject = JObject.Parse(hc.GetData)
msgbox(22)
If jo("openid") IsNot Nothing Then
OpenID = jo("openid")
e.AppendCookie("openid",OpenID) '将openid存储在Cookie中
End If
Else
OpenId = e.Cookies("openid") '否则从cookie中提取openid
End If
msgbox(33)
' msgbox("OpenID" & OpenId)
Dim dr As DataRow = DataTables("WeChatUsers").Find("openid ='" & OpenID & "'") '根据openid找出对应的行
msgbox(44)
If e.Cookies("openid")>"" AndAlso dr("EmployeeID")>"" Then '如果缓存中有OpenID且根据OpenID查表能找到EmployeeID不为空的值 则跳转到目标--服务受理页面.
msgbox(0)
'sb.AppendLine("欢迎您, <a href='http://wx.***.com.cn/xdf/service/applyservice.htm'>刷新页面</a>")
Functions.Execute("CheckUser_ApplyService",e) '则执行显示验证用户身份的函数并返回
Return "Sucess"
ElseIf (dr Is Nothing Or dr("EmployeeID")="") Then '如果没有根据openid找到数据行,或找到的数据行的employeeID字段为空,则跳转到验证用户身份即输姓名工号密码的页面.
msgbox(1)
sb.AppendLine("欢迎您, <a href='http://wx.****.com.cn/xdf/service/CheckUser_ApplyService.htm'>刷新页面</a>")
ElseIf (e.GetValues.ContainsKey("code") = False Or e.Cookies("openid")="") Then '如果授权失败,且不是通过授权链接跳转而来 或者缓存中没有openid字段 ,那么就跳转到授权链接(以阻止用户非法直接访问目标地址)
msgbox(2)
Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wx75369af48***&redirect_uri=http%3a%2f%2fwx.****com.cn%2fxdf%2fservice%2fApplyService.htm&response_type=code&scope=snsapi_base&state=123#wechat_redirect"
sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接
e.WriteString(sb.ToString)
Return "Fail"
Else
msgbox(3)
End If
msgbox(4)
e.WriteString(sb.ToString) '向终端推送页面
msgbox(5)
[此贴子已经被作者于2017/4/21 18:30:37编辑过]
加好友 
发短信
Post By：2017/4/21 15:22:00 [只看该作者]
