Set fso = CreateObject("Scripting.FileSystemObject")
Folderspec="c:\websit\images"
Set f = fso.GetFolder(Folderspec)
Set fc = f.FilesFor Each f1 in fc
if right(f1.name,3)="jpg" then
filename=filename&f1.name&","
end if
next response.write filename
Folderspec="c:\websit\images"
Set f = fso.GetFolder(Folderspec)
Set fc = f.FilesFor Each f1 in fc
if right(f1.name,3)="jpg" then
filename=filename&f1.name&","
end if
next response.write filename
TO ygjwjj:你的代码我试过不行!什么都没有显示!
TO xdspower:你说的我不大明白(因为我对这方面还是菜鸟一名),你可以给个简单的实例吗?其实我是想作一个类似图片浏览器的网页,浏览的图片基本都是jpg格式,而且都是在与网页同一目录下的,只是文件名不确定,所以要先得到与网页同一目录的所有jpg格式图片的文件名。
这些条件都制约你的实现,所以问问题你该把问题描述清楚,推荐你先搜索一个怎么问问题的文章读一读。其实当你能把问题表述很清楚的时候,说不定自己就可以找到答案了。ygjwjj 在你自己计算机上使用,在允许运行时脚本执行时应该是有效的,不过他是用的VBscript脚本你要注意一下。
<HTML>
<HEAD>
<TITLE>测试</TITLE>
</HEAD>
<BODY>
<SCRIPT LANGUAGE="VBScript">
Set fso = CreateObject("Scripting.FileSystemObject")
Folderspec="e:\photo"
Set f = fso.GetFolder(Folderspec)
Set fc = f.Files
For Each f1 in fc
if right(f1.name,3)="jpg" then
filename=filename&f1.name&","
end if
next
response.write filename
</SCRIPT>
</FORM>
</BODY>
</HTML> 上面的代码执行后有安全警告,可是允许执行后还是什么都没有显示!e:\photo目录已经有jpg图片,而且网页也在该目录里面!请帮忙看看哪里出错了,谢谢! 其实我写的这个网页是放在我的朗讯ps900手机上的,此手机内置opera浏览器,看设置应该是只支持javascript脚本,我的目的是用网页去浏览手机上的图片,网页和图片是放在同一地方的,我已尝试用网页显示手机中的某张图片(文件名固定),结果是可行的。可是手机中的图片来源可以是拍照所得(保存文件名的命名不规则),也可以是用数据线上传的,所以图片的文件名不能确定。所以,我只要知道手机上我要浏览的所有图片的文件名就可以实现我需要的功能了,有一点要注意的,图片的地址(如c:\photo)不清楚,但图片和网页是在相同的地方。因为浏览器是opera,而且还是运行于手机上的系统,所以可能有很多功能都用不了的,但是既然支持javascript,我觉得就应该从javascript上着手,又因为我对此方面的知识不懂,所以请前辈们帮忙帮忙!
你的应用可以找找你手机的开发手册,既然能存图片,对图片进行管理一定是有办法的,你可以寻求这方面的资源。