- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 移动开发能不能集成表格编辑功能 如jQuery MiniUI (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=103145)
-- 发布时间：2017/7/1 13:28:00
-- 移动开发能不能集成表格编辑功能 如jQuery MiniUI
移动开发能不能集成表格编辑功能 如jQuery MiniUI
http://miniui.com/demo/#src=databinding/databinding.html
http://www.miniui.com/
此主题相关图片如下：qq截图20170701132726.jpg
-- 发布时间：2017/7/1 14:55:00
--
lib.zip解压后放到路径（d:\\web\\lib\\）,路径示例
D:\\web\\lib\\miniui.css
D:\\web\\lib\\miniui.js
......
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",".txt"
e.WriteFile(fl)
Return \'这里必须返回
End Select
End If
Dim wb As New WeUI
Select Case e.Path
Case "test.htm"
wb.AppendHTML("<link rel=\'stylesheet\' href=\'./lib/miniui.css\'/>",True)
wb.AppendHTML("<script src=\'./lib/jquery.min.js\'></script>",True)
wb.AppendHTML("<script src=\'./lib/miniui.js\'></script>",True)
Dim div As String = FileSys.ReadAllText("d:\\web\\lib\\编辑.txt")
wb.InsertHTML(div)
wb.AppendHTML("<script src=\'./lib/bji.js\'></script>")
e.WriteString(wb.Build)
Case "getdata.htm"
Dim json As String = FileSys.ReadAllText("d:\\web\\lib\\data3.txt")
e.WriteString(json)
End Select
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:lib.zip |
[此贴子已经被作者于2017/7/3 10:41:47编辑过]
-- 发布时间：2017/7/3 10:19:00
--
wb.AppendHTML("<script src=\'./lib/bji.js\'></script>")
没这个bji.js 这个js的内容是？
-- 发布时间：2017/7/3 10:41:00
--
嗯漏了，重新上传
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:lib.zip |
-- 发布时间：2017/7/3 10:48:00
--
mark
-- 发布时间：2017/7/3 12:27:00
--
mark
-- 发布时间：2017/7/3 12:54:00
--
mark
-- 发布时间：2017/7/11 8:38:00
--
-- 发布时间：2017/7/11 12:53:00
--
mark |
-- 发布时间：2017/7/11 12:57:00
--
mark |