ASP index af mapper?

<%
Function ShowFolderList()
    if request.querystring(\"path\") = \"\" then
    tmp = server.mappath(\"start1.asp\")
    tmp = replace(tmp, \"start1.asp\", \"\")
    folderspec = tmp
    tmp = \"\"
    else
    folderspec = request.querystring(\"path\")
    end if
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set file = fso.GetFolder(folderspec)
    Set drivecollection = fso.drives
    tmp = tmp & file.path & \"<br>\"
    For each drive in drivecollection
    tmp = tmp & \"<a href=\'start1.asp?path=\" & drive.driveletter & \":/\'>\" & drive.driveletter & \"</A><BR>\"
    next
    if not file.isrootfolder then
    tmp = tmp & \"<a href=\'start1.asp?path=\" & file.parentfolder & \"\'>..</a><br>\"
    end if

    set foldercollection2 = file.subfolders
    for each folder in foldercollection2
    tmp = tmp & \"<a href=\'\" & request.servervariables(\"script_name\") & \"?path=\" & folder & \"\'>\" & folder.name & \"</A><BR>\"
    next

    Set foldercollection = file.Files
    For Each file in foldercollection
   
    if lcase(right(file.name, 4)) = lcase(\".mdb\") then
    tmp = tmp & \"<a href=\'start1.asp?file=\" & folderspec & \"\\\" & file.name & \"&action=open\'>\" & file.name & \"</a><BR>\"
    end if
   
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

Gem det i filen start 1
-----------------------------
<%
Function ShowFolderList()
    if request.querystring(\"path\") = \"\" then
    tmp = server.mappath(\"start1.asp\")
    tmp = replace(tmp, \"start1.asp\", \"\")
    folderspec = tmp
    tmp = \"\"
    else
    folderspec = request.querystring(\"path\")
    end if
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set file = fso.GetFolder(folderspec)
    Set drivecollection = fso.drives
    tmp = tmp & file.path & \"<br>\"
    For each drive in drivecollection
    tmp = tmp & \"<a href=\'start1.asp?path=\" & drive.driveletter & \":/\'>\" & drive.driveletter & \"</A><BR>\"
    next
    if not file.isrootfolder then
    tmp = tmp & \"<a href=\'start1.asp?path=\" & file.parentfolder & \"\'>..</a><br>\"
    end if

    set foldercollection2 = file.subfolders
    for each folder in foldercollection2
    tmp = tmp & \"<a href=\'\" & request.servervariables(\"script_name\") & \"?path=\" & folder & \"\'>\" & folder.name & \"</A><BR>\"
    next

    Set foldercollection = file.Files
    For Each file in foldercollection
   
    tmp = tmp & \"<a href=\'start1.asp?file=\" & folderspec & \"\\\" & file.name & \"&action=open\'>\" & file.name & \"</a><BR>\"
       
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

Okay Jeg er altså FULDSTÆNDIG grøn i det her (men ellers fedt med noget respons) Skal bare sætte det her ind i en *.asp fil og så kører det?

Det skal ligge i en fil der hedder start1.asp :-)

Hvis det skal ligges i en anden fil skal det lige omskrives lidt :-)

Det vil altså sige at hvis man starter IIS og sætter start1.asp med den her kode i som startside så kan andre brugere gennemse mine mapper?

Ja det kan de, men tror lige du skal bruge den her istedet:

----------------------------------------------
<%
Function ShowFolderList()
    if request.querystring(\"path\") = \"\" then
    tmp = server.mappath(\"start1.asp\")
    tmp = replace(tmp, \"start1.asp\", \"\")
    folderspec = tmp
    tmp = \"\"
    else
    folderspec = request.querystring(\"path\")
    end if
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set file = fso.GetFolder(folderspec)
    Set drivecollection = fso.drives
    tmp = tmp & file.path & \"<br>\"
    For each drive in drivecollection
    tmp = tmp & \"<a href=\'start1.asp?path=\" & drive.driveletter & \":/\'>\" & drive.driveletter & \"</A><BR>\"
    next
    if not file.isrootfolder then
    tmp = tmp & \"<a href=\'start1.asp?path=\" & file.parentfolder & \"\'>..</a><br>\"
    end if

    set foldercollection2 = file.subfolders
    for each folder in foldercollection2
    tmp = tmp & \"<a href=\'\" & request.servervariables(\"script_name\") & \"?path=\" & folder & \"\'>\" & folder.name & \"</A><BR>\"
    next

    Set foldercollection = file.Files
    For Each file in foldercollection
   
    tmp = tmp & file.name & \"<BR>\"
       
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

okay det er sgu iorden! :)
du får lige lidt point.
Men kan du ikke lige blive ved med holde øje med det her tag hvis jeg har spørgsmål?

Jo det skal jeg nok :-)

Hmmm
nu prøver jeg lige at finde et sted hvor jeg kan få lidt plads og hvor de understøtter ASP...
kender du et godt sted?

Ikke umiddelbart me mindre du vil betale for det.

det vil jeg ikke ...