asp 双引号问题
<%dimfso,objFolder,objFilesdimfilelistSetfso=Server.CreateObject("scripting.FileSyste...
<%
dim fso,objFolder,objFiles
dim filelist
Set fso=Server.CreateObject("scripting.FileSystemObject")
Set objFolder=fso.GetFolder(server.MapPath("icon/")) '设置图片文件夹
Set objFiles=objFolder.Files
'循环输出文件夹path下的文件的文件名
For each objFile in objFiles
If getExt(objFile.name)="gif" or getExt(objFile.name)="jpg" or getExt(objFile.name)="jpeg" Then
filelist = filelist&"<img src="&objFolder&"/"""&objFile.name&""">"
End If
Next
'释放对象
Set objFolder=nothing
Set fso=nothing
'获取文件类型
Function getExt(str)
getExt = Lcase(Right(str,Len(str)-InstrRev(str,".")))
End Function
%>
<html>
<body>
图片列表：<%=filelist%>
</body>
</html>
icon/ 是文件夹路径。这个程序意思是显示icon下的所有图片。但是输出后，图片无法显示，查看路径发现，变为icon/%22icon99.gif%22 多了两个%22 请问如何解决。最好重写一下filelist路径
filelist = filelist&"<img src="&objFolder.name&"/"""&objFile.name&""">" 展开
dim fso,objFolder,objFiles
dim filelist
Set fso=Server.CreateObject("scripting.FileSystemObject")
Set objFolder=fso.GetFolder(server.MapPath("icon/")) '设置图片文件夹
Set objFiles=objFolder.Files
'循环输出文件夹path下的文件的文件名
For each objFile in objFiles
If getExt(objFile.name)="gif" or getExt(objFile.name)="jpg" or getExt(objFile.name)="jpeg" Then
filelist = filelist&"<img src="&objFolder&"/"""&objFile.name&""">"
End If
Next
'释放对象
Set objFolder=nothing
Set fso=nothing
'获取文件类型
Function getExt(str)
getExt = Lcase(Right(str,Len(str)-InstrRev(str,".")))
End Function
%>
<html>
<body>
图片列表：<%=filelist%>
</body>
</html>
icon/ 是文件夹路径。这个程序意思是显示icon下的所有图片。但是输出后，图片无法显示，查看路径发现，变为icon/%22icon99.gif%22 多了两个%22 请问如何解决。最好重写一下filelist路径
filelist = filelist&"<img src="&objFolder.name&"/"""&objFile.name&""">" 展开
1个回答
展开全部
filelist = filelist&"<img src="&objFolder.name&"/"&objFile.name&">"
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
网易云信
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库，由YOOtheme团队开发。它提供了丰富的界面元素，包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等，适用于各种类型的网站和应用程序。UIkit还支持响应式设计，可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
