一段ASP单页显示文件夹下所有图片的代码
实现代码如下: " End If Next '释放对象 Set objFolder=nothing Set fso=nothing '获取文件类型 Function getExt(str) getExt = Lcase(Right(str,Len(str)-InstrRev(str,"."))) E
实现代码如下: " End If Next '释放对象 Set objFolder=nothing Set fso=nothing '获取文件类型 Function getExt(str) getExt = Lcase(Right(str,Len(str)-InstrRev(str,"."))) E