Vis hvad der ligger på serveren...

ligesom : www.zequenze.dk/eksperten/ ?

Køre du iss eller hvad `?

Jeg mener ikke du kan få vist underdirs hvis du er på informations server. (kun filer)

Eller _ http://www.netcoders.dk/sources.asp?mode=view_source&id=47&tech_id=1

<%
                strExts = \"as_,zip,ace,jpg,gif,bmp,png,txt\"
                arrExts = Split(strExts, \",\")

                Set fsoSystem = CreateObject(\"Scripting.FileSystemObject\")
                Set fsoFolders = fsoSystem.GetFolder(Server.MapPath(\".\"))
                set fso = fsosystem.Drives
               
                For intIndex = 0 To UBound(arrExts)
                    For Each fFolder In fsoFolders.Files
                        strName = LCase(fFolder.Name)
                        intSize = FormatNumber(fFolder.Size, 0, 0, , True)

                        If LCase(arrExts(intIndex)) = LCase(Right(strName, 3)) Then
                            Select Case LCase(Right(strName, 3))
                                Case \"asp\"
                                Case \"jpg\", \"gif\", \"bmp\", \"png\": Response.Write \"<a href=\'\" & strName & \"\'><img src=\'gfx/img.gif\' border=0> \" & strName & \" (\" & intSize & \" bytes)</a><br>\"
                                Case \"zip\", \"ace\": Response.Write \"<a href=\'\" & strName & \"\'><img src=\'gfx/com.gif\' border=0> \" & strName & \" (\" & intSize & \" bytes)</a><br>\"
                                Case \"as_\":  Response.Write \"<a href=\'\" & strName & \"\'><img src=\'gfx/asp.gif\' border=0> \" & strName & \" (\" & intSize & \" bytes)</a><br>\"
                                Case \"txt\":  Response.Write \"<a href=\'\" & strName & \"\'><img src=\'gfx/txt.gif\' border=0> \" & strName & \" (\" & intSize & \" bytes)</a><br>\"
                                Case Else:    Response.Write \"<a href=\'\" & strName & \"\'><img src=\'gfx/no.gif\' border=0> \" & strName & \" (\" & intSize & \" bytes)</a><br>\"
                            End Select
                        End If
                    Next
                Next

                Set fsoFolders = Nothing
                Set fsoSystem = Nothing
%>

taget fra http://www.tdaugaard.dk/x/default.as_ (husk _)

eller : http://www.netcoders.dk/sources.asp?mode=view_source&id=1097&tech_id=1

Skal vi til og lukke ?