网页请求回复2次 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 网页请求回复2次

共有1849人关注过本帖树形打印复制链接主题：网页请求回复2次

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20178 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/6/30 15:51:00 [显示全部帖子]

好像就是两个网页的

此主题相关图片如下：qq图片20170630155005.png

会不会是msgbox()弹窗延时和被遮挡感觉是两次呢

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20178 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/6/30 16:18:00 [显示全部帖子]

文件头怎么没看见呢，应该按照标准写，我是这么认为的，看看甜版怎么回复

你可以在以下地址下载到WeUI框架文件：

http://www.foxtable.com/download/mobile/weui.zip

解压会得到三个文件，分别是：

weui.me.js
weui.me.css
weui.min.css

解压后将上述三个文件复制到"d:\web\weui"目录下

2、将HttpRequest事件代码设置为：

'通用事件头,用于发送已经存在的常见文件
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 ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

'以下是动态生成网页的代码
Select Case e.Path

Case ""

后面是你要写代码了

[此贴子已经被作者于2017/6/30 16:20:09编辑过]

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20178 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2017/6/30 17:02:00 [显示全部帖子]

'通用事件头,用于发送已经存在的常见文件,查询的是weui.me.js weui.me.css weui.min.css还有你自己定义的.JS 什么，只要查到，就返回值（架构，或者底层的东西）
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 ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

'上面的不能变("d:\web\" & e.path 这部分看你的JS 放到哪里是可以变的)

'以下是动态生成网页的代码，这部分是你自己做的东西，你在体会下
Select Case e.Path

Case ""'这里默认的是主页了127.0.0.1

msgbox(1)

Case "123.1"'这里是123.1

msgbox(2)

end select

[此贴子已经被作者于2017/6/30 17:05:38编辑过]

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

主题：网页请求回复2次