Dim e As RequestEventArgs=args(0) '用此函数作为中转,打开真正的判断页面 judgeinorderstate.htm 只有这样,在judgeinorderstate界面里面才会有openid
Dim sb As New StringBuilder
sb.AppendLine("<meta name='viewport' c>")
msgbox(e.GetValues("RepairID")) '可以弹出42
Dim ul1 As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid={0}&redirect_uri={1}&response_type=code&scope=snsapi_base&state={2}#wechat_redirect" '共有3个参数
Dim ul2 As String = UrlEncode("http://wx.yc****.com/xdf/service/judgeinorderstate.htm")
ul1 = CExp(ul1,"wx8acdb7df*****",ul2,e.GetValues("RepairID"))
msgbox(ul1) '弹出正常
可我后台就是设置的是对的
我不知道哪里错了呀。
[此贴子已经被作者于2019/7/25 12:44:59编辑过]