Jeg leder efter et ASP-script til at uploade filer

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
relativSti = "billeder/"

Upload.Save Server.MapPath(relativSti)
Upload.OverwriteFiles = False

Set File = Upload.Files("FILE1")
If Not File Is Nothing Then
  filStiNavn = relativSti & file.Name

  Response.Write "Filen er gemt."
Else
  Response.Write "Ingen fil valgt."
End If
%>

test denne

http://www.siamasp.com/components/AspUpload/Manual.htm

den virkede ikke den sletter dem bare

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
relativSti = "billeder/"

Upload.Save Server.MapPath(relativSti)
Upload.OverwriteFiles = False

Set File = Upload.Files("FILE1")
If Not File Is Nothing Then
  filStiNavn = relativSti & file.Name

  Response.Write "Filen er gemt."
Else
  Response.Write "Ingen fil valgt."
End If
%>

skulle lige bytte rundt så smider den et nummer på i stedet for at overskrive

http://www.hillerodgolf.dk/test_side/profiler/

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
relativSti = "billeder/"

Upload.OverwriteFiles = False
Upload.Save Server.MapPath(relativSti)

Set File = Upload.Files("FILE1")
If Not File Is Nothing Then
  filStiNavn = relativSti & file.Name

  Response.Write "Filen er gemt."
Else
  Response.Write "Ingen fil valgt."
End If
%>

sådanne så skulle den være der :o)

Jeg kender allerede ovenstående kode fra tidligere spørgsmål, men jeg mangler ASP-script i JavaScript.................
Da jeg allerede benytter Javascript på den side hvor upload skal være!!

du kan slette filen her: http://www.hillerodgolf.dk/test_side/profiler/pic.asp

Ja men må jeg også se koden.......

Nej.. :o)

<html>
<head>
<title>Lister filer i mappe!</title>
<style type="text/css">
<!--
a:link                  {color: #5881CA; text-decoration: none; font-family: Tahoma}
a:visited              {color: #5881CA; text-decoration: none}
a:hover                {color: #800000; text-decoration: underline}

td                      { font-family: Tahoma; font-size: 8pt}
-->
</style>
<script language="javaScript">
function Tabort(go){if (confirm("Vill du virkligen slette dette bilde?\n\nHelt sikkert?")){self.location=(go)}else{}}
</script>
</head>

<body topmargin="0" leftmargin="0">


<table border="0" width="410" cellspacing="0" cellpadding="5">
  <tr>
    <td width="100%">
    <%'##########################################################################################################
'--------------------------------------------------INSTILLNINGER-----------------------------------------------------------------------------------------------
'############################################################################################################

'###################################################
'-------------MAPPEN DU LISTER FILERNE FRA----------------------
'###################################################

MappNamn = "billeder" &Request.Querystring("dir")

'###################################################
'-------------------ANTAL BILLEDER PR SIDE-------------------------------
'###################################################

AntalPerSida = 10

'############################################################################################################
'-------------------------------------------------lISTER ALLE FILENE SOM ER I MAPPEN------------------------------------------------------------------
'############################################################################################################

Set Mappkoll = Server.CreateObject("ISSecureFile.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))%>

<table border="0">
<tr>
  <td colspan="5" width="372"><font size="2"><b>Liste over alle filer i mappen <i><%=MappNamn%>
    </i></b></font></td>
</tr>
<tr>
  <td colspan="5"><hr size="1"></td>
</tr>
<tr>
  <td width="17">
<%If Request.Querystring("dir") <> "" Then%>
<a href="java script:history.back();"><img src="../bilder/back.gif" border="0" alt="Upp en nivå"></a>
<%End If%>
  </td><td width="100"><b>Filnavn</b></td><td width="99"></td><td width="100"><b>Filstørrelse</b></td><td align="right" width="38">&nbsp;</td>
</tr>
<tr>
  <td colspan="5"><hr size="1"></td>
</tr>

<%PS = AntalPerSida
     
  If Mapp.Files.Count Mod PS Then
      Sidor = Mapp.Files.Count \ PS + 1
  Else
      Sidor = Mapp.Files.Count \ PS
  End If
  Sida = Request.QueryString("sida")
  If Sida = "" Then
      Sida = 1
  End If 
   
  Start = (Sida - 1) * PS
  Slut = Start + PS

  If Mapp.Files.Count = 0 Then%>
      <tr>
          <td width="17">&nbsp;</td><td colspan="4" width="349">Ingen filer!</td>
      </tr>
  <%Else

Set MyDrive = Mapp.Subfolders

For Each Folder in MyDrive%>
<tr>
  <td width="17"><img src="../bilder/mapp.gif"></td><td width="145"><a href="pic.asp?dir=<%=Request.Querystring("dir")%>\<%=Folder.Name%>"><%=Folder.Name%></a></td><td width="48"></td><td width="100"><b>Mappe</b></td><td width="38">&nbsp;</td>
</tr>
<%Next

  For Each File In Mapp.Files

      'Totalt = Totalt + File.Size

      bild = InStrRev(LCase(File.Name), "." )
      If bild < 1 Then bild = "" Else bild = Mid(LCase(File.Name),bild+1)

      If X < Start Then
      ElseIf X < Slut Then%>
          <tr>
              <td width="17"><img src="bilder/<%=bild%>.gif"></td><td width="100"><a href="<%=MappNamn%>/<%=File.Name%>" target="_blank"><%=MappNamn%>/<%=File.Name%></a></td><td width="99"></td><td width="100"><%=Round(File.Size/1000, 1)%> kb</td><td align="right" width="38"><a href="java script:Tabort('pic.asp?visa=delete&name=<%=File.Name%>&sida=<%=Request.QueryString("sida")%>&dir=<%=Request.Querystring("dir")%>')">Slet</a></td>
          </tr>
      <%Else
          Exit For
      End If
      X = X + 1
  Next
  End If
If Sidor > 1 Then%>

<tr>
  <td colspan="5"><hr size="1"></td>
</tr>
<tr>
  <td colspan="5" width="372">
<%For i = 1 To Sidor
    If  i = CInt(Sida) Then
        Response.Write "<b>" & i & "</b>"
    Else
        Response.Write " <a href=pic.asp?dir=" & Request.Querystring("dir") & "&sida=" & i & ">" & i & "</a> "
    End If
Next%>
</td>
</tr>
<%End If%>
<tr>
  <td colspan="5"><hr size="1"></td>
</tr>
<tr>
  <td colspan="5" width="372"><b><%=Mapp.Files.Count%></b> filer og <b><%=Mapp.SubFolders.Count%></b>
    mapper i mappen <b><%=MappNamn%></b><!--<br>Totalt <b><%=Round(Totalt/1000, 1)%></b> kb--></td>
</tr>
</table>

<%
'############################################################################################################
'-------------------------------------------------SLET DET BILLED DU HAR VALGT--------------------------------------------------------------------
'############################################################################################################

If Request.QueryString("visa") = "delete" Then

If MappKoll.FileExists(Server.MapPath(MappNamn) & "\" & Request.QueryString("name")) Then
  MappKoll.DeleteFile(Server.MapPath(MappNamn) & "\" & Request.QueryString("name"))
End If

Response.Redirect "pic.asp?sida=" & Request.QueryString("sida")

End If

Set Mapp = Nothing
Set Mappkoll = Nothing%></td>
  </tr>
</table>

</body>
</html>

Jeg er lige igang med at teste.
Men jeg tror ikke det går da jo er vb-script.

i behøver jo ikke at smide lortefiler op ! Pod-bot%202.5%20setup.exe

lukket