Henvis showSub til en undermappe
HejJeg har et lille script, som bruges som foto album.
Problemmet er at man ligger sine fotos i under mapper og på den måde kan man skille forskellige "events" fra hinanden, men ude i roden på mit domæne er der også mapper som ikke indeholder billeder og dem vil jeg ikke have med... så hvis man kan få "showsub" til at henvis til en under mappe, hvor under mapperne med min billeder ligger i, ville det løse mit problem.
Undermappen skla hedde "FOTOS"
Spørg endeligt hvis i har spørgsmål!!
FILEN:
<%
CurFile = "default.asp"
%>
<html><head>
<title>FOTO Album</title>
<meta name="Generator" content="Stone's WebWriter 4">
<script language="JavaScript">
<!--
function jumppage(sel)
{
var i = sel.selectedIndex
self.location.href = sel.options[i].value
}
// -->
</script>
</head><body bgcolor="#000000" text="#FFFF00">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="26">
<tr>
<td align="center" width="563" height="26">
<h3 align="center"><b><font color="#66CCFF" face="Times New Roman"> </font><font color="#FFFF00" face="Times New Roman">
Foto xxx</font></b></h3>
</td>
<td align="center" width="275" height="26">
<form action=<%=CurFile%> method="POST">
<h3>Vælg Album :
<select name="go" onChange="jumppage(this);" size=1>
<%
ShowSub = request("ShowSub")
ShowPic = request("ShowPic")
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)
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>
<%
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
%>
<% 'Description for each group - NIG
on error resume next
strPhysicalPath = Server.MapPath(".\" & ShowSub)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set TextStream = objFSO.OpenTextFile(strPhysicalPath & "\tekst.txt",1)
S = TextStream.ReadAll
TextStream.Close
' Sort kasse
if len(S)>0 then response.Write "<div style=""border: 1 solid black;width=500px;"">"+ S +"</div>"
'text area
<!-- -->if len(S)>0 then response.Write "<textarea cols =70 rows =5>"+ S +"</textarea>"
on error goto 0
%>
<p>
<p><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>
<hr size="1" color="#FFFF00">
</html>
