Søg
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 14:26 Der er 37 kommentarer og
1 løsning

Smart upload problemer ???????

Hej er ved at lave en upload side

så min admin kan uploade billeder osv igennem

et web interface ......

MEN det vil ikke virke

Jeg bruger server mappath men det virker ikke ...

Den skriver 0 files uploaded ....

Her er sende upload siden ....

http://iceb.ljnet.dk/flash/adminn/admin.asp

Her er modtagersiden

http://iceb.ljnet.dk/flash/adminn/up.asp

Her er KODEN til admin.asp

<html>
<title>Admin</title>
<head>
</head>
<body bgcolor="#ffffff" text="#000000" link="#000000"
vlink="#000000" alink="#FFFFFF">


Adminmodulet<br><br>


1 e handels admin - her kan man  <br>

a:lægge produktbilleder op og eller slette dem<br>

b:tilføje og eller ændre beskrivelser og produktnavne
og priser og gebyrer<br><br>


2 download admin<br>

a:lægge produktbilleder op og eller slette dem<br>

b:tilføje og eller ændre beskrivelser og
produktnavne<br><br>



3 nyhedsbrevs admin<br>

a:Her kan man vælge iblandt alle kunder og sende
skrive breve til dem via outlook<br><br>


4 medlems admin<br>

a:Her kan man se alle nedlemmerne og slette eller dem
eller ændre deres status<br><br>


5 generel admin<br>

a:her kan man ændre og eller tilføje tekster på
forsiden inddelt i sektioner<br><br>


6 login<br>

a her kan admin logge sig ind<br><br>

Rediger i oplysninger her<br><br>

Slet filer her<br><br>

<H1>Upload : Læg produkbillederne op her</H1>
<FORM METHOD="POST" ACTION="up.asp"
ENCTYPE="multipart/form-data">   
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>   
<INPUT TYPE="FILE" NAME="FILE2" SIZE="50">
<BR>    <INPUT TYPE="FILE" NAME="FILE3" SIZE="50"><BR>
 
<INPUT TYPE="FILE" NAME="FILE4" SIZE="50">
<INPUT TYPE="FILE" NAME="FILE5" SIZE="50">
<BR>    <INPUT TYPE="SUBMIT" VALUE="Upload"> </FORM>
</BODY> </HTML>

Her er KODEN til up.asp

<HTML> <BODY BGCOLOR="white"> 
<H1>aspSmartUpload : Sample 1</H1> <HR> 
<% '  Variables ' Dim mySmartUpload Dim intCount     
 
'  Object creation '     
Set mySmartUpload =
Server.CreateObject("aspSmartUpload.SmartUpload") 
' upload ' mySmartUpload.Upload 
'  Save the files with their original names in a
virtual path of the web server
intCount = mySmartUpload.Save("& Response.Write p & ")
 
' sample with a physical path   
//intCount =
mySmartUpload.Save("D:\web\5er.com_kadsfd\wwwroot\flash\adminn\")

'  Display the number of files uploaded ' 
Response.Write(intCount & " file(s) uploaded.") %>
</BODY> </HTML>
<%
Response.Write Server.MapPath("/flash/adminn/")

Response.Write "<br><br>"

p=Server.MapPath("/flash/adminn")

response.write p

%>

Avatar billede eagleeye Praktikant
22. maj 2002 - 15:14 #1
hvis p skal indeholde stien til hvor filerne gemmels skal p være før Save udføres. Så skal response.write fjernes fra save:

p=Server.MapPath("/flash/adminn")
intCount = mySmartUpload.Save(p)
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 15:22 #2
ok så er den ædnret men den skriver stadig 0 .....

KODEN til up.asp:


<H1>aspSmartUpload : Sample 1</H1> <HR> 
<% '  Variables ' Dim mySmartUpload Dim intCount         
'  Object creation '     
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") 
' upload ' mySmartUpload.Upload 

'  Save the files with their original names in a virtual path of the web server
p=Server.MapPath("/flash/adminn")
intCount = mySmartUpload.Save(p)   
' sample with a physical path   
//intCount = mySmartUpload.Save("D:\web\5er.com_kadsfd\wwwroot\flash\adminn\") 
'  Display the number of files uploaded ' 
Response.Write(intCount & " file(s) uploaded.") %> </BODY> </HTML>
<%
Response.Write Server.MapPath("/flash/adminn/")

Response.Write "<br><br>"



response.write p

%>
Avatar billede eagleeye Praktikant
22. maj 2002 - 16:05 #3
du skal vist nok kalde uplaod inden du kalder save... Jeg mener ikke save uploader data den skriver dem til filer..:

mySmartUpload.Upload
p=Server.MapPath("/flash/adminn")
intCount = mySmartUpload.Save(p)
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 16:15 #4
noper har fået en løsning nu på det......

<HTML> <BODY BGCOLOR="white"> 
<H1>aspSmartUpload : Sample 1</H1> <HR> 
<%
'  Variables ' Dim mySmartUpload Dim intCount     

Dim mySmartUpload
Dim intCount
Dim strTargetPath

strTargetPath = Server.MapPath("/flash/adminn/")

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload
intCount = mySmartUpload.Save(strTargetPath)
Response.Write(intCount & " file(s) uploaded.")

Set mySmartUpload = Nothing
Set intCount = Nothing
Set strTargetPath = Nothing

%>
</BODY>
</HTML>

DET virker heldigvis .....

Men hvordan sletter jeg filer med fso ?

Admin skal via en formular vælge hvad admin selv

vil slette jo .... ?
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 16:18 #5
Kan jeg også bruger fso til at omdøbe alle de

filer der bliver uppet ? hvordan ?
Avatar billede eagleeye Praktikant
22. maj 2002 - 16:24 #6
Ja du kan slette med FSO du kan benytte DeleteFile..

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Delete the file
objFSO.DeleteFile "C:\Foo\readme.txt", False
----

Rename en fil med FSO prøv at kikke her: http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=36
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 17:03 #7
men kan jeg ikke bruge save as image & var& .jpg i aspuploaden ?
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 17:09 #8
Det er meningen at når man uploader billeder skal den første fil der
bliver uploadet kaldes... image6.jpg HVIS det sidste billede i min image dir hedder image5.jpg og derefter skal det næste billeder hedde
image7.jpg og image8.jpg ok ? s
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 17:12 #9
<%
myUpload.files.item(2).saveas "c:\temp\" & myUpload.files.item(2).filename
myUpload.files.item(3).saveas "/docs/" & myUpload.files.item(3).filename
myUpload.files.item(4).saveas "myFile.txt"
%>
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 17:12 #10
kan jeg bruge denne ovenfor i min upload kode ?
Avatar billede eagleeye Praktikant
22. maj 2002 - 17:19 #11
så skal du ikke brug save men lave det på en lidt anden måde:

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")


mySmartUpload.Upload
strTargetPath = Server.MapPath("/flash/adminn/")
intCount = 1
i = 1
For each file In mySmartUpload.Files
  do while (objFSO.FileExist(strTargetPath & "image" & i & ".jpg")=true)
    i = i + 1
  loop
  file.SaveAs (strTargetPath & "image" & i & ".jpg")
  intCount = intCount + 1
next
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 17:26 #12
hm ok fedt nok men hvad så når jeg har

image1.jpg
image2.jpg
image3.jpg
image4.jpg
image5.jpg

vil de så ikke blive overskrevet med den løsning ?
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 17:28 #13
så skal jeg vel have et script der tæller hvor mange jpg der er i mit dit i forvejen også sætte det ind som var her
intcount=var
eller ?
Avatar billede jensen_123 Nybegynder
22. maj 2002 - 17:29 #14
http://www.solutions2all.dk/forum_spm.asp?id=916
Avatar billede eagleeye Praktikant
22. maj 2002 - 17:33 #15
dette loop:
  do while (objFSO.FileExist(strTargetPath & "image" & i & ".jpg")=true)
    i = i + 1
  loop

Skulle netop sikre ingen filer bliver overskrevet, men du kan da lige teste om det ikke er rigtigt.
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 17:34 #16
aha på den måde tester .....
Avatar billede eagleeye Praktikant
22. maj 2002 - 17:36 #17
intCount  kan du bruge til at skrive:
  ....kode....
  intCount = intCount + 1
next

'efter filerne er gemt/savet kan du udskrive
Response.write intCount & " filer gemt."
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 17:38 #18
ok den virker ikke den laver fejl ...

Microsoft VBScript runtime error '800a01a8'

Object required: 'mySmartUpload'

/flash/adminn/up.asp, line 6


Her er den nye kode til up.asp

<%

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")


mySmartUpload.Upload
strTargetPath = Server.MapPath("/flash/adminn/")
intCount = 1
i = 1
For each file In mySmartUpload.Files
  do while (objFSO.FileExist(strTargetPath & "image" & i & ".jpg")=true)
    i = i + 1
  loop
  file.SaveAs (strTargetPath & "image" & i & ".jpg")
  intCount = intCount + 1
next

%>
Avatar billede eagleeye Praktikant
22. maj 2002 - 17:42 #19
du skal beholde den gamle up.asp fil og udskift linien..

intCount = mySmartUpload.Save(strTargetPath)

Med:

strTargetPath = Server.MapPath("/flash/adminn/")
intCount = 1
i = 1
For each file In mySmartUpload.Files
  do while (objFSO.FileExist(strTargetPath & "image" & i & ".jpg")=true)
    i = i + 1
  loop
  file.SaveAs (strTargetPath & "image" & i & ".jpg")
  intCount = intCount + 1
next


---

Samt tilføje denne linie:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Det kan du gøre lige efter denne linie:
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
Avatar billede eagleeye Praktikant
22. maj 2002 - 17:44 #20
Hele filen kommer til at se ca sådan ud:


<HTML> <BODY BGCOLOR="white"> 
<H1>aspSmartUpload : Sample 1</H1> <HR> 
<%
'  Variables ' Dim mySmartUpload Dim intCount     

Dim mySmartUpload
Dim intCount
Dim strTargetPath
Dim objFSO

strTargetPath = Server.MapPath("/flash/adminn/")

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

mySmartUpload.Upload
intCount = 0
i = 1
For each file In mySmartUpload.Files
  do while (objFSO.FileExist(strTargetPath & "image" & i & ".jpg")=true)
    i = i + 1
  loop
  file.SaveAs (strTargetPath & "image" & i & ".jpg")
  intCount = intCount + 1
next
Response.Write(intCount & " file(s) uploaded.")

Set objFSO = Nothing
Set mySmartUpload = Nothing
Set intCount = Nothing
Set strTargetPath = Nothing

%>
</BODY>
</HTML>
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 17:56 #21
Hm den laver en ny fejl meld....

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'FileExist'

/flash/adminn/up.asp, line 21
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 17:57 #22
Her er hele min rettede KODE:

up.asp



<HTML> <BODY BGCOLOR="white"> 
<H1>aspSmartUpload : Sample 1</H1> <HR> 
<%
'  Variables ' Dim mySmartUpload Dim intCount     

Dim mySmartUpload
Dim intCount
Dim strTargetPath
Dim objFSO

strTargetPath = Server.MapPath("/flash/adminn/")

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

mySmartUpload.Upload
intCount = 0
i = 1
For each file In mySmartUpload.Files
  do while (objFSO.FileExist(strTargetPath & "image" & i & ".jpg")=true)
    i = i + 1
  loop
  file.SaveAs (strTargetPath & "image" & i & ".jpg")
  intCount = intCount + 1
next
Response.Write(intCount & " file(s) uploaded.")

Set objFSO = Nothing
Set mySmartUpload = Nothing
Set intCount = Nothing
Set strTargetPath = Nothing

%>
</BODY>
</HTML>
Avatar billede eagleeye Praktikant
22. maj 2002 - 18:00 #23
hmm det skal være FileExists der mangler et s ...:

do while (objFSO.FileExists(strTargetPath & "image" & i & ".jpg")=true)
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 18:08 #24
ok underligt resultat....

når jeg upper 1 upper den 5 skriver den

og den lægger dem ikke i mit flash/adminn dir men i min

/flash dir den kalder ikke billedet image.... men adminnimage1
Avatar billede eagleeye Praktikant
22. maj 2002 - 18:20 #25
hmm så skal der nok en / ind to steder:

  do while (objFSO.FileExist(strTargetPath & "/image" & i & ".jpg")=true)
    i = i + 1
  loop
  file.SaveAs (strTargetPath & "/image" & i & ".jpg")


du skulle vel ikke havde 5 form felter?
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 18:20 #26
jeg har 5 form felter men uppede kun 1 s
Avatar billede eagleeye Praktikant
22. maj 2002 - 18:21 #27
du kan vist til føje denne if:
If not file.IsMissing Then

Sådan her:


For each file In mySmartUpload.Files
If not file.IsMissing Then
  do while (objFSO.FileExist(strTargetPath & "/image" & i & ".jpg")=true)
    i = i + 1
  loop
  file.SaveAs (strTargetPath & "/image" & i & ".jpg")
  intCount = intCount + 1
end if
next
Response.Write(intCount & " file(s) uploaded.")
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 18:25 #28
ok så den vil ikke godtage det .....

Send mig lige hele KODEN inkl dine ændringer ? s

Server.MapPath() error 'ASP 0172 : 80004005'

Invalid Path

/flash/adminn/up.asp, line 24

The Path parameter for the MapPath method must be a virtual path. A physical path was used.
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 18:27 #29
Her er hele min KODE igen:


<HTML> <BODY BGCOLOR="white"> 
<H1>aspSmartUpload : Sample 1</H1> <HR> 
<%
'  Variables ' Dim mySmartUpload Dim intCount     

Dim mySmartUpload
Dim intCount
Dim strTargetPath
Dim objFSO

strTargetPath = Server.MapPath("/flash/adminn/")

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

mySmartUpload.Upload
intCount = 0
i = 1
For each file In mySmartUpload.Files
do while (objFSO.FileExists(strTargetPath & "/image" & i & ".jpg")=true)
    i = i + 1
  loop
  file.SaveAs (strTargetPath & "/image" & i & ".jpg")

  intCount = intCount + 1
next
Response.Write(intCount & " file(s) uploaded.")

Set objFSO = Nothing
Set mySmartUpload = Nothing
Set intCount = Nothing
Set strTargetPath = Nothing

%>
</BODY>
</HTML>
Avatar billede eagleeye Praktikant
22. maj 2002 - 19:05 #30
Så prøv med:


<HTML> <BODY BGCOLOR="white"> 
<H1>aspSmartUpload : Sample 1</H1> <HR> 
<%
'  Variables ' Dim mySmartUpload Dim intCount     

Dim mySmartUpload
Dim intCount
Dim strTargetPath
Dim objFSO

strTargetPath = "/flash/adminn/"

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

mySmartUpload.Upload
intCount = 0
i = 1
For each file In mySmartUpload.Files
do while (objFSO.FileExists(server.mapth(strTargetPath) & "/image" & i & ".jpg")=true)
    i = i + 1
  loop
  file.SaveAs (Server.MapPath(strTargetPath & "/image" & i & ".jpg"))

  intCount = intCount + 1
next
Response.Write(intCount & " file(s) uploaded.")

Set objFSO = Nothing
Set mySmartUpload = Nothing
Set intCount = Nothing
Set strTargetPath = Nothing

%>
</BODY>
</HTML>
Avatar billede eagleeye Praktikant
22. maj 2002 - 19:06 #31
file.SaveAs (Server.MapPath(strTargetPath & "/image" & i & ".jpg"))

skal nok være:
file.SaveAs (Server.MapPath(strTargetPath & "image" & i & ".jpg"))
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 19:24 #32
ok nu er der ingen fejl men ...

når jeg upper 1 fil skriver den der er uppet 5 og

laver også 5 filer som jo må være kopier af den ene

jeg uppede ?
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 19:26 #33
Hvordan kan det være ?

filnavnene er ok nu .....

KODEN:

<HTML> <BODY BGCOLOR="white"> 
<H1>aspSmartUpload : Sample 1</H1> <HR> 
<%
'  Variables ' Dim mySmartUpload Dim intCount     

Dim mySmartUpload
Dim intCount
Dim strTargetPath
Dim objFSO

strTargetPath = "/flash/adminn/"

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

mySmartUpload.Upload
intCount = 0
i = 1
For each file In mySmartUpload.Files
do while (objFSO.FileExists(server.mappath(strTargetPath) & "/image" & i & ".jpg")=true)
    i = i + 1
  loop
file.SaveAs (Server.MapPath(strTargetPath & "image" & i & ".jpg"))

  intCount = intCount + 1
next
Response.Write(intCount & " file(s) uploaded.")

Set objFSO = Nothing
Set mySmartUpload = Nothing
Set intCount = Nothing
Set strTargetPath = Nothing

%>
</BODY>
</HTML>
Avatar billede eagleeye Praktikant
22. maj 2002 - 19:26 #34
prøvede du med denne if , inde i loopet ?
If not file.IsMissing Then


For each file In mySmartUpload.Files
If not file.IsMissing Then
  do while (objFSO.FileExists(server.mapth(strTargetPath) & "/image" & i & ".jpg")=true)
    i = i + 1
  loop
  file.SaveAs (Server.MapPath(strTargetPath & "/image" & i & ".jpg"))

  intCount = intCount + 1
end if
next
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 19:58 #35
nej det gjorde jeg ikke men prøv at skrive loopet

ovenfor sammen med min kode i en kode ok ?
Avatar billede eagleeye Praktikant
22. maj 2002 - 20:00 #36
<HTML> <BODY BGCOLOR="white"> 
<H1>aspSmartUpload : Sample 1</H1> <HR> 
<%
'  Variables ' Dim mySmartUpload Dim intCount     

Dim mySmartUpload
Dim intCount
Dim strTargetPath
Dim objFSO

strTargetPath = "/flash/adminn/"

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

mySmartUpload.Upload
intCount = 0
i = 1
For each file In mySmartUpload.Files
If not file.IsMissing Then
  do while (objFSO.FileExists(server.mappath(strTargetPath) & "/image" & i & ".jpg")=true)
    i = i + 1
  loop
file.SaveAs (Server.MapPath(strTargetPath & "image" & i & ".jpg"))

  intCount = intCount + 1
end if
next
Response.Write(intCount & " file(s) uploaded.")

Set objFSO = Nothing
Set mySmartUpload = Nothing
Set intCount = Nothing
Set strTargetPath = Nothing

%>
</BODY>
</HTML>
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 20:51 #37
ok fedt så virker det.....

kan du hjælpe mig med hvordan man

laver en løkke i mit image dir og viser alle

billederne med en tjek box ved hvert ....

når man tjekker i tjek boxen og trykker på

slet i bunden bliver de tjekkede billeder slettede

så kan jeg give dig 15 også opretter jeg dette

tjek box spm som et nyt ok ?
Avatar billede iceb1977 Nybegynder
22. maj 2002 - 20:52 #38
ok jeg kalder det slet markerede filer

ok ? s

lukker dette ned nu tak tak
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 17:19 Kender I "Dropbox" ? Af Ikke-ekspert i Andet software
I dag 16:28 Indsæt en kort video i Outlook 2024 Af ErikHg i E-mail programmer
I går 19:20 Hvor kan man finde en god bærbar computer? Af Strawberry i PC
I går 15:45 lukke sikkerhedshuller Af Asky i PHP
21/1018:38 Værktøj til redigering af hjemmeside på android tablet Af Lisbet 80 i Apps til Android
White papers
Flere white papers »