以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  手机录入服务器出问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193218)
--  作者：zhuxinhui
--  发布时间：2024/8/27 16:09:00
--  手机录入服务器出问题
foxtable web server has started(error 404).
手机录入服务器出问题

数据库放阿里云
想在本地电脑启动服务器
让公员人员使用手机进行录入
这个启动服务器怎样写
--  作者：zhuxinhui
--  发布时间：2024/8/27 16:10:00
--  
假如阿里云的IP是：47.140.33.185
本地电脑IP：192.168.1.1
--  作者：有点蓝
--  发布时间：2024/8/27 16:20:00
--  
如果某个页面没有使用e.WriteString返回内容，就会出现【foxtable web server has started(error 404).】这个错误提示
--  作者：zhuxinhui
--  发布时间：2024/8/27 16:26:00
--  
Dim wb As New weui
Select Case e.Path
    Case "records.htm"
        If e.PostValues.Count = 0 Then
            wb.AddForm("", "form1", "addnew.htm") 
            
            With wb.AddInputGroup("form1", "ipg1", "员工档案")
                .AddInput("入职日期", "入职日期", "date").Value = Format(Date.Today, "yyyy-MM-dd")
                .AddInput("姓名", "姓名", "  ")
                .AddInput("身份证号", "身份证号", "text")
                
                .AddSelect("部门", "部门", "成型|包装|行政|计划|财务") 
                .AddTextArea("家庭地址", 5).Placeholder = "家庭地址"
                
            End With 
            
            With wb.AddButtonGroup("form1", "btg1", True)
                .Add("btn1", "确定", "submit")
            End With
            wb.AppendHTML("<script src=\'./lib/brands.js\'></script>") \'引入脚本文件
            e.WriteString(wb.Build)
        Else
            
            Dim nms() As String = {"入职日期", "姓名", "身份证号", "部门", "家庭地址"} \'不能为空的列名数组 
            For Each nm As String In nms
                If e.PostValues.ContainsKey(nm) = False Then \'生成错误提示页 
                    With wb.AddMsgPage("", "msgpage", "增加失败", nm & "列不能为空!") 
                        .icon = "Warn" \'改变图标
                        .AddButton("btn1", "返回").Attribute = ""
                    End With
                    e.WriteString(wb.Build)
                    Return \'必须返回
                End If
            Next 
            
            nms = New String() {"入职日期", "姓名", "身份证号", "部门", "家庭地址"} \'重新定义了nms数组,增加了两列. 
            Dim dr As DataRow = DataTables("计件工资明细").AddNew()
            For Each nm As String In nms
                If e.PostValues.ContainsKey(nm) Then
                    dr(nm) = e.PostValues(nm)
                End If
            Next
            
            dr.save()
            With wb.AddMsgPage("", "msgpage", "增加成功", "好好学习,天天向上") \'生成成功提示页 
                .AddButton("btn1", "继续增加", "addnew.htm") 
            End With
            e.WriteString(wb.Build)
        End If
        
        
End Select
--  作者：zhuxinhui
--  发布时间：2024/8/27 16:26:00
--  
应该是地址问题比较多些
--  作者：有点蓝
--  发布时间：2024/8/27 16:33:00
--  
    Case "records.htm"
        If e.PostValues.Count = 0 Then
            wb.AddForm("", "form1", "records.htm") 
--  作者：goe12345
--  发布时间：2024/8/28 12:51:00
--  回复
用管理员权限运行foxtable