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


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

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


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：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
错误所在事件：
详细错误信息：
拒绝访问。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2024/8/16 11:21:00 [显示全部帖子]

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


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2024/8/16 17:04:00 [显示全部帖子]

上传代码怎么少了.Attribute = "" '调用js函数
图片点击可在新窗口打开查看此主题相关图片如下：2222333.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2024/8/16 17:35:00 [显示全部帖子]

页面的版本状态和发布目录没有结果。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2024/8/16 17:54:00 [显示全部帖子]

 msgbox(e.Values("bbbh"))----弹出版本编号文本框输入内容
msgbox(dr IsNot Nothing )-----弹出true
但是页面的版本状态和发布目录2个文本框都是为空，而且之前输入的版本编号文本框也清空了。
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) '生成网页

        msgbox(e.Values("bbbh"))
        Dim dr As DataRow = DataTables("临时版本跟踪表").SQLFind("临时版本编号='" & e.Values("bbbh") & "'")
        msgbox(dr IsNot Nothing )
        If dr IsNot Nothing Then
            e.WriteString(dr("状态") & "|" & dr("发布目录"))
            msgbox(dr("状态") & "|" & dr("发布目录"))
        End If
End Select
[此贴子已经被作者于2024/8/16 19:03:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1182 积分：8225 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2024/8/19 9:02:00 [显示全部帖子]

    Case "getCodes.htm" '根据输入的版本编号,获取状态和发布目录
加上这句，2个msgbox都没弹出。
去掉这句，2个msgbox弹出值都是对的。
我不理解Case "getCodes.htm"，我们现在是bin.htm吧。
 回到顶部
总数 18 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08594 秒, 5 次数据查询