- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]上传文件名称出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132211)
-- 发布时间：2019/3/16 22:15:00
-- [求助]上传文件名称出错
Select Case e.Path
Case "upload.htm"
Dim wb As New weui
wb.AddForm("","form1","receive.htm")
With wb.AddInputGroup("form1","ipg1","文件上传")
With .AddUploader("ABC128","照片",True)
.AllowDelete = True \'允许删除
.Incremental = True \'允许 重复选择文件或连续拍照
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)
messagebox.show(fln)
e.SaveFile(key,fln,"d:\\web\\uploadfiles\\" & fln) \'保存接收到的文件
Next
Next
e.WriteString("OK")
End Select
e.SaveFile(key,fln,"d:\\web\\uploadfiles\\" & fln) \'保存接收到的文件
Next
Next
e.WriteString("OK")
End Select
以上代码，得出结果fln = abc 应该fln = ABC 才对
也就是，本来是大写的，现在变成了小写
请问怎么设置，让大小写不改变？
-- 发布时间：2019/3/17 16:27:00
--
-- 发布时间：2019/3/18 9:36:00
--
html是大小写不敏感的，请使用小写。何况操作系统的文件名也是大小写不敏感的。如果需要保存大写的名称，自己转换：http://www.foxtable.com/webhelp/scr/0238.htm
-- 发布时间：2019/3/18 12:10:00
--
没有其它方法吗？
我需要的不是保存大写，而是保存原来的，原来是大写就大写，原来是小写就小写
-- 发布时间：2019/3/18 12:42:00
--
我测试了一下，messagebox.show(fln)中的值，绝对是文件原名，请认认真真测试啊。
-- 发布时间：2019/3/18 13:30:00
--
晕，我居然写错了，，，我是想获取key，messagebox.show(key)
代码中With .AddUploader("ABC128","照片",True)
messagebox.show(key) 得出的结果是abc128
-- 发布时间：2019/3/18 17:53:00
--
以下是引用OKK在2019/3/18 13:30:00的发言：
晕，我居然写错了，，，我是想获取key，messagebox.show(key)
晕，我居然写错了，，，我是想获取key，messagebox.show(key)
代码中With .AddUploader("ABC128","照片",True)
messagebox.show(key) 得出的结果是abc128
这种没办法，如果确实需要，你额外用一个文本框或者隐藏控件，记录id值。
-- 发布时间：2019/3/18 21:25:00
--
明白，谢谢！