因为要在待进入的页面里获取openid，同时还要把一个参数即 RepairID带进去,以便在下一个页面找到准确的行，于是要跳转到 http://wx.ycyy.com/xdf/service/judgeinorderstate.htm?RepairID=" & e.Getvalues("RepairID") ，但是下面这段代码无法跳转到 前面的网址(好像是因为有e.getvalu es("RepairID"))，不知道有什么别的办法把参数带进去？
Dim e As RequestEventArgs=args(0) '用此函数作为中转,打开真正的判断页面 judgeinorderstate.htm 只有这样,在judgeinorderstate界面里面才会有openid
Dim sb As New StringBuilder
sb.AppendLine("<meta name='viewport' c>")
Dim ul As String = "https://api.weixin.qq.com/sns/oauth2/access_token?appid={0}&secret={1}&code={2}&grant_type=authorization_code"
' Dim ul2 As String = UrlEncode("http://wx.ycyy.com/xdf/service/judgeinorderstate.htm?RepairID=" & e.Getvalues("RepairID")) '需要授权才能访问的页面 (其实就是本页面,即:根据流转状态作出下一步行为),因为要在本页面就拿到用户的openid,才能决定是否让用户打开结束维修的页面
Dim ul2 As String = UrlEncode("http://wx.ycyy.com/xdf/service/judgeinorderstate.htm?RepairID=42") '需要授权才能访问的页面 (其实就是本页面,即:根据流转状态作出下一步行为),因为要在本页面就拿到用户的openid,才能决定是否让用户打开结束维修的页面
ul = CExp(ul,"wx75369af48074b859",ul2,"123") 'wx75369af48074b859是王昆的appid
sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接
e.WriteString(sb.ToString)
加好友 
发短信
Post By：2019/7/24 19:06:00 [只看该作者]
