以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  HttpRequest事件代码中关于页面的部分，怎么导出来，直接放在d:\web下呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146660)
--  作者：李孝春
--  发布时间：2020/2/28 16:01:00
--  HttpRequest事件代码中关于页面的部分，怎么导出来，直接放在d:\web下呢？
HttpRequest事件代码中关于页面的部分，怎么导出来，直接放在d:\\web下呢？分别为logon.htm  exit.htm default.htm addnewtxl.htm四个页面

事件代码中代码如下
Dim fl As String = "d:\\web\\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".ico",".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If

Dim wb As New weui
Se lect Case e.Path
    Case "logon.htm" \'登录页面
        代码
    Case "exit.htm" \'退出登录
        代码
    Case "", "default.htm" \'首页
        代码
        
    Case "addnewtxl.htm"
        代码
        
End Se lect
e.WriteString(wb.Build) \'生成网页
--  作者：有点蓝
--  发布时间：2020/2/28 16:13:00
--  
    Case "addnewtxl.htm"
        代码
        
End Se lect
if e.Path like "*.htm"
FileSys.WriteAllText(fl,wb.Build, True)
end if
e.WriteString(wb.Build) \'生成网页
--  作者：李孝春
--  发布时间：2020/2/28 16:50:00
--  回复：（有点蓝）    Case "addnewtxl.htm"...
谢谢有点蓝老师  这个是实现了哪个页面点击才会生成对应的名称htm 有没有一键生成所有的htm的操作方法呢？
--  作者：有点蓝
--  发布时间：2020/2/28 17:31:00
--  
11
[此贴子已经被作者于2020/2/28 17:32:38编辑过]
--  作者：有点蓝
--  发布时间：2020/2/28 17:35:00
--  
搞错了，换种方式，这样用，到命令窗口执行即可

Dim wb As new WeUI
With wb.AddMsgPage("","msgpage","操作完成","内容详情,可根据实际需要安排")
    .AddButton("btn1","确定")
    .AddButton("btn2","取消").kind = 1
    .AddExtra("详细信息","http://www.foxtable.com/")
End With
wb.Save("d:\\web\\tst1.html")

wb = new WeUI
With wb.AddMsgPage("","msgpage","操作完成2","内容详情,可根据实际需要安排")
    .AddButton("btn1","确定2")
    .AddButton("btn2","取消2").kind = 1
    .AddExtra("详细信息","http://www.foxtable.com/")
End With
wb.Save("d:\\web\\tst2.html")