- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]移动开发绝对路径 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98762)
-- 发布时间：2017/4/6 15:34:00
-- [求助]移动开发绝对路径
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98407&page=0&move=next
这个帖子看了，我还是不知道怎么用绝对路径
如果用e.WriteFile("d:\\测试.jpg")，可以显示没问题，但是占据的整个页面，那和weui框架如何共存啊。。。。？
如果用.AddImage，不管括号里面写啥都显示不出来。。。。
如果不能用绝对路径，那移动端也太。。。。。到底有办法木有？
-- 发布时间：2017/4/6 15:42:00
--
参考：
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
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
我看不出有难以理解的啊
-- 发布时间：2017/4/6 15:51:00
--
狐爸，你说的我理解，我只是想知道我要显示d:\\测试.jpg这个文件
With .AddUploader("up1","",True)
.AllowAdd = False \'关闭文件上传功能
.AddImage(如何把测试.jpg写在这里，让它显示出来。。。)
End With
.AllowAdd = False \'关闭文件上传功能
.AddImage(如何把测试.jpg写在这里，让它显示出来。。。)
End With
求狐爸写下
-- 发布时间：2017/4/6 15:52:00
--
代码直接拷贝到你的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
-- 发布时间：2017/4/6 16:03:00
--
此主题相关图片如下：qq图片20170406155936.png
就是不行啊。。。。
-- 发布时间：2017/4/6 16:46:00
--
贴出httpRequest代码，贴代码不要截图
[此贴子已经被作者于2017/4/6 16:46:18编辑过]
-- 发布时间：2017/4/6 16:49:00
--
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
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
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
-- 发布时间：2017/4/6 16:59:00
--
在中间加上代码
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
-- 发布时间：2017/4/7 9:59:00
--
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
End With
e.WriteString(wb.Build) \'生成网页
上面三个图片可以显示，但最后一个图片无法显示，为何？ 路径太深还是有特殊字符还是字数太多？
-- 发布时间：2017/4/7 10:03:00
--
msgbox(path) 弹出的是什么，路径是否正确？