日期:2014-05-16  浏览次数:21061 次

求一段简单的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"" >&nbsp;" 
End If 
Next

'释放对象 
Set objFolder=nothing 
Set fso=nothing

'获取文件类型 
Function getExt(str) 
getExt = Lcase(Right(str,Len(str)-InstrRev(str,"."))) 
End Function 
'输出图片
%>
<%=filelist%>