以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]手机开发网页入门设置请教  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159123)

--  作者:sweet果果
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间:2020/12/14 20:26:00
--  
HttpServer.Prefixes.Add("http://*/")可以不用改,或者改为
HttpServer.Prefixes.Add("http://DADA.COM/")
或者
HttpServer.Prefixes.Add("http://服务器内网IP/")

HttpServer.WebPath = "d:\\web"
改为
HttpServer.WebPath = "c:\\wwwroot\\web" 这个必须是服务器本机目录,不明白“互联网空间”指什么?

--  作者:sweet果果
--  发布时间:2020/12/18 10:15:00
--  
蓝老师,如果这里用虚拟服务器空间,WWWROOT下面的web文件夹,这样写地址对吗?
HttpServer.Prefixes.Add("http://DADA.COM/")
HttpServer.WebPath = "../web"  \'---------这个是虚拟服务器网站目录
--  作者:有点蓝
--  发布时间:2020/12/18 10:43:00
--  
不能这样用,只能是本机的物理地址
--  作者:bobolan521
--  发布时间:2020/12/18 11:06:00
--  
以下是引用sweet果果在2020/12/18 10:15:00的发言:
蓝老师,如果这里用虚拟服务器空间,WWWROOT下面的web文件夹,这样写地址对吗?
HttpServer.Prefixes.Add("http://DADA.COM/")
HttpServer.WebPath = "../web"  \'---------这个是虚拟服务器网站目录
你应该买云服务器才行,你买虚拟主机是不行的,除非你用ASP,PHP来编写