Her er noget kode i ASP: ---- <html><head> <title>Fotoalbum</title> <script language="JavaScript"> <!-- function jumppage(sel) { var i = sel.selectedIndex self.location.href = sel.options[i].value } // --> </script> </head><body bgcolor="#000000" text=Black>
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(strPhysicalPath) Set objFolder = objFile.ParentFolder Set objFolderContents = objFolder.Files For each Folder in objFolder.SubFolders If Left(Folder.Name,1)<>"_" Then Response.write "<option " If ShowSub=Folder.Name Then Response.Write "selected " End if Response.Write"value='" & CurFile & "?ShowSub=" Response.Write(Replace(Folder.Name, " ", "%20")) response.write "'>" Response.Write(Folder.Name & "</option>") If ShowSub <= " " Then ShowSub = Folder.Name End if End if Next Set objFSO = Nothing %> </select></h3> </form> </td> </tr> </table> <hr>
<% If ShowPic > " " then ShowPic = Replace(ShowPic, " ", "%20") Response.Write "<a href='java script:history.go(-1)'><img src='" & ShowPic & "'><BR><BR><B>Go Back</B></a>" Else %> <table border="0" cellpadding="0" cellspacing="5" style="border-collapse: collapse" bordercolor="#111111" width="800" id="AutoNumber1"> <tr> <% strPhysicalPath = Server.MapPath(".\" & ShowSub) If ShowSub > " " then ShowSub = Replace(ShowSub, " ", "%20") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysicalPath) Set objFolderContents = objFolder.Files For Each objFileItem in objFolderContents If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN ShowPic = Replace(objFileItem.Name, " ", "%20") 'Response.write "<td align='center' width='25%'><a href=" & ShowSub & "\" Response.write "<td align='center' width='25%'><a href=" & CurFile & "?ShowPic=" & ShowSub & "\" & ShowPic 'Response.Write(Replace(objFileItem.Name, " ", "%20")) Response.write ">" Response.Write("<img src='" & ShowSub & "\" & objFileItem.Name & "' width=200> ") Response.Write("<p align='center'><b>" & Mid(objFileItem.Name,1,Len(objFileItem.Name)-4) & "</b>") Response.write "</a></td>" PictureNo = PictureNo + 1 If PictureNo=4 Then Response.write "</tr><tr>" PictureNo = 0 End if End if Next Set objFSO = Nothing End if %> </tr> </table> <% End if %> </center> </html>
<% Function ShowFolderList() folderspec = server.mappath(".") Set fso = Server.CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(folderspec) Set foldercollection = folder.Files For Each file in foldercollection tmp = tmp & "<a href='" & file.name & "'>" & file.name & "</A><BR>" Next ShowFolderList = tmp End Function response.write showfolderlist() %>
<% Function ShowFolderList() folderspec = Server.MapPath("gfx/diverse") Set fso = Server.CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(folderspec) Set foldercollection = folder.Files For Each file in foldercollection tmp = tmp & "<a href='" & file.name & "'>" & file.name & "</A><BR>" Next ShowFolderList = tmp End Function response.write showfolderlist() %>
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(Server.MapPath(strPathInfo)) Set objFolder = objFile.ParentFolder Set objFolderContents = objFolder.Files For each Folder in objFolder.SubFolders If Left(Folder.Name,1)<>"_" Then Response.write "<option " If ShowSub=Folder.Name Then Response.Write "selected " End if Response.Write"value='" & CurFile & "?ShowSub=" Response.Write(Replace(Folder.Name, " ", "%20")) response.write "'>" Response.Write(Folder.Name & "</option>") If ShowSub <= " " Then ShowSub = Folder.Name End if End if Next Set objFSO = Nothing
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.