Foxtable(狐表) → 用户栏目 → 专家坐堂 → httpserver拒绝访问


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

主题：httpserver拒绝访问
帅哥哟，离线，有人找我吗？
huhu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1187 积分：8266 威望：0 精华：0 注册：2015/3/30 10:44:00 		httpserver拒绝访问  发帖心情 Post By：2024/8/16 10:23:00 [只看该作者]

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

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：
详细错误信息：
拒绝访问。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111407 积分：567105 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/8/16 10:26:00 [只看该作者]

“以管理员身份运行此程序”http://www.foxtable.com/mobilehelp/topics/0001.htm

 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1187 积分：8266 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1187 积分：8266 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2024/8/16 11:21:00 [只看该作者]

1.如果做到发布目录和版本状态是不可编辑的，就是显示出来就行。
2.版本编号文本框输入编号后，如何和数据库中的一个"临时版本编号"表数据
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20240816111513.png
图片点击可在新窗口打开查看
交互啊。
希望网页版本编号文本框的值去匹配"临时版本编号表"的列"编号"，如果找到了就把发布目录和版本状态这2列的值显示到网页对应的栏目内。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111407 积分：567105 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1187 积分：8266 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111407 积分：567105 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/8/16 16:20:00 [只看该作者]

控件没有绑定事件，没看到有调用js函数的地方

 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1187 积分：8266 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111407 积分：567105 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/8/16 16:47:00 [只看该作者]

给网页控件绑定js事件



图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2024/8/16 16:48:44编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1187 积分：8266 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：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编辑过]
 回到顶部
总数 32 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 4 次数据查询