Jeg lavede engang denne her... Prøv om du kan se hvad der sker:
'******************* Billede del 1 *******************
If Request.QueryString("Section") = "UploadImage" Then
%>
<table width="100%" bgcolor="#808080" valign="top">
<tr>
<td align="center" valign="top">
<table valign="top">
<form method="post" enctype="multipart/form-data" action="<% Response.Write(strScriptName) %>?Section=UploadNow">
<tr>
<td><input type="file" name="file1" class="TotalBorder">
</tr>
<tr>
<td><input type="file" name="file2" class="TotalBorder">
</tr>
<tr>
<td><input type="file" name="file3" class="TotalBorder">
</tr>
<tr>
<td><input type="submit" value="Upload" class="TotalBorder"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<table width="100%" height="100%" bgcolor="#808080" valign="top">
<tr>
<td width="2%" height="5" bgcolor="buttonface" style="font-family: MS Sans Serif, sans-serif; font-size:11; border-top: #ffffff 1px solid; border-left: #ffffff 1px solid; text-align: center;"> </td>
<td width="3%" height="5" bgcolor="buttonface" style="font-family: MS Sans Serif, sans-serif; font-size:11; border-top: #ffffff 1px solid; border-left: #ffffff 1px solid; text-align: center;">Nr.</td>
<td width="80%" height="5" bgcolor="buttonface" style="font-family: MS Sans Serif, sans-serif; font-size:11; border-top: #ffffff 1px solid; border-left: #ffffff 1px solid; text-align: center;">Billede navn</td>
<td width="20%" height="5" bgcolor="buttonface" style="font-family: MS Sans Serif, sans-serif; font-size:11; border-top: #ffffff 1px solid; border-left: #ffffff 1px solid; text-align: center;">St<span style="font-family:verdana;">ø</span>rrelse</td>
</tr>
<%
'******************* Billede del 2 *******************
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("d:\home\upload")
Set FolderFiles = Folder.Files
For Each File In FolderFiles
i = i + 1
If inStr(LCase(File),".jpg") or inStr(LCase(File),".gif") Then
%>
<tr onmouseover="overrow(this);" onmouseout="overrowout(this);" style="background-color: #ffffff; font-family: MS Sans Serif, sans-serif; font-size:11; border-top: #ffffff 1px solid; border-left: #ffffff 1px solid; text-align: left;">
<td height="5" align="center" valign="bottom" onmouseout="toolTip()" onmouseover="toolTip('Slet');">
<a href="<% Response.Write(strScriptName) %>?Section=DeleteImage&FileName=<% Response.Write(File.Name) %>" onclick="return confirm('Er du sikker?');"><img src="admin/img/Delete.gif" width="12" border="0"></a>
</td>
<td height="5">
<%
Response.Write i & vbCrlf
%>
</td>
<td height="5" onclick="window.open('ShowImage.asp?ImageName=<% Response.Write(File.Name) %>','Popup_Window','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no');">
<%
Response.Write File.Name & vbCrlf
%>
</td>
<td height="5" align="right">
<%
Response.Write File.Size & " kb" & vbCrlf
%>
</td>
</tr>
<%
End If
Next
%>
<tr>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
</table>
<%
End If
'******************* Billede del 3 *******************
If Request.QueryString("Section") = "DeleteImage" Then
Set FSO = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "d:\home\upload\" & Request.QueryString("FileName")
With Response
.Write("<p> <p> <p>")
.Write("<table class=""font"" align=""center"">")
.Write("<tr>")
.Write("<td class=""TotalBorder"" bgcolor=""#d6ebff"">Billedet er nu slettet.</td>")
.Write("</tr>")
.Write("</table>")
End With
End If
'****************** Billede del 4 ******************
If Request.QueryString("Section") = "UploadNow" Then
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.Save("d:\home\upload")
With Response
.Write("<p> <p> <p>")
.Write("<table class=""font"" align=""center"">")
.Write("<tr>")
.Write("<td class=""TotalBorder"" bgcolor=""#d6ebff"">" & Count & " fil(er) blev uploaded.</td>")
.Write("</tr>")
.Write("</table>")
End With
End If
//>Rune
Ny bruger
Nybegynder
Opret
Preview
