带标题的简单 ASP 图片库

ASP 图像库

在线查看演示

下载包含演示图片的源代码文件

一个简单的基于 ASP 的单文件图像库，带有说明文字。使用方法很简单，将 ASP 文件放置在一个包含其他文件夹的文件夹中，这些文件夹包含图像。在每个文件夹中，放置一个名为 captions.txt 的文本文件，其中每行包含一个说明文字，与每张图像对应（按图像名称排序）。在网页上显示时，说明文字将显示在每张图片的上方。这依赖于文件系统对象。大多数 Web 主机都支持此功能，但如果您遇到问题或收到错误消息，您可能需要联系您的 ISP 并询问他们是否支持使用文件系统对象。

该脚本由两部分组成。

第一部分是读取文件夹并显示带有文件夹名称的链接。我们循环创建一个文件系统对象，然后循环遍历找到的每个文件夹，并显示每个文件夹中包含的大小（以 MB 为单位）。然后，每个文件夹名称都是一个链接，用于显示图像和说明文字。

文件的第二部分将循环遍历所有 JPG 和 GIF 图像，然后打开 captions.txt 文件并获取每行，然后将这两个列表“匹配”起来，将说明文字写入每张图片的顶部，每张图片也可以单击以单独显示以便打印。

 

<CODE><%
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

qfolder = request.querystring("f")
if qfolder = "" then
folderspec = server.mappath(".")
Set filesys = CreateObject("Scripting.FileSystemObject") 
Set demofolder = filesys.GetFolder(folderspec) 
Set folcoll = demofolder.SubFolders
For Each subfol in folcoll
folsize = left((subfol.size/1000000), 3)
folist = folist & "» " & subfol.Name & " <small> (" & folsize & " MB)</small>" & vbcrlf
folist = folist & "
" 
Next
set filesys = nothing
Response.Write folist

else

filepath = server.mappath(".") & "\" & qfolder
captionfile = filepath & "\captions.txt"
Set filesys = CreateObject("Scripting.FileSystemObject")
Dim SomeArray()
'caption part
If filesys.FileExists(captionfile) then
set file = filesys.GetFile(captionfile)
Set TextStream = file.OpenAsTextStream(ForReading,TristateUseDefault)
captioncount = 0
Do While Not TextStream.AtEndOfStream
Line = TextStream.readline
ReDim Preserve SomeArray(captioncount)
SomeArray(captioncount) = line
'response.write captioncount & " " & somearray(captioncount) & "
"
captioncount = captioncount + 1
'Response.write Line
Loop
textStream.close
end if
'folder part
Set demofolder = filesys.GetFolder(filepath) 
Set filecoll = demofolder.Files
filecount = 0
For Each file in filecoll
Ext = UCase(Right(File.Path, 3)) 
If Ext = "JPG" OR Ext = "GIF" Then
on error resume next
data = SomeArray(filecount)
on error goto 0
hrefpath = qfolder & "/" & file.name
imagepath = "" & data & "
"free image gallery" href='"%20&%20hrefpath%20&%20"'><img src='" & hrefpath & "' border='1' title='" & data & "'>
"
filist = filist & imagepath & vbcrlf
filist = filist & "
"
filecount = filecount + 1
data = ""
end if
Next
set filesys = Nothing
filist = filist & "
<small><a href='http://www.allscoop.com/' target='_blank'>free image gallery</small>"
%>

<h3>up one level">«
 <%=qfolder%></h3>

<%=filist%>

<% end if %>

就这样了，非常简单易用。它当然没有很多功能，但如果您只是需要快速上传一些带有说明文字的图片……它非常容易。希望您喜欢！

在线查看演示

下载包含演示图片的源代码文件