HttpServer.Prefixes.Add("http://*/")
HttpServer.WebPath = "d:\web"
'指定静态文件存储位置
HttpServer.Start()
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：
详细错误信息：
拒绝访问。
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编辑过]
1.如果做到发布目录和版本状态是不可编辑的，就是显示出来就行。
2.版本编号文本框输入编号后，如何和数据库中的一个"临时版本编号"表数据
此主题相关图片如下：qq截图20240816111513.png
交互啊。
希望网页版本编号文本框的值去匹配"临时版本编号表"的列"编号"，如果找到了就把发布目录和版本状态这2列的值显示到网页对应的栏目内。
回3楼，都没有添加form2，怎么显示？
交互参考：http://www.foxtable.com/mobilehelp/topics/0103.htm
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编辑过]
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
给网页控件绑定js事件
此主题相关图片如下：1.png
[此贴子已经被作者于2024/8/16 16:48:44编辑过]
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编辑过]