读出文件夹内的所有图片
来源:互联网 发布:梦幻西游mac版本字体 编辑:程序博客网 时间:2024/05/17 03:38
读出文件夹内的所有图片,并以分页的形式显示出来,文件夹内加新图片后,自动添加
请问怎么写?或推荐个源码下载也成
谢谢! ;)
<script language="vbscript">Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder("c:/") Set fc = f.Files For Each f1 in fc s = s & f1.name s = s & "<BR>" Next document.write(s)</script>
文件1:
PhotoAlbum.asp
<%
' PhotoAlbum
Dim CurFile, PopFileShowSub, ShowPic, PictureNo
Dim strPathInfo, strPhysicalPath
Dim intTotPics, intPicsPerRow, intPicsPerPage, intTotPages, intPage, strPicArray()
intPicsPerRow = 4
intPicsPerPage = 4
intPage = CInt(Request.QueryString("Page"))
If intPage = 0 Then
intPage = 1
End If
CurFile = "PhotoAlbum.asp"
PopFile = "ShowPicture.asp"
%>
<link rel="stylesheet" type="text/css" href="style.css">
<script language="JavaScript">
<!--
function jumppage(sel)
{
var i = sel.selectedIndex
self.location.href = sel.options[i].value
}
// -->
</script>
<script language="JavaScript">
<!-- hide from JavaScript-challenged browsers
function openGalleryWindow(url) {
if (document.all)
var xMax = screen.width, yMax = screen.height;
else
if (document.layers)
var xMax = window.outerWidth, yMax = window.outerHeight;
else
var xMax = 800, yMax=600;
var xOffset = (xMax - 200)/2, yOffset = (yMax - 200)/2;
var xOffset = 100, yOffset = 100;
popupWin = window.open(url,'new_page','width=700,height=535,screenX='+xOffset+',screenY='+yOffset+',top='+yOffset+',left='+xOffset+',scrollbars=auto,toolbars=no,menubar=no,resizable=yes')
}
// done hiding -->
</script>
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="100%" id="AutoNumber1">
<tr>
<td align="center" width="25%">
<form action=<%=PopFile%> method="POST">
<font face="<%= strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strBaseFontColor %>"><b>Photo Album:</b>
<select name="go" onChange="jumppage(this);" size=1>
<%
ShowSub = request("ShowSub")
ShowPic = request("ShowPic")
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then
Response.write "<option "
If ShowSub=Folder.Name Then
Response.Write "selected "
End if
Response.Write"value='" & CurFile & "?ShowSub="
Response.Write(Replace(Folder.Name, " ", "%20"))
response.write "'>"
Response.Write(Folder.Name & "</option>")
If ShowSub <= " " Then
ShowSub = Folder.Name
End if
End if
Next
Set objFSO = Nothing
%>
</select></h3>
</form>
</td>
</tr>
</table>
<%
If ShowPic > " " then
ShowPic = Replace(ShowPic, " ", "%20")
Response.Write "<a href='JavaScript:history.go(-1)'><img src='" & ShowPic & "'><BR><BR><font face=""verdana"" size=""1""><b>返回</b></a>"
Else
%>
<table border="0" cellpadding="0" cellspacing="5" style="border-collapse: collapse" bordercolor="#000000" width="100%" id="AutoNumber1">
<tr>
<%
strPhysicalPath = Server.MapPath("./" & ShowSub)
If ShowSub > " " then
ShowSub = Replace(ShowSub, " ", "%20")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Set objFolderContents = objFolder.Files
'Get the number of pictures in the subdirectory
intTotPics = 0
For Each objFileItem in objFolderContents
If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
intTotPics = intTotPics + 1
End if
Next
'Get the total number of pages in the subdirectory
If (intTotPics/intPicsPerPage) = (int(intTotPics/intPicsPerPage)) Then
intTotPages = int(intTotPics/intPicsPerPage)
Else
intTotPages = int(intTotPics/intPicsPerPage)+1
End If
Redim strPicArray(2,intTotPics)
'Store picture file names in an array
x = 0
For Each objFileItem in objFolderContents
If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
strPicArray(0,x) = objFileItem.Name
strPicArray(1,x) = Cstr(int(x/intPicsPerPage)+1)
x = x + 1
End if
Next
'Determine if there are multiple pages and if so, display page numbers.
If intTotPages > 1 Then
Response.Write "<td colspan='" & intPicsPerRow & "' align='center'><font face='Verdana,Arial' size='1'>分页: "
For x = 1 to intTotPages
If x = intPage Then
Response.Write "</font><font face='Arial' size='2'>" & x & "</font><font face='Arial' size='1'> "
Else
Response.Write "<a href='PhotoAlbum.asp?Page=" & x & "&ShowSub=" & ShowSub & "'>" & x & "</a> "
End If
Next
Response.Write "</font></td>"
Response.Write "</tr><tr><td> </td></tr><tr>"
End If
For x = 0 to UBound(strPicArray,2)-1
If CInt(strPicArray(1,x)) = intPage Then
ShowPic = Replace(strPicArray(0,x), " ", "%20")
Response.write "<td align='center' width='25%'><a href=""Javascript:openGalleryWindow('" & PopFile & "?ShowPic=" & ShowSub & "/" & ShowPic & "')"""
Response.write "<br>"
Response.Write("<img src='" & ShowSub & "/" & strPicArray(0,x) & "' width=150> ")
Response.Write("<br><font color=""" & strBaseFontColor & """><b>" & Mid(strPicArray(0,x),1,Len(strPicArray(0,x))-4) & "</b></font>")
Response.write "</a></td>" & vbcrlf
PictureNo = PictureNo + 1
If PictureNo=intPicsPerRow Then
Response.write "</tr><tr>"
PictureNo = 0
End if
End If
Next
Set objFSO = Nothing
End if
%>
</tr>
</table>
<%
End if
%>
</center>
</html>
'文件2 ShowPicture.asp
<html>
<head>
<link rel="stylesheet" type="text/css" href="style.css">
<title>Show Picture</title>
<SCRIPT LANGUAGE="JavaScript">
<!-- Original: Alan Chu -->
<!-- Web Site: http://homepage.hkpeoples.net -->
<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->
<!-- Begin
var isNav4, isIE4;
if (parseInt(navigator.appVersion.charAt(0)) >= 4) {
isNav4 = (navigator.appName == "Netscape") ? 1 : 0;
isIE4 = (navigator.appName.indexOf("Microsoft") != -1) ? 1 : 0;
}
function fitWindowSize() {
if (isNav4) {
window.innerWidth = document.layers[0].document.images[0].width;
window.innerHeight = document.layers[0].document.images[0].height;
}
if (isIE4) {
window.resizeTo(800, 600);
width = (800 - (document.body.clientWidth - document.images[0].width)) + 25;
height = (600 - (document.body.clientHeight - document.images[0].height)) + 55;
window.resizeTo(width, height);
}
}
// End -->
</script>
</head>
<BODY onLoad="fitWindowSize()">
<center>
<%
ShowPic = request("ShowPic")
ShowPic = Replace(ShowPic, " ", "%20")
Response.Write "<img src='" & ShowPic & "' border=2><BR>"
response.write "<font size='2'><a href='JavaScript:onClick= window.close()'><font color='#FFFFBE'>Close Window</font></A></font>"
%>
</center>
</body>
</html>
- 读出文件夹内的所有图片
- 读出文件夹中的所有文件
- Python 练习册 5-调整文件夹内所有图片的分辨率
- matlab 批量读取文件夹内所有图片的几种方法
- Java删除文件夹内的所有内容
- 遍历文件夹内的所有文件
- Java清空某文件夹内的所有内容
- 如何遍历读取文件夹内所有图片并处理
- MATLAB读取文件夹及其所有子文件夹内的图像
- Java获取一个文件夹内的所有文件(包括所有子文件夹内的)
- 获取xcdo内的所有2倍和3倍图片 或是 获取某文件夹下的所有2倍和3倍图片
- 读取StreamingAssets文件夹里面所有的图片
- android开发如何用file读出sdcard中含图片的文件夹,并将文件夹显示到listview上????
- matlab读取文件夹下的所有图片及其子文件夹下的所有图片
- 复制文件夹内所有文件
- 查找文件夹内所有文件
- 删除文件夹以及文件夹内的所有的子文件夹、文件
- 读出某一个目录的文件和文件夹
- 彩色校验码
- 插入Access记录后马上得到自动编号值的方法
- 超长字符的智能分页-支持HTM
- 初学ASP编程易犯的一个致命程序问题及解决办
- 存储过程
- 读出文件夹内的所有图片
- 多重纪录集Multiple Recordset的应用
- 获得ASP的中文日期字符串
- 计算文件下载时间
- 经典的分页完整程序+注释,对带与不带参数的网址通用
- 过去的日记
- ASP生成随机密码
- 在数据库里掉的数据如何换行和空格
- 在ASP文件中调用DLL