- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]同时上传原图与缩略图 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=132231)
-- 发布时间：2019/3/17 19:06:00
-- [求助]同时上传原图与缩略图
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的第一个参数为缩略图，第二个参数为原图
.AddImage("./images/001s.jpg","./images/001.jpg")
End With
End With
e.WriteString(wb.Build) \'生成网页
End Select
使用以上代码浏览图片时，需要1张缩略图和1张原图
但使用下面的代码上传图片时，要么只能上传原图，要么只能上传缩略图：
Select Case e.Path
Case "upload.htm"
Dim wb As New weui
wb.AddForm("","form1","receive.htm")
With wb.AddInputGroup("form1","ipg1","文件上传")
With .AddUploader("up128","照片",True)
.AllowDelete = True \'允许删除
.Incremental = True \'允许重复选择文件或连续拍照
.ScaleWidth = 400 \'自动压缩图片宽度为400个像素,高度等比例压缩
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute= "" \'调用js函数上传
End With
wb.AddToast("","tst1", "正在上传",1)
wb.AddToast("","tst2", "上传成功",0)
wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'生成网页
Case "receive.htm"
For Each key As String In e.Files.Keys
For Each fln As String In e.Files(key)
e.SaveFile(key,fln,"d:\\web\\uploadfiles\\" & fln) \'保存接收到的文件
Next
Next
e.WriteString("OK")
End Select
Case "upload.htm"
Dim wb As New weui
wb.AddForm("","form1","receive.htm")
With wb.AddInputGroup("form1","ipg1","文件上传")
With .AddUploader("up128","照片",True)
.AllowDelete = True \'允许删除
.Incremental = True \'允许重复选择文件或连续拍照
.ScaleWidth = 400 \'自动压缩图片宽度为400个像素,高度等比例压缩
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute= "" \'调用js函数上传
End With
wb.AddToast("","tst1", "正在上传",1)
wb.AddToast("","tst2", "上传成功",0)
wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'生成网页
Case "receive.htm"
For Each key As String In e.Files.Keys
For Each fln As String In e.Files(key)
e.SaveFile(key,fln,"d:\\web\\uploadfiles\\" & fln) \'保存接收到的文件
Next
Next
e.WriteString("OK")
End Select
那么，请问能否同时上传缩略图和原图？
或者，有什么方法可以在浏览图片时先打开缩略图，查看大图时才打开原图？
-- 发布时间：2019/3/18 9:47:00
--
上传原图，后台接收后另外使用代码压缩保存一份缩略图：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=84351
-- 发布时间：2019/3/18 11:37:00
--
Dim file As String = "d:\\test.jpg" Dim img As image = getImage(file) Dim bmp = new bitmap(img, 100, 100) bmp.save("d:\\缩略图\\缩略图.jpg") bmp.Dispose 按以上代码，无法新建“缩略图"文件夹，我希望读取这个代码的同时新建，请问有什么方法？ |
-- 发布时间：2019/3/18 12:13:00
--
用代码检测和创建
http://www.foxtable.com/webhelp/scr/0331.htm
-- 发布时间：2019/3/18 12:33:00
--
一下子忘记了，原来这样
谢谢了