Foxtable(狐表)用户栏目专家坐堂 → [求助]手机开发网页入门设置请教


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

主题:[求助]手机开发网页入门设置请教

美女呀,离线,留言给我吧!
sweet果果
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:142 威望:0 精华:0 注册:2020/12/12 15:40:00
[求助]手机开发网页入门设置请教  发帖心情 Post By:2020/12/14 19:29:00 [显示全部帖子]

我已经在西部数码网站买了服务器和域名。假设域名为: DADA.COM,IP为10.153.163.178,

WeUI文件我已经放在了互联网空间wwwroot下的web文件夹。

用以下代码开启http服务网的地址改如何修改,然后手机可以输入域名或者IP就可以访问addnew.htm呢?

刚刚接触FOX请高手多指点小妹一下,感谢呀


HttpServer
.Prefixes.Add("http://*/")      '-----------怎么修改呢
HttpServer
.WebPath = "d:\web"    
'-----------怎么修改呢
HttpServer
.Start()




将HttpRequest事件代码设置为:

Select
 Case e.Path
    Case "addnew.htm"
        
Dim wb As New WeUI '定义一个基于weui框架的网页生成器
        wb.AddForm("","form1","addnew.htm")
        With wb.AddInputGroup("form1","ipg1",
"
新增订单")
            .AddSelect("cp",
"
产品","PD01|PD02|PD03|PD04|PD05")
            .AddInput("gy",
"
雇员","text")
            .AddInput("kh",
"
客户","text")
            .AddInput("dj",
"
单价","number")
            .AddInput("zk",
"
折扣","number")
            .AddInput("sl",
"
数量","number")
            .AddInput("rq",
"
日期","date")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            
.Add("btnok","确定")
        End With
        e.WriteString(wb.Build) '生成网页
End Select

[此贴子已经被作者于2020/12/14 19:35:18编辑过]

 回到顶部
美女呀,离线,留言给我吧!
sweet果果
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:142 威望:0 精华:0 注册:2020/12/12 15:40:00
  发帖心情 Post By:2020/12/18 10:15:00 [显示全部帖子]

蓝老师,如果这里用虚拟服务器空间,WWWROOT下面的web文件夹,这样写地址对吗?
HttpServer.Prefixes.Add("http://DADA.COM/")
HttpServer.WebPath = "../web"  '---------这个是虚拟服务器网站目录

 回到顶部