以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  页面代码终止执行，下面粉色这样行吗？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104331)
--  作者：zhangjian222200
--  发布时间：2017/7/27 14:42:00
--  页面代码终止执行，下面粉色这样行吗？
Dim e As RequestEventArgs = args(0) 
Dim wb As New weui

Dim username As String =e.Cookies("isj")  \'定义,用户名(手机号)(从httprequest事件获取手机号,以备完善信息)
Dim dr As DataRow \'定义会员所在的行
If e.Cookies.ContainsKey("isj") \'如果存在名为isj的Cookie,即已经登录
    dr = DataTables("会员资料").sqlFind("手机 = \'" & username & "\'")  \'说明:查找手机号,所在的行
End If

Dim nicheng As String \'定义,昵称

If dr IsNot Nothing Then
   nicheng = dr("昵称")
elseIf dr IsNot Nothing Then
   ’如果执行了这里，下面的页面代码终止执行，下面粉色这样行吗？
    With wb.AddDialog("bt3","dlg1", "您可能掉线了!没有找到您的信息!","您可能掉线了!没有找到您的信息!")
        .AddButton("btn1","确定")
    End With
    wb.insertHTML("<script>show(\'dlg1\')</script>")
    e.WriteString(wb.Build) \'生成网页
    Return ""  \'必须的
End If

wb.AddForm("","form1","per_jichu_fz.htm")
With wb.AddInputGroup("form1","ipg1","基础资料")
    .AddHidenValue("huiycz",1) \'会员操作(提交微信或支付宝)
    With .AddInput("wdbh","我的编号","text")
        .Value = wodbh
        .Readonly = True
    End With
end with

******更多代码

[此贴子已经被作者于2017/7/27 16:03:26编辑过]
--  作者：有点甜
--  发布时间：2017/7/27 14:55:00
--  

 不行，return只能终止函数里面的，不能终止函数外面的代码。

 

 直接说你要做什么功能。
--  作者：zhangjian222200
--  发布时间：2017/7/27 15:01:00
--  
1楼，粉色部分改了，又补充了红色代码，想要的功能如下：

如果dr行没有找到，在else那里终止页面执行，弹出对话框
不用执行红色那段代码了
[此贴子已经被作者于2017/7/27 16:04:12编辑过]
--  作者：有点甜
--  发布时间：2017/7/27 16:15:00
--  

不行么？

 

If dr IsNot Nothing Then
   nicheng = dr("昵称")
Else
   \'如果执行了这里,下面的页面代码终止执行,下面粉色这样行吗?
    With wb.AddDialog("bt3","dlg1", "您可能掉线了!没有找到您的信息!","您可能掉线了!没有找到您的信息!")
        .AddButton("btn1","确定")
    End With
    wb.insertHTML("<script>show(\'dlg1\')</script>")
    e.WriteString(wb.Build) \'生成网页
    Return ""  \'必须的
End If
--  作者：zhangjian222200
--  发布时间：2017/7/27 16:26:00
--  
我感觉应该是可以的

因为之前在别的页面里面，类似的情况，但不是找不到行

而是判断了某个条件不符合的时候，不再生成页面，楼上方法能够正常执行的

只是，楼上这样，找不到行的情况，太少，无法测试
[此贴子已经被作者于2017/7/27 16:28:42编辑过]
--  作者：有点甜
--  发布时间：2017/7/27 16:51:00
--  
以下是引用zhangjian222200在2017/7/27 16:26:00的发言：
我感觉应该是可以的

因为之前在别的页面里面，类似的情况，但不是找不到行

而是判断了某个条件不符合的时候，不再生成页面，楼上方法能够正常执行的

只是，楼上这样，找不到行的情况，太少，无法测试
[此贴子已经被作者于2017/7/27 16:28:42编辑过]

 

你测试的时候，可以直接这样测试的啊，不加判断测试，如果可以，即可。


    With wb.AddDialog("bt3","dlg1", "您可能掉线了!没有找到您的信息!","您可能掉线了!没有找到您的信息!")
        .AddButton("btn1","确定")
    End With
    wb.insertHTML("<script>show(\'dlg1\')</script>")
    e.WriteString(wb.Build) \'生成网页
    Return ""  \'必须的