Fjern extension
Følgende script virker på den måde at alle *.jpg filer i mappen "billeder" bliver listet og det virker helt fint.Men problemet er at det er HELE filnavnet der bliver vist. Hvad skal jeg gør så det kun er filnavet UDEN .jpg der bliver vist??
<%
' Indsæt mappens navn her:
path = "Billeder"
%>
<html>
<body>
<% if Request.Form("file") = "" then%>
<form method="post" action="<%="" & Request.ServerVariables("SCRIPT_NAME") & ""%>">
<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFolder(server.mappath(path))
for each file in f.files
name = file.name
ext = lcase(right(name,3))
if ext = "jpg" then
%>
<input type="checkbox" name="file" value="<%="" & name & ""%>"> - <%="" & name & ""%>
<br>
<%
end if
next
set f=nothing
set fs=nothing
%>
<input type="reset" value="Nulstil" name="Nulstil">
<input type="submit" value="Se billeder" name="submit">
<form>
<%
else
file = replace(Request.Form("file"),", ",",")
fileArr = split(file,",")
for i=0 to ubound(fileArr)
if fileArr(i) <> "" then
%>
<img src="<%="" & path & "/" & fileArr(i) & ""%>" border="0" height="288" width="200">
<%
end if
next
end if
%>
</body>
</html>
