专家坐堂-怎么实现系统自动判断当前网页名去对应的获取函数名称并将代码进行显示？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=160315)

--  作者：cnsjroom
--  发布时间：2021/1/28 18:21:00
--  怎么实现系统自动判断当前网页名去对应的获取函数名称并将代码进行显示？

麻烦老师们看看有没有办法优化代码
实现用户不管是选择任何网页名的内容，都能够对应的匹配对应的函数名及代码值。

创建有一内部函数表
表中有函数名称网页名代码字段
假设：
函数名称： logon
网页名： logon.htm
代码列值为：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If Functions.Execute("yanzheng",e) = 1 \'获取验证不能使用异步函数,必须等待并获取验证结果
Dim cmd1 As New SQLCommand
cmd1.C \'记得设置数据源名称
cmd1.CommandText = "Sel ect Count(*) From {test}"
Dim dt As DataTable = cmd1.ExecuteReader
wb.AddPageTitle("","pageheader","xx系统")
If e.PostValues.Count > 0 Then \'判断是否是验证失败后的重新登录
wb.AddTopTips("","toptip11","用户名或密码错误!").msec = 2000 \'如果用户通过登录按钮访问,则给用户一个2秒的提示.
End If
wb.AddForm("","form1","logon.htm")
With wb.AddInputGroup("form1","ipg1")
With .AddSelect("名称","名称*","|" & dt.sqlGetComboListString("名称"))
.Attribute = "font-family: Verdana;">部门\',false)"""
End With

With .AddSelect("部门","部门*","")
.Attribute = "font-family: Verdana;">部门\',false)"""
End With
With .AddSelect("姓名","姓名*","" )
End With
.AddInput("密码","密码*","password").Placeholder = "请输入6位数密码"
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "登录", "submit")
End With
With wb.AddPageFooter("","pf1","Copyright © 2021")
.AddLink("本系统为初步demo版本")
End With
e.WriteString(wb.Build) \'生成网页

End If

生成内部函数的代码：（生成对应htm代码页面的代码）
Dim st As Date = Date.Now \'将开始时间保存在变量st中
Dim drs As new List(Of DataRow)
drs = DataTables("内部函数表").Select("")
Dim s As String
For Each dr As DataRow In drs
s = dr("代码")
If s.Contains("Dim e As RequestEventArgs = args(0)") = False Then
dr("代码") = "Dim e As RequestEventArgs = args(0)" & vbcrlf & dr("代码")
End If
Functions.remove(dr("函数名称"))
Functions.Add(dr("函数名称"),dr("代码"))
MessageBox.Show(dr("函数名称"))
Next
MessageBox.Show("成功")
Functions.Complie()
DataTables("内部函数表").save

httprequest事件代码如下：
Dim fl As String = "d:\\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
Dim wb As New weui
Select Case e.Path
Case Tables("内部函数表").Current("网页名")
e.AsyncExecute = True \'通知系统,将采用异步方式生成网页
Functions.AsyncExecute(Tables("内部函数表").Current("函数名称"), e) \'异步调用函数生成网页

Case ""
e.AsyncExecute = True \'通知系统,将采用异步方式生成网页
Functions.AsyncExecute("default", e) \'异步调用函数生成网页
End Select

红色部分代码想实现系统自动判断当前网页名去对应的获取函数名称并将代码进行显示，当前运行有点不顺畅
麻烦老师们看看有没有办法优化代码
实现用户不管是选择任何网页名的内容，都能够对应的匹配对应的函数名及代码值。

--  作者：有点蓝
--  发布时间：2021/1/28 20:10:00
--
建个表，管理网页名称和函数的对应关系，可以看看这里的实例：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150866

我就是这么处理的

--  作者：cnsjroom
--  发布时间：2021/1/29 9:36:00
--  回复：（有点蓝）建个表，管理网页名称和函数的对应关...

老师参照你提供的实列我看了一下下面的语句是关键
Select Case e.Path
Case "teststep1.htm"
Functions.Execute("teststep",e)

当前我已经按照你提供的思路创建了表对应有函数名称网页名代码也按照一楼的方式将对应的函数名称生成函数
生成内部函数的代码：（生成对应htm代码页面的代码）
Dim st As Date = Date.Now \'将开始时间保存在变量st中
Dim drs As new List(Of DataRow)
drs = DataTables("内部函数表").Select("")
Dim s As String
For Each dr As DataRow In drs
s = dr("代码")
If s.Contains("Dim e As RequestEventArgs = args(0)") = False Then
dr("代码") = "Dim e As RequestEventArgs = args(0)" & vbcrlf & dr("代码")
End If
Functions.remove(dr("函数名称"))
Functions.Add(dr("函数名称"),dr("代码"))
MessageBox.Show(dr("函数名称"))
Next
MessageBox.Show("成功")
Functions.Complie()
DataTables("内部函数表").save

此主题相关图片如下：111.png

Case Tables("内部函数表").Current("网页名")
e.AsyncExecute = True \'通知系统,将采用异步方式生成网页
Functions.AsyncExecute(Tables("内部函数表").Current("函数名称"), e) \'异步调用函数生成网页
麻烦老师们看看有没有办法优化代码
实现用户不管是选择任何网页名的内容，都能够对应的匹配对应的函数名及代码值

[此贴子已经被作者于2021/1/29 9:36:12编辑过]

--  作者：有点蓝
--  发布时间：2021/1/29 9:48:00
--
您根本没看懂例子的用法

Case Else
Dim dr As DataRow = DataTables("httprequest").Find("path=\'" & e.Path & "\'") \'从表格查询是否有这个网页名
If dr IsNot Nothing Then ‘如果有
Functions.Execute(dr("function"),e) ‘调用对应名称的函数
Else ’否则提示出错
Dim wb As New weui
wb.InsertHTML("<p>杯具!页面丢失了!!</p>")
wb.AppendHTML("<script>console.warn(\'" & e.Path & "不在httprequest表,请检查是否没有设置.\')</script>")
e.WriteString(wb.Build)
End If

--  作者：cnsjroom
--  发布时间：2021/1/29 9:58:00
--  回复：（有点蓝）您根本没看懂例子的用法 ...
老师没有在测试数据库中找到"httprequest"这个表所以忽视了这部分代码

--  作者：cnsjroom
--  发布时间：2021/1/29 10:02:00
--  回复：（有点蓝）您根本没看懂例子的用法 ...
老师谢谢！我再学习一下

--  作者：cnsjroom
--  发布时间：2021/1/29 10:06:00
--  回复：（有点蓝）您根本没看懂例子的用法 ...
老师

httprequest表只有两个字段一个是path 一个是function 有没有办法不用在常见项目的时候就预设好内部函数呢？
而是采用在后期输入代码生成内部函数内容

下面这个代码有没有不足的地方呢？
生成内部函数的代码：（生成对应htm代码页面的代码）
Dim st As Date = Date.Now \'将开始时间保存在变量st中
Dim drs As new List(Of DataRow)
drs = DataTables("内部函数表").Select("")
Dim s As String
For Each dr As DataRow In drs
s = dr("代码")
If s.Contains("Dim e As RequestEventArgs = args(0)") = False Then
dr("代码") = "Dim e As RequestEventArgs = args(0)" & vbcrlf & dr("代码")
End If
Functions.remove(dr("函数名称"))
Functions.Add(dr("函数名称"),dr("代码"))
MessageBox.Show(dr("函数名称"))
Next
MessageBox.Show("成功")
Functions.Complie()
DataTables("内部函数表").save

--  作者：有点蓝
--  发布时间：2021/1/29 10:08:00
--

Case Else
Dim dr As DataRow = DataTables("httprequest").Find("path=\'" & e.Path & "\'") \'从表格查询是否有这个网页名
If dr IsNot Nothing Then ‘如果有
Functions.Execute(dr("function"),e) ‘调用对应名称的函数
Else
处理预设好内部函数
End If

--  作者：zhutangxin
--  发布时间：2021/1/29 23:41:00
--
remark, web 设计思路

--  作者：cnsjroom
--  发布时间：2021/1/31 16:38:00
--  回复：（有点蓝）您根本没看懂例子的用法 ...

httprequest事件代码如下：
Dim fl As String = ProjectPath & "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 ""
e.AsyncExecute = True \'通知系统,将采用异步方式生成网页
Functions.AsyncExecute("default", e) \'异步调用函数生成网页
Case Else
Dim dr As DataRow = DataTables("内部函数表").Find("网页名=\'" & e.Path & "\'")
If dr IsNot Nothing Then
Functions.Execute(dr("函数名称"),e)
Else
Dim wb As New weui
wb.InsertHTML("<p>杯具!页面丢失了!!</p>")
wb.AppendHTML("<script>console.warn(\'" & e.Path & "不在httprequest表,请检查是否没有设置.\')</script>")
e.WriteString(wb.Build)
End If
End Select

页面代码如下：
With wb.AddInputGroup("form1","ipg111111","文件列表")
For Each dr1 As DataRow In dt.DataRows
Dim fln As String = dr1("图片名称")
Dim wj As String ="./缓存文件\\" & fln
If FileSys.FileExists(wj) Then \'如果本地存在同名文件且CRC校验值相同
\'则直接使用本地文件
Dim sb As New StringBuilder
sb.appendLine("<div>")
sb.appendLine("<a href=\'" & wj & "\'>" & fln & "</a>")
sb.appendLine("</div>")
wb.InsertHTML("form1",sb.ToString)
Else \'否则从数据库提取文件
If dr1.SQLLoadFile("图片",wj) = True Then \'如果提取文件失败

Dim sb1 As New StringBuilder
sb1.appendLine("<div>")
sb1.appendLine("<a href=\'" & wj & "\'>" & fln & "</a>")
sb1.appendLine("</div>")
wb.InsertHTML("form1",sb1.ToString)
End If
End If
Next
End With

运行页面代码会下载对应的二进制文件到缓存文件夹下，
获取到的文件会在页面显示对应的网址路劲，但是打开会提示“杯具，页面不存在”
麻烦老师看看