Foxtable(狐表) → 用户栏目 → 专家坐堂 → 函数自定义后，页面不显示


  共有1986人关注过本帖树形打印复制链接

主题：函数自定义后，页面不显示
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1554 积分：11025 威望：0 精华：0 注册：2016/9/12 11:18:00 		函数自定义后，页面不显示  发帖心情 Post By：2017/3/6 9:14:00 [只看该作者]

函数自定义后，页面不显示，浏览器无提示，页面一片空白

httprequest事件代码如下：
Select Case e.Path
    Case "index.htm"
        Functions.Execute("index",e)
End Select

自定义函数名：index，代码如下：（下述代码写在httprequest内，浏览器能够正常显示）
Dim e As RequestEventArgs = args(0)
Dim fl As String = "e:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return "" '这里必须返回
    End Select
End If
Select Case e.Path
    Case "index.htm"
        Dim wb As New weui
        For i As Integer = 1 To 5
            With wb.AddArticle("","ar" & i)
                .AddImage("./images/00" & i & ".jpg")
            End With
            wb.AddForm("","form" & i,"test.htm")
            With wb.AddInputGroup("form" & i,"ipg" & i)
                .AddInput("xm" & i,"年龄","text")
                .AddInput("pw" & i,"城市","text")
            End With
            With wb.AddButtonGroup("form" & i,"btg" & i,False)
                .Add("btn1" & i, "查看TA的资料", "submit")
            End With
        Next
        Return ""
        e.WriteString(wb.Build) '生成网页
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/6 10:26:00 [只看该作者]

这段代码，必须写到httpreques事件去。

 

Dim fl As String = "e:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return "" '这里必须返回
    End Select
End If
[此贴子已经被作者于2017/3/6 10:25:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1554 积分：11025 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/3/6 10:49:00 [只看该作者]

已经将事件头写到httprequest事件，浏览器依然无提示，页面一片空白，httprequest代码如下：
Dim fl As String = "e:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return  '这里必须返回
    End Select
End If
Select Case e.Path
    Case "index.htm"
        Functions.Execute("index",e)
    Case "xiangq.htm"
        Functions.Execute("xiangq",e)
End Select

自定义函数名：index，代码如下：
Dim e As RequestEventArgs = args(0)
Select Case e.Path
    Case "index.htm"
        Dim wb As New weui
        For i As Integer = 1 To 5
            With wb.AddArticle("","ar" & i)
                .AddImage("./images/00" & i & ".jpg")
            End With
            wb.AddForm("","form" & i,"test.htm")
            With wb.AddInputGroup("form" & i,"ipg" & i)
                .AddInput("xm" & i,"年龄","text")
                .AddInput("pw" & i,"城市","text")
            End With
            With wb.AddButtonGroup("form" & i,"btg" & i,False)
                .Add("btn1" & i, "查看TA的资料", "submit")
            End With
        Next
        Return ""
        e.WriteString(wb.Build) '生成网页
End Select

[此贴子已经被作者于2017/3/6 10:51:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/6 10:53:00 [只看该作者]

这句代码去掉 Return ""
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1554 积分：11025 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/3/6 10:58:00 [只看该作者]

注释了Return ""，还是不行

浏览器输入的是：http://127.0.0.1/index.htm
[此贴子已经被作者于2017/3/6 11:12:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/6 11:57:00 [只看该作者]

 我测试，没问题。Return指的是你内部函数index里面的return。

 

 如果你实在测试不了，请上传实例。
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1554 积分：11025 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/3/6 12:12:00 [只看该作者]

函数index可以了，但是另一个函数名：xiangq，调用异常，提示如下：
.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2017.3.2.1
错误所在事件：自定义函数xiangq
详细错误信息：
调用的目标发生了异常。
索引超出了数组界限。

xiangq自定义函数代码如下：（代码放在httprequest下，网页能够正常显示的）
Dim e As RequestEventArgs = args(1)
Select Case e.Path
    Case "xiangq.htm"
        Dim wb As New weui
        With wb.AddTabBar("", "tb1", 1)                            '使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
            .AddButton("bt1","返回","./images/a.jpg","http://www.foxtable.com")
            .AddButton("bt2","记录","./images/b.jpg","http://www.foxtable.com")
            .AddButton("bt3","设置","./images/c.jpg","http://www.foxtable.com")
            .AddButton("bt4","我的","./images/d.jpg","http://www.foxtable.com")
        End With
        With wb.AddArticle("","ar1")
            .AddImage("./images/001.jpg")
        End With
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","TA的资料")
            .AddInput("nianl","年龄","text")
            .AddInput("xuel","学历","text")
            .AddInput("huny","婚姻","text")
            .AddInput("chengs","我在","text")
            With wb.AddButtonGroup("form1","btg1",False)
                .Add("btn1", "邀TA加微信", "submit")
                .Add("btn1", "免费升级", "submit")
            End With
        End With
        With wb.AddInputGroup("form1","ipg2","更多资料")
            .AddInput("nianl","编号","text")
            .AddInput("nic","昵称","text")
            .AddInput("xingb","性别","text")
            .AddInput("sheng","身高","text")
            .AddInput("tix","体型","text")
            .AddInput("yuex","月薪","text")
            With .AddUploader("up1","",True)
                .AllowAdd = False                                   '关闭文件上传功能
                .AddImage("./images/001.jpg")
                .AddImage("./images/002.jpg")
            End With
        End With
        With wb.AddButtonGroup("form1","btg2",False)
            .Add("btn1", "邀TA加微信", "submit")
            .Add("btn1", "免费升级", "submit")
        End With
        With wb.AddInputGroup("form1","ipg3","理想友偶")
            .AddInput("nianl","年龄","text")
            .AddInput("xuel","学历","text")
            .AddInput("huny","婚姻","text")
            .AddInput("chengs","城市","text")
            .AddInput("sheng","身高","text")
            .AddInput("tix","体型","text")
            .AddInput("yuex","月薪","text")
        End With
        With wb.AddButtonGroup("form1","btg3",False)
            .Add("btn1", "邀TA加微信", "submit")
            .Add("btn1", "免费升级", "submit")
        End With
        'Return ""
        e.WriteString(wb.Build)                                       '在客户端,生成网页
End Select
[此贴子已经被作者于2017/3/6 12:14:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/6 12:52:00 [只看该作者]

Dim e As RequestEventArgs = args(1)

 

改成

 

Dim e As RequestEventArgs = args(0)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 4 次数据查询