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
[此贴子已经被作者于2017/7/3 10:41:47编辑过]
加好友 
发短信
Post By：2017/7/1 14:55:00 [显示全部帖子]
[本帖被加为精华]
