Dim openid As String = xo("FromUserName") \'获取用户OpenID

                            Dim ticket As String = xo("Ticket") \'获取二维码的ticket

                            Dim sceneid As String = xo("EventKey") \'获取二维码的情景ID

                            Dim e As RequestEventArgs

                            Dim url As String = sceneid  \'sceneid的值是是一个http网页

                            

                           Dim wb As New WeUI

                           wb.In sertHTML("<m eta http-equiv=\'Refresh\' c on tent=\'0; url=" & url & "\'>") \'那么直接跳转到登录页面

                           e.WriteString(wb.Build) \'生成网页

                           Return ""