专家坐堂-函数自定义后，页面不显示Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  函数自定义后，页面不显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97091)

--  作者：zhangjian222200
--  发布时间：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

--  作者：有点色
--  发布时间：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
--  发布时间：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编辑过]

--  作者：有点色
--  发布时间：2017/3/6 10:53:00
--

这句代码去掉 Return ""

--  作者：zhangjian222200
--  发布时间：2017/3/6 10:58:00
--
注释了Return ""，还是不行

浏览器输入的是：http://127.0.0.1/index.htm

[此贴子已经被作者于2017/3/6 11:12:52编辑过]

--  作者：有点色
--  发布时间：2017/3/6 11:57:00
--

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

如果你实在测试不了，请上传实例。

--  作者：zhangjian222200
--  发布时间：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编辑过]

--  作者：有点色
--  发布时间：2017/3/6 12:52:00
--

Dim e As RequestEventArgs = args(1)

改成

Dim e As RequestEventArgs = args(0)