图片使用网络路径即可，比如默认服务为80端口：
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 "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","客户资料")
.AddInput("姓名","姓名","text").value = "舒淇"
.AddInput("地点","地点","text").Value = "蒙古草原"
.AddInput("日期","日期","date").value = #10/12/2012#
With .AddUploader("up1","",True)
.AllowAdd = False '关闭文件上传功能
.AddImage("http://127.0.0.1:20200/images/001.jpg")
.AddImage("http://127.0.0.1:20200/images/002.jpg")
.AddImage("http://127.0.0.1:20200/images/003.jpg")
End With
End With
e.WriteString(wb.Build) '生成网页
End Select
增加一个服务端，使用其它端口启动
HttpServer.Prefixes.Add("http://127.0.0.1:20200/")
HttpServer.Start()
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
加好友 
发短信
Post By：2017/6/23 22:50:00 [显示全部帖子]
