HttpRequest事件代码中关于页面的部分，怎么导出来，直接放在d:\web下呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → HttpRequest事件代码中关于页面的部分，怎么导出来，直接放在d:\web下呢？

共有2387人关注过本帖树形打印复制链接主题：HttpRequest事件代码中关于页面的部分，怎么导出来，直接放在d:\web下呢？

李孝春

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

HttpRequest事件代码中关于页面的部分，怎么导出来，直接放在d:\web下呢？ 发帖心情

Post By：2020/2/28 16:01:00 [只看该作者]

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) '生成网页

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107775 积分：548220 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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) '生成网页

李孝春

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝） Case "addnewtxl.htm"... 发帖心情

Post By：2020/2/28 16:50:00 [只看该作者]

谢谢有点蓝老师这个是实现了哪个页面点击才会生成对应的名称htm 有没有一键生成所有的htm的操作方法呢？

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107775 积分：548220 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/28 17:31:00 [只看该作者]

[此贴子已经被作者于2020/2/28 17:32:38编辑过]

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107775 积分：548220 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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")

下一主题 >> << 上一主题

主题：HttpRequest事件代码中关于页面的部分，怎么导出来，直接放在d:\web下呢？