图片上传失败 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我下载了15楼的例子，测试不行，

然后按16楼改了js，也不行

chrome提示按钮提交那里有问题，见截图

此主题相关图片如下：qq图片2017041009452666.png

16楼，代码，没问题，请认认真真测试。

你可以在js使用下面这个代码调试，类似Foxtable的msgbox调试方法，看运行到哪一个Alert

Alert("1");

问题找到，是通用头路径不对，保存照片成功

照片被复制到项目文件夹的E:\langwo\Attachments目录下，但是我之前在列属性设置的路径是E:\web\Images\zhanshi，

此主题相关图片如下：qq图片20170410104515555.png

保存文件代码：

Dim e As RequestEventArgs = args(0) '验证页面(照片)

Select Case e.Path

Case "valid_images.htm"

Dim wb As New weui

Dim drbianh As String = e.Cookies("drbianhao") '为cookie传递数据

Dim NewName As String

msgbox(drbianh)

Dim dr As DataRow = DataTables("会员资料").sqlFind("会员编号 = '" & drbianh & "'")

If dr IsNot Nothing Then '测试代码:msgbox(e.PostValues("isr"))

For Each key As String In e.Files.Keys

If key = "up1" Then

For Each fln As String In e.Files(key)

msgbox(0)

Dim ext As String = fln.Split(".")(1)

NewName = Format(Date.Now, "yyyyMMddHHmmssffffff") & Rand.Next(10000) & "." & ext

e.SaveFile(key, fln, ProjectPath & "Attachments\" & NewName)

dr("展示照") &= iif(dr.IsNull("展示照"), "", vbcrlf) & NewName

End If

For Each key1 As String In e.Files.Keys

If key1 = "up4" Then

For Each fln1 As String In e.Files(key1)

msgbox(1)

Dim ext1 As String = fln1.Split(".")(1)

NewName = Format(Date.Now, "yyyyMMddHHmmssffffff") & Rand.Next(10000) & "." & ext1

e.SaveFile(key1, fln1, ProjectPath & "Attachments\" & NewName)

dr("生活照") &= iif(dr.IsNull("生活照"), "", vbcrlf) & NewName

End If

dr.save() '保存

e.WriteString("OK") '生成网页

Else

e.WriteString("错误提示")

End If

End Select

因为担心未来照片过多，方便移动照片位置，例如加了硬盘，在web、项目文件夹以外，单独设置个照片文件夹，可以这样？

[此贴子已经被作者于2017/4/10 10:56:21编辑过]

所有图片不要都放在同一个文件夹下，你可以根据用户或者根据日期来存放数据的啊，红色代码设置你的存放路径。

Dim ext As String = fln.Split(".")(1)

NewName = Format(Date.Now, "yyyyMMddHHmmssffffff") & Rand.Next(10000) & "." & ext

e.SaveFile(key, fln, ProjectPath & Format(Date.Today, "yyyyMMdd") & "\" & NewName)

dr("展示照") &= iif(dr.IsNull("展示照"), "", vbcrlf) & Format(Date.Today, "yyyyMMdd") & NewName

感觉每天一个文件夹有点多了，

如果一个月一个文件夹，去掉下面的红色的dd，就可以吧？

Dim e As RequestEventArgs = args(0) '验证页面(照片)

Select Case e.Path

Case "valid_images.htm"

Dim wb As New weui

Dim drbianh As String = e.Cookies("drbianhao") '为cookie传递数据

Dim NewName As String

msgbox(drbianh)

Dim dr As DataRow = DataTables("会员资料").sqlFind("会员编号 = '" & drbianh & "'")

If dr IsNot Nothing Then '测试代码:msgbox(e.PostValues("isr"))

For Each key As String In e.Files.Keys

If key = "up1" Then

For Each fln As String In e.Files(key)

msgbox(0)

Dim ext As String = fln.Split(".")(1)

NewName = Format(Date.Now, "yyyyMMddHHmmss") & Rand.Next(10000,99999) & "." & ext

'NewName = Format(Date.Now, "yyyyMMddHHmmssffffff") & Rand.Next(10000) & "." & ext

e.SaveFile(key, fln, ProjectPath & Format(Date.Today, "yyyyMMdd") & "\" & NewName)

'e.SaveFile(key, fln, ProjectPath & "Attachments\" & NewName)

dr("展示照") &= iif(dr.IsNull("展示照"), "", vbcrlf) & NewName

End If

For Each key1 As String In e.Files.Keys

If key1 = "up4" Then

For Each fln1 As String In e.Files(key1)

msgbox(1)

Dim ext1 As String = fln1.Split(".")(1)

NewName = Format(Date.Now, "yyyyMMddHHmmss") & Rand.Next(10000,99999) & "." & ext1

'NewName = Format(Date.Now, "yyyyMMddHHmmssffffff") & Rand.Next(10000) & "." & ext1

e.SaveFile(key1, fln1, ProjectPath & Format(Date.Today, "yyyyMMdd") & "\" & NewName)

'e.SaveFile(key1, fln1, ProjectPath & "Attachments\" & NewName)

dr("生活照") &= iif(dr.IsNull("生活照"), "", vbcrlf) & NewName

End If

dr.save() '保存

e.WriteString("OK") '生成网页

Else

e.WriteString("错误提示")

End If

End Select

[此贴子已经被作者于2017/4/10 11:31:57编辑过]

改成

Format(Date.Today, "yyyyMM")

http://www.foxtable.com/webhelp/scr/0362.htm

存放目录不固定，列属性怎么设置？

此主题相关图片如下：qq图片201704101154522222.png

设置路径的时候，把文件夹名加上，如

dr("生活照") &= iif(dr.IsNull("生活照"), "", vbcrlf) & Format(Date.Today, "yyyyMM") & "\" & NewName

然后，AfterOpenProject事件，动态的制定存放目录为ProjectPath http://www.foxtable.com/webhelp/scr/2043.htm

将列属性的存放目录清空

在项目事件afterloadproject事件下面的代码，重新打开

看不见已经上传的照片

DataTables("会员资料").DataCols("展示照").DefaultFolder = "ProjectPath"

DataTables("会员资料").DataCols("生活照").DefaultFolder = "ProjectPath"

[此贴子已经被作者于2017/4/10 13:41:33编辑过]

主题：图片上传失败