如何使用相对路径
我要上传图片，然后把路径保存在数据库中，再把路径传给image.imageurl显示图片。但是使用绝对路径保存后显示不出来，谁能告诉我怎么用相对路径保存图片？最好讲个简便的，我技术不是太好，谢谢！
网站文件夹为website
图片保存在 website/files/img/XXX.jpg
保存图片路径就可以保存成 /files/img/XXX.jpg
前面要有个 "/" ，表示相对于站点根目录的路径
显示图片,直接输出路径即可
图片保存在 website/files/img/XXX.jpg
保存图片路径就可以保存成 /files/img/XXX.jpg
前面要有个 "/" ，表示相对于站点根目录的路径
显示图片,直接输出路径即可
温馨提示：内容为网友见解，仅供参考
第1个回答 2019-07-25
以下是使用相对路径打开数据库的代码，被打开的数据库必须位于程序或代码所在的目录夹内：
Private
Sub
Command1_Click()
Dim
STRSQL
As
String
Adodc1.ConnectionString
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
&
App.Path
&
"\users.mdb;Persist
Security
Info=False"
Adodc1.CommandType
=
adCmdText
STRSQL
=
"select
*
from
Users
where
检测日期=DTPicker2.value"
Adodc1.RecordSource
=
STRSQL
Set
DataGridM1.DataSource
=
Adodc1
AdodcM1.Refresh
End
Sub
下面是上述打开绝对路径下数据库的代码：
Adodc1.ConnectionString
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="C:\users.mdb;Persist
Security
Info=False"
实际上打开其它关联文件，同样如此指明相对或绝对路径。
Private
Sub
Command1_Click()
Dim
STRSQL
As
String
Adodc1.ConnectionString
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
&
App.Path
&
"\users.mdb;Persist
Security
Info=False"
Adodc1.CommandType
=
adCmdText
STRSQL
=
"select
*
from
Users
where
检测日期=DTPicker2.value"
Adodc1.RecordSource
=
STRSQL
Set
DataGridM1.DataSource
=
Adodc1
AdodcM1.Refresh
End
Sub
下面是上述打开绝对路径下数据库的代码：
Adodc1.ConnectionString
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="C:\users.mdb;Persist
Security
Info=False"
实际上打开其它关联文件，同样如此指明相对或绝对路径。
第2个回答 2019-04-14
ExtractFilePath已经带有最后一个斜杠了，应该写成：ExtractFilePath(Application.ExeName)+'Image\pic.bmp'
第3个回答 2020-07-22
是否指相对于主程序所在路径的相对路径?
第4个回答 2020-07-02
多谢yesuper，我想要的就是你的方法，等下加分
