- 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=105282)
-- 发布时间：2017/8/16 11:12:00
-- [求助]图片多张，加载显示不了
图片多张，加载显示不了，只有空白框
是代码问题吗？望指点
With .AddUploader("up1","照片",True) \'True表示允许上传多个文件
.ScaleWidth= 800
If sdr IsNot Nothing Then
For Each dr As DataRow In DataTables("C_SI_Estimate_DTL_FILES").SQLSelect("DTL_id = \'" & xdr("DTL_id") & "\' and is_active=\'1\' ")
\'messagebox.show( dr("FILES_SAVENAME") )
.AddImage( "./web/upload/" & dr("FILES_SAVENAME") )
Next
End If
End With
此主题相关图片如下：screenshot_20170816-111027.png
-- 发布时间：2017/8/16 11:46:00
--
1、直接访问地址 "./web/upload/" & dr("FILES_SAVENAME") 能否访问你的图片？
2、试试 .AddImage( "./upload/" & dr("FILES_SAVENAME") )
-- 发布时间：2017/8/16 13:23:00
--
是不是和这个有关系：
\'通用事件头
\'如果网页路径定义了中间目录,如"ordertest/logon.htm" ,则下面的fl实际就是"d:\\web\\ordertest\\weui\\weui.me.js"
\'因此你需要把WeUI框架三个文件复制到"d:\\web\\ordertest\\weui"目录下
Dim fl As String = ProjectPath & "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",".jpeg"
e.WriteFile(fl)
Return \'这里必须返回
End Select
End If
所以我把upload文件夹移出web文件夹，然后用http://127.0.0.1/upload/e9ae4d1dcbc8477ab099da1c4027c008.jpeg这个路径，图片就看得到了
-- 发布时间：2017/8/16 13:39:00
--
同样的路径，有些照片能显示，有些不能显示，真奇怪！
此主题相关图片如下：qq图片20170816133656.png
此主题相关图片如下：20170816133741.png
此主题相关图片如下：qq截图20170816133735.png
-- 发布时间：2017/8/16 14:26:00
--
Dim fl As String = ProjectPath & "web\\ordertest\\" & 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",".jpeg"
e.WriteFile(fl)
Return \'这里必须返回
End Select
End If
文件目录：web\\ordertest\\upload\\
.AddImage( "./upload/" & dr("FILES_SAVENAME") )
-- 发布时间：2017/8/16 14:34:00
--
原来真的是路径问题，搞定，谢谢