专家坐堂-httpserver拒绝访问Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  httpserver拒绝访问  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193092)

--  作者：huhu
--  发布时间：2024/8/16 10:23:00
--  httpserver拒绝访问

HttpServer.Prefixes.Add("http://*/")
HttpServer.WebPath = "d:\\web" \'指定静态文件存储位置
HttpServer.Start()

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：
详细错误信息：
拒绝访问。

--  作者：有点蓝
--  发布时间：2024/8/16 10:26:00
--
“以管理员身份运行此程序”http://www.foxtable.com/mobilehelp/topics/0001.htm

--  作者：huhu
--  发布时间：2024/8/16 10:46:00
--

Select Case e.Path
Case "bin.htm"
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
wb.AddForm("", "form1", "bin.htm")
With wb.AddInputGroup("form1", "ipg1", "临时版本查询")
.AddInput("bbbh", "版本编号", "text")

End With
With wb.AddButtonGroup("form1", "btg1", True)
.Add("btnok", "查询")
End With
With wb.AddInputGroup("form2", "ipg2", "查询结果")

.AddInput("bbzt", "版本状态", "text")
.AddInput("fbml", "发布目录", "text")
End With
e.WriteString(wb.Build) \'生成网页
End Select

form2没显示？这么写是不是不对啊。

[此贴子已经被作者于2024/8/16 10:46:59编辑过]

--  作者：huhu
--  发布时间：2024/8/16 11:21:00
--
1.如果做到发布目录和版本状态是不可编辑的，就是显示出来就行。
2.版本编号文本框输入编号后，如何和数据库中的一个"临时版本编号"表数据
此主题相关图片如下：qq截图20240816111513.png

交互啊。
希望网页版本编号文本框的值去匹配"临时版本编号表"的列"编号"，如果找到了就把发布目录和版本状态这2列的值显示到网页对应的栏目内。

--  作者：有点蓝
--  发布时间：2024/8/16 12:14:00
--
回3楼，都没有添加form2，怎么显示？

回4楼：只读看帮助Readonly的用法：http://www.foxtable.com/mobilehelp/topics/0045.htm，

交互参考：http://www.foxtable.com/mobilehelp/topics/0103.htm

--  作者：huhu
--  发布时间：2024/8/16 15:41:00
--

ajaxform.js
function setCodes(){
var result= submitAjaxFileds(\'getCodes.htm\',\'\',\'bbbh\',false);
if(result){
var vals=result.split("|");
if(vals.length==2){
document.getElementById("bbzt").value=vals[0];
document.getElementById("fbml").value=vals[1];
}
}
}

HttpRequest事件
Select Case e.Path
Case "bin.htm"
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
wb.AddForm("", "form1", "bin.htm")
With wb.AddInputGroup("form1", "ipg1", "博达临时版本查询")
.AddInput("bbbh", "版本编号", "text")
With.AddInput("bbzt", "版本状态", "text")
.Readonly = True
End With
With.AddInput("fbml", "发布目录", "text")
.Readonly = True
End With
End With

With wb.AddButtonGroup("form1", "btg1", True)
.Add("btnok", "查询")
End With
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'生成网页
Case "getCodes.htm" \'根据输入的版本编号,获取状态和发布目录
Dim dr As DataRow = DataTables("临时版本跟踪表").SQLFind("临时版本编号=\'" & e.Values("bbbh") & "\'")
If dr IsNot Nothing Then
e.WriteString(dr("状态") & "|" & dr("发布目录"))
End If
End Select

请帮我看看哪里问题，输入临时版本编号，页面没有结果。

[此贴子已经被作者于2024/8/16 15:41:34编辑过]

--  作者：有点蓝
--  发布时间：2024/8/16 16:20:00
--
控件没有绑定事件，没看到有调用js函数的地方

--  作者：huhu
--  发布时间：2024/8/16 16:40:00
--
http://www.foxtable.com/mobilehelp/index.htm?page=0103.htm
这个例子感觉挺复杂，还是不清楚怎么交互的。实在没懂，请帮忙指教我这个例子。
1.你说的控件没有绑定事件，是在查询按钮写事件吗？我看例子都是写在HttpRequest事件，查询按钮事件咋么写？
2.没有调用js函数，下面这段代码不是返回数据表里面列的值吗？
Case "getCodes.htm" \'根据输入的版本编号,获取状态和发布目录
Dim dr As DataRow = DataTables("临时版本跟踪表").SQLFind("临时版本编号=\'" & e.Values("bbbh") & "\'")
If dr IsNot Nothing Then
e.WriteString(dr("状态") & "|" & dr("发布目录"))
End If

--  作者：有点蓝
--  发布时间：2024/8/16 16:47:00
--
给网页控件绑定js事件

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

[此贴子已经被作者于2024/8/16 16:48:44编辑过]

--  作者：huhu
--  发布时间：2024/8/16 16:57:00
--

Select Case e.Path
Case "bin.htm"
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
wb.AddForm("", "form1", "bin.htm")
With wb.AddInputGroup("form1", "ipg1", "博达临时版本查询")
With.AddInput("bbbh", "版本编号", "text")
.Attribute = "" \'调用js函数
End With

With.AddInput("bbzt", "版本状态", "text")
.Readonly = True
End With
With.AddInput("fbml", "发布目录", "text")
.Readonly = True
End With
End With

With wb.AddButtonGroup("form1", "btg1", True)
.Add("btnok", "查询")
End With
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'生成网页
Case "getCodes.htm" \'根据输入的版本编号,获取状态和发布目录
Dim dr As DataRow = DataTables("临时版本跟踪表").SQLFind("临时版本编号=\'" & e.Values("bbbh") & "\'")
If dr IsNot Nothing Then
e.WriteString(dr("状态") & "|" & dr("发布目录"))
End If
End Select
还是没结果。
此主题相关图片如下：111111.png

另外查询按钮事件咋写呢？和HttpRequst一样？

[此贴子已经被作者于2024/8/16 16:58:41编辑过]