[求助]移动开发绝对路径 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98407&page=0&move=next

这个帖子看了，我还是不知道怎么用绝对路径

如果用e.WriteFile("d:\测试.jpg")，可以显示没问题，但是占据的整个页面，那和weui框架如何共存啊。。。。？

如果用.AddImage，不管括号里面写啥都显示不出来。。。。

如果不能用绝对路径，那移动端也太。。。。。到底有办法木有？

参考：

http://www.foxtable.com/mobilehelp/scr/0044.htm

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"
            e.WriteFile(fl)
    End Select
Else
    Dim sb As New StringBuilder
    sb.Appendline("我想显示一个图片<br/><br/>")
    Select Case e.path
        Case "a.htm"
            sb.AppendLine("<img src='/images/abc.jpg'>")
        Case "sub1\a.htm"
            sb.AppendLine("<img src='/images/abc.jpg'>")
         Case "sub1\sub2\a.htm"
            sb.AppendLine("<img src='/images/abc.jpg'>")
    End Select
    e.WriteString(sb.ToString())
End If

第一个/表示根目录，前面代码红色的部分决定了根目录是那个，这里的根目录是d:\web

/images/abc.jpg就是d:\web\images\abc.jpg

我看不出有难以理解的啊

狐爸，你说的我理解，我只是想知道我要显示d:\测试.jpg这个文件

With .AddUploader("up1","",True)
                .AllowAdd = False '关闭文件上传功能
                .AddImage(如何把测试.jpg写在这里，让它显示出来。。。)
            End With

求狐爸写下

代码直接拷贝到你的httpRequest事件

Dim path As String = fl.replace("c:\web\", "")
msgbox(path)
If FileSys.FileExists(path) Then
e.WriteFile(path)
End If

红色代码改成你自己的web文件夹路径，即可。写绝对路径的时候这样写 /f:\test\test\test.jpg

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

就是不行啊。。。。

贴出httpRequest代码，贴代码不要截图

[此贴子已经被作者于2017/4/6 16:46:18编辑过]

Dim UserTable As DataTable = DataTables("userinfos") '定义一个变量,用于存储用户随机身份ID,以及最后一次活动时间.

Static ClearTime As Date

If (Date.Now - ClearTime).TotalMinutes >= 12000 Then '清除超过30分钟没有操作的登录信息

UserTable.DeleteFor("ActiveTime < #" & Date.Now.AddMinutes(-12000) & "#")

ClearTime = Date.Now()

End If '通用事件头

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

Dim wb As New weui '身份验证

Dim UserName As String

Dim Password As String

Dim UserID As String

If e.Path = "denglu.html" '验证用户名和密码

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then

Dim Verified As Boolean '用于标记用户是否通过了身份验证

UserName = e.PostValues("username")

Password = e.PostValues("password")

If UserName <> "" And Password <> "" Then

Dim dr1 As DataRow = DataTables("users").SQLFind("[name] = '" & UserName & "' and [Password] = '" & Password & "'")

If dr1 IsNot Nothing Then

Verified = True

Else

Verified =False

End If

Else

Verified = False

End If

If Verified Then

UserID = Rand.NextString(16)'生成随机用户ID

UserName = EncryptText(username,"liaoyamin","liaozihao") '将用户名加密.

Dim dr As DataRow = UserTable.Find("UserName = '" & UserName & "'")

If dr IsNot Nothing Then '如果是重复登录,删除以前的登录信息

dr.Delete()

End If

dr = UserTable.AddNew()

dr("UserName") = UserName

dr("UserID") = UserId

dr("ActiveTime") = Date.Now '记录登录时间

wb.AppendCookie("username",UserName,1200) '将用户名和密码写入cookie

wb.AppendCookie("userid",UserID,1200)

wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页

e.WriteString(wb.Build) '生成网页

Return '必须的

End If

Else If e.Path<> "wefox" '其它页面从Cookie提取登录信息进行验证

UserName = e.Cookies("username") '从cookie中获取用户名

UserID = e.Cookies("userid") '从cookie中获取随机ID

Dim dr As DataRow = UserTable.Find("UserName = '" & UserName & "'")

If dr IsNot Nothing AndAlso dr("UserID") = UserID Then '如果通过验证,更新活动时候,继续访问其它页面.

dr("ActiveTime") = Date.Now '更新活动时间

Else '如果验证失败

wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面

e.WriteString(wb.Build) '生成网页

Return '必须的

End If

Select Case e.path '开始生成网页

Case "wefox"

Functions.Execute("wefox事件",e)

Case "denglu.html" '登录页面

Functions.Execute("登录界面",e)

Case "exit.htm" '退出登录

Functions.Execute("退出登录",e)

Case "shouye.html" '首页

Functions.Execute("首页",e)

Case "zhoujihuazhujiemian.html"

Functions.Execute("周计划主界面",e)

Case "zhoujihuabianji.html"

Functions.Execute("周计划编辑",e)

Case "zhoujihuaxinzeng.html"

Functions.Execute("周计划新增",e)

Case "zhoujihuaxiazhoujihua.html"

Functions.Execute("下周计划",e)

Case "zhoujihuachaxun.html"

Functions.Execute("周计划查询",e)

Case "zhoujihualist.html"

Functions.Execute("周计划list",e)

Case "zhoujihuachaxunjieguo.html"

Functions.Execute("周计划查询结果",e)

Case "test.html"

Functions.Execute("test",e)

End Select

在中间加上代码

Dim fl As String = "d:\web\" & e.path

Dim path As String = fl.replace("d:\web\", "")
msgbox(path)
If FileSys.FileExists(path) Then
e.WriteFile(path)
End If

Dim e As RequestEventArgs = args(0)

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("/D:/test.jpg","/D:/test.jpg")'

.AddImage("/D:/test1.jpg","/D:/test1.jpg")'

.AddImage("/D:/test2.jpg","/D:/test2.jpg")'

.AddImage("/D:/ftp/gwsmj/关于2017年春节放假的通知/151451012017-1#关于2017年春节放假的通知.jpg","/D:/ftp/gwsmj/关于2017年春节放假的通知/151451012017-1#关于2017年春节放假的通知.jpg")

End With

e.WriteString(wb.Build) '生成网页

上面三个图片可以显示，但最后一个图片无法显示，为何？路径太深还是有特殊字符还是字数太多？

msgbox(path) 弹出的是什么，路径是否正确？

主题：[求助]移动开发绝对路径