求一段简单的asp显示图片的代码
要求asp服务器上,html都行的一段代码
要求能显示目录下的图片自动读取。
页面上有个按钮,向前,向后,或者刷新页面就都要换一张图片来显示。
是不是不麻烦。可是本人不会。谢谢
asp?
图片
------解决方案--------------------用FSO读取文件,把文件名放入数组。
然后作两个按钮,一个按钮身向前,一个按钮向后。
点击向前的数组下标减1,向后的数组下标加1.
然后取出数组里面的文件名显示出来就可以了。
------解决方案--------------------colorbox不错...
------解决方案--------------------<% Dim fso,objFolder,objFiles
Dim filelist
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'on error resume next
Set objFolder=fso.GetFolder(server.MapPath("../uploadfile/"))
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=""../uploadfile/"&objFile.name&""" width=""200"" height=""150"" > "
End If
Next
'释放对象
Set objFolder=nothing
Set fso=nothing
'获取文件类型
Function getExt(str)
getExt = Lcase(Right(str,Len(str)-InstrRev(str,".")))
End Function
'输出图片
%>
<%=filelist%>