以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  使用框架显示不了页面  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96718)
--  作者：aduydgd
--  发布时间：2017/2/27 10:11:00
--  使用框架显示不了页面
使用框架显示不了页面，文件什么的都搞好了，我是放在C盘，代码路径也改了
--  作者：有点色
--  发布时间：2017/2/27 10:32:00
--  

 1、加入msgbox，看是否执行代码；

 

 2、你启动了吗？

 

HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer.Start()
--  作者：aduydgd
--  发布时间：2017/2/27 10:37:00
--  
启动了
--  作者：aduydgd
--  发布时间：2017/2/27 10:40:00
--  
\'通用事件头,用于发送已经存在的常见文件

Dim fl As String = "c:\\web\\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If
msgbox("1")
\'以下是动态生成网页的代码
Select Case e.Path
    Case "addnew.htm"
    msgbox("2")
        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) \'生成网页
msgbox("3")
End Select

1执行完就不执行了
--  作者：狐狸爸爸
--  发布时间：2017/2/27 10:51:00
--  
浏览器应该输入：

127.0.0.1/addnew.htm

地址要正确
[此贴子已经被作者于2017/2/27 10:51:07编辑过]
--  作者：aduydgd
--  发布时间：2017/2/27 10:53:00
--  
我的哥，厉害了，帮助中应该写明要使用文件名，我以为会自动默认一个页面呢
--  作者：有点色
--  发布时间：2017/2/27 10:53:00
--  

 1、地址要正确 http://127.0.0.1/addnew.htm

 

 2、如果样式没有出来，就是你js和css文件没有放对路径。