Html 在IIS上显示目录中所有图像的简单网页？_Html

Html 在IIS上显示目录中所有图像的简单网页？

html

Html 在IIS上显示目录中所有图像的简单网页？,html,Html,我正在尝试创建一个简单的网站，它将为特定文件夹中的每个图像显示一个缩略图。这些文档将存储在Windows 7 Pro计算机上，并使用IIS托管。我找不到适合我的代码，所以我希望能在这里找到一些帮助使用Javascript或VBScript可以轻松完成这项工作吗？因为这是在IIS下运行的，所以我应该使用ASP来生成HTML输出吗图像存储在网站根目录中名为Images的目录中。默认网页名为index.html 非常感谢您的帮助。这是我所使用的，它可以工作，但由于不使用缩略图，因此占用了大量带宽：

我正在尝试创建一个简单的网站，它将为特定文件夹中的每个图像显示一个缩略图。这些文档将存储在Windows 7 Pro计算机上，并使用IIS托管。我找不到适合我的代码，所以我希望能在这里找到一些帮助

使用Javascript或VBScript可以轻松完成这项工作吗？因为这是在IIS下运行的，所以我应该使用ASP来生成HTML输出吗

图像存储在网站根目录中名为Images的目录中。默认网页名为index.html

非常感谢您的帮助。

这是我所使用的，它可以工作，但由于不使用缩略图，因此占用了大量带宽：

<!DOCTYPE html>
<html>
    <head>
        <title>Our Wedding - Photographer Photos</title>
    </head>
    <body>
        <center><h1>Our Wedding - Photographer Photos</h1></center>

<%
page = request.querystring("page")
size=16
start = page * size
%>

<% ListFolderContents(Server.MapPath("./photographer")) %>
<% 
sub ListFolderContents(path)

    dim fs, folder, file, item, url

    set fs = CreateObject("Scripting.FileSystemObject")
    set folder = fs.GetFolder(path)

    ' Count number of files
    total = 0
    for each item in folder.Files
        total = total + 1
    next

    Response.Write("<table>")
    p = 0
    c = 0
    for each item in folder.Files
        if ( p >= start ) then
            if ( c mod 4 = 0 ) then Response.write("<tr>" & vbCrLf)
            url = MapURL(item.path)
            Response.Write("<td width=""20%""><a href=""" & url & """><img src=""" & url & """ width=""100%""></a></td>")
            if ( c mod 4 = 3 ) then Response.write("</tr>"  & vbCrLf)
            c = c + 1
        end if
        p = p + 1
        if ( c => size ) then Exit For
    next
    if (c mod 4 <> 0 ) then Response.write("</tr>" & vbCrLf)

    Response.Write("</table>")

    Response.Write("</br><center>")
    if ( page >= 1 ) then Response.Write("<a href=""photographer.asp?page=" & page-1 & """><- BACK</a> &nbsp;&nbsp;&nbsp;")
    Response.Write("<a href=""index.html""> HOME </a> &nbsp;&nbsp;&nbsp")
    if ( p < total ) then Response.Write("<a href=""photographer.asp?page=" & page+1 & """>NEXT -></a>")
    Response.Write("</center></br>")

end sub

function MapURL(path)
    dim rootPath, url

    'Convert a physical file path to a URL for hypertext links.

    rootPath = Server.MapPath("/")
    url = Right(path, Len(path) - Len(rootPath))
    MapURL = Replace(url, "\", "/")

end function
%>

</body>
</html>

这个网站是为了问什么是我的错。。。这不是要求，请为我做。让我们看看你有什么，你在挣扎什么。。。你可能会得到更好的回答我找不到适合我的代码。那么，自己编写适合您具体情况的代码？如果你只是到处复制粘贴代码，你将有一个糟糕的时间线下来。另外，StackOverflow不是一个免费的代码编写服务，它希望您能够这样做。请更新您的问题，以显示您已经尝试了什么，展示您在a中面临的具体问题。我知道这不是一个请为我做的网站。我只是想主持我女儿婚礼的照片，而不必手写每一张照片和标签。