Jesper Brunholm <brunholm@bigfoot.com> skrev
> > med tekstfiler, som man så får vist ved at klikke
> > på dem?
> Nogle servere er dog sat op til at blokere for dette
> - jeg ved ikke hvad man gør i det tilfælde
Jeg ved godt at dette ikke er asp-gruppen, men selv om der ikke umiddelbart
er mulighed for at vise filer på serveren, kan man dog lave noget i asp, så
det lader sig gøre alligevel.
Jeg lavede engang nedenstående til formålet:
<html>
<head>
<title>Filer i dette katalog</title>
<link rel="stylesheet" type="text/css" href="basis.css">
</head>
<body>
<% session.LCID = 1030 %>
<%
dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables("PATH_INFO")
strStiInfo = Request.ServerVariables("server_name")
strPhysicalPath = Server.MapPath(strPathInfo)
Dim objFSO, objFile, objFileItem
Set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.GetFile(strPhysicalPath)
set objFolder = objFile.ParentFolder
set objFolderContents = objFolder.Files
%>
<h1>
<%
streng= Request.ServerVariables("PATH_INFO")
sidsteslash = InStrRev(streng, "/")
stien = Left(streng, sidsteslash)
Response.write Request.Servervariables("Server_Name") & stien
%>
</h1>
<div style="width:100%; text-align:center;">
<div style="background-color:#ffffdd;width:1;padding:10px;border:solid black
1">
<table border="0" cellpadding="3" cellspacing="0">
<tr>
<td><b>Filnavn</b></td>
<td><b>Størrelse</b></td>
<td> </td>
<td nowrap><b>Sidst opdateret</b></td>
</tr>
<%
For Each objFileItem in objFolderContents
Response.Write "<tr><td nowrap>"
Response.Write "<a href='"
Response.Write objFileItem.Name
Response.Write "'>"
Response.Write objFileItem.Name
Response.Write "</a>"
Response.Write "</td><td align=right nowrap>"
Response.Write objFileItem.size
Response.Write "</td><td> </td><td align='right' nowrap>"
Response.Write objFileItem.DateLastModified
Response.Write "</td></tr>"
Next
%>
</table>
</div>
</div>
</body>
</html>
Vær opmærksom på at linier kan være ombrudt. Tilpas selv html-koden så den
passer til formålet.
--
Allan