以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]异步标识放哪里比较好？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159671)
--  作者：浙江仔
--  发布时间：2021/1/4 11:05:00
--  [求助]异步标识放哪里比较好？
页面函数：
Dim e As RequestEventArgs = Args(0)

Dim Openid As String \'微信用户Openid

Dim wb As New weui

If e.host=WorkHost Or e.host.startswith("ding.") Then
    
Else  \'以下非企业号调用
   
    Openid  = Functions.Execute("Http_Get_MpOpenid3",e,wb)

    Dim cmd As New SQLCommand
    cmd.C
    cmd.CommandText ="Sel  ect Count(*) From Access_zsUser Where wechat_id = \'" & openid & "\' and is_active=\'1\' "
    If cmd.ExecuteScalar > 0 Then
        
    Else \'未授权用户无法使用

      Functions.Execute("NonAccessMsbPage",e,wb,Openid)
      e.Handled = True  \'位置1
      Return "" \'必须返回
    End If
End If
……

其他代码略



函数 NonAccessMsbPage ：
Dim e As RequestEventArgs = Args(0)
Dim wb As weui =args(1)
Dim Openid As String =args(2)

With wb.AddMsgPage("","msgpage","权限不足 无法访问","微信ID:" + Openid  +" 不在授权范围之内!如需访问,请联系管理员!")
    .icon = "Warn" \'改变图标
End With

With wb.AddPageFooter("","pf1","Copyright ©  浙江仔")
    
End With
e.WriteString(wb.Build)
e.Handled = True \'位置2
End With

请问：红色的异步关闭信道的标识，是放在位置1还是位置2？还是两个都要放？
--  作者：有点蓝
--  发布时间：2021/1/4 11:47:00
--  
放在函数返回前，如果代码里有多个Return ，每个Return 前都必须放一个