Notifikationer

Markér alle som læst Log ud

iceb1977 Nybegynder

24. maj 2002 - 22:39 Der er 50 kommentarer og
1 løsning

Sktiv uploadede filer til skærmen ?

Hej

Har fået lavet et script der uploader filer og

omdøber dem .....

Det udskriver hvor meget man uploader men ikke

hvilke filer .... hvordan gør jeg det ?

Her er min ....

KODE

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>

<%

response.write Server.Mappath("/flash/adminn/")

%>

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 = "/flash/"

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>

Synes godt om

eagleeye Praktikant

24. maj 2002 - 22:56 #1

Prøv evt at kikke på dette eks: http://www.hostingsolutions.it/helpdesk/aspSmartUpload/Sample2.asp

Du kan udskriver dette omkring hver fil:

' Display the properties of the current file
' ******************************************
Response.Write("Name = " & file.Name & "<BR>")
Response.Write("Size = " & file.Size & "<BR>")
Response.Write("FileName = " & file.FileName & "<BR>")
Response.Write("FileExt = " & file.FileExt & "<BR>")
Response.Write("FilePathName = " & file.FilePathName & "<BR>")
Response.Write("ContentType = " & file.ContentType & "<BR>")
Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")

Synes godt om

eagleeye Praktikant

24. maj 2002 - 22:57 #2

du kan putte det ind i din up.asp på denne måde:

<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/"

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"))

' Display the properties of the current file
' ******************************************
Response.Write("Name = " & file.Name & "<BR>")
Response.Write("Size = " & file.Size & "<BR>")
Response.Write("FileName = " & file.FileName & "<BR>")
Response.Write("FileExt = " & file.FileExt & "<BR>")
Response.Write("FilePathName = " & file.FilePathName & "<BR>")
Response.Write("ContentType = " & file.ContentType & "<BR>")
Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")

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>

Synes godt om

iceb1977 Nybegynder

24. maj 2002 - 23:21 #3

hm ok prøver .....

er det et eks du selv har lavet eller er hvor

har du fundet det ?

Synes godt om

iceb1977 Nybegynder

24. maj 2002 - 23:22 #4

upss du fandt det på nettet så ?

Synes godt om

iceb1977 Nybegynder

24. maj 2002 - 23:29 #5

det er meningen at hver gang man upper et billede

skal man uppe en zip fil som skal hedde det

samme som jpg billedet kommer til at hedde kan man

flette det ind i min kode og hvordan ?

Synes godt om

iceb1977 Nybegynder

24. maj 2002 - 23:37 #6

dvs når man upper et billede og gemmer det som

image3.jpg så upper man samtidig en zip som gemmes

som image3.zip ok ?

Synes godt om

eagleeye Praktikant

24. maj 2002 - 23:48 #7

Det kræver man vælger zip filen blandt de filer man skal uploade.. Jeg tror ikke bare lige man kan vælge at uploade en tilfældig fil uden en bruger har valgt det...

Synes godt om

iceb1977 Nybegynder

24. maj 2002 - 23:50 #8

nej det jeg mener er at man fortæller brugeren at for hver jpg fil

du uploader skal du uppe EN zip fil ok ?

Synes godt om

iceb1977 Nybegynder

24. maj 2002 - 23:52 #9

dvs brugeren upper EN jpg fil og upper så OGSÅ på samme

tid EN zip fil og hvis brugeren upper TO jpg filer

upper brugeren også TO zip filer ok ?

Synes godt om

eagleeye Praktikant

25. maj 2002 - 00:08 #10

du har 5 file input så hvis file1 = .jpg så er file2 = .zip???

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 00:11 #11

ja man kunne lave 6 sådan at man kan sige

file1= .jpg
file2= .zip
file3= .jpg
file4= .zip
file5= .jpg
file6= .zip

ok ?

Synes godt om

eagleeye Praktikant

25. maj 2002 - 00:11 #12

for så kan du prøve at rode lidt med:

For each file In mySmartUpload.Files
If not file.IsMissing Then
if LCase(file.FileExt) = "zip" then
file.SaveAs (Server.MapPath(strTargetPath & "image" & i & ".zip"))
else
do while (objFSO.FileExists(server.mappath(strTargetPath) & "/image" & i & ".jpg")=true)
i = i + 1
loop
file.SaveAs (Server.MapPath(strTargetPath & "image" & i & ".jpg"))
end if
intCount = intCount + 1
end if
next

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 00:42 #13

ok nu har jeg tilføjet et ekstra felt som hedder file6

men jeg får fejl i up.asp .....

FEJL;

aspSmartUpload error '800a01c9'

This key is already associated with an element of this collection

/flash/adminn/up.asp, line 16

KODE:

<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/"

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
if LCase(file.FileExt) = "zip" then
file.SaveAs (Server.MapPath(strTargetPath & "image" & i & ".zip"))
else
do while (objFSO.FileExists(server.mappath(strTargetPath) & "/image" & i & ".jpg")=true)
i = i + 1
loop
file.SaveAs (Server.MapPath(strTargetPath & "image" & i & ".jpg"))
end if
' Display the properties of the current file
' ******************************************
Response.Write("Name = " & file.Name & "<BR>")
Response.Write("Size = " & file.Size & "<BR>")
Response.Write("FileName = " & file.FileName & "<BR>")
Response.Write("FileExt = " & file.FileExt & "<BR>")
Response.Write("FilePathName = " & file.FilePathName & "<BR>")
Response.Write("ContentType = " & file.ContentType & "<BR>")
Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")

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>

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 00:46 #14

nej det var min fejl kom til at lave 7 felter i alt i stedet for 6..

fjernede det ene og nu virker det ...

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 00:48 #15

kan jeg så med fso udskrive navnene på de filer som er blevet gemt

efter der er blevet uppet .....

for nu får jeg kun navnene på hvad de hedder før der blever gemt ik ?

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 00:55 #16

før de bliver gemt ik mener jeg ?

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 01:01 #17

<%
'***************** DateCreated
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObject = fso.GetFile(Server.MapPath("\chris\") & "\myfile.txt")

Response.Write fileObject.DateCreated

Set fileObject = Nothing
Set fso = Nothing

' Output:
' 11/07/2000 15:50:46
%>

hm kan man ikke bruge denne til at udskrive KUN de filer der lige

er blevet gemt ?

Synes godt om

eagleeye Praktikant

25. maj 2002 - 10:02 #18

Øv jeg troede den var smart at ændre til det nye navn..

Så prøv at lave disse linier om...:
if LCase(file.FileExt) = "zip" then
file.SaveAs (Server.MapPath(strTargetPath & "image" & i & ".zip"))
else
do while (objFSO.FileExists(server.mappath(strTargetPath) & "/image" & i & ".jpg")=true)
i = i + 1
loop
file.SaveAs (Server.MapPath(strTargetPath & "image" & i & ".jpg"))
end if

OK til:
if LCase(file.FileExt) = "zip" then
newFileName = "image" & i & ".zip"
else
do while (objFSO.FileExists(server.mappath(strTargetPath) & "/image" & i & ".jpg")=true)
i = i + 1
loop
newFileName = "image" & i & ".jpg"
end if
file.SaveAs (Server.MapPath(strTargetPath & newFileName))
Response.write "New file name : " & newFileName & "<br>"

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 10:41 #19

øhm er ikke lige med jeg lægger lige hele up.asp så du kan putte

dine ændringer ind ok ?

<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/"

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
if LCase(file.FileExt) = "zip" then
file.SaveAs (Server.MapPath(strTargetPath & "image" & i & ".zip"))
else
do while (objFSO.FileExists(server.mappath(strTargetPath) & "/image" & i & ".jpg")=true)
i = i + 1
loop
file.SaveAs (Server.MapPath(strTargetPath & "image" & i & ".jpg"))
end if
' Display the properties of the current file
' ******************************************
Response.Write("Name = " & file.Name & "<BR>")
Response.Write("Size = " & file.Size & "<BR>")
Response.Write("FileName = " & file.FileName & "<BR>")
Response.Write("FileExt = " & file.FileExt & "<BR>")
Response.Write("FilePathName = " & file.FilePathName & "<BR>")
Response.Write("ContentType = " & file.ContentType & "<BR>")
Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")

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>

Synes godt om

eagleeye Praktikant

25. maj 2002 - 10:51 #20

<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/"

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
if LCase(file.FileExt) = "zip" then
newFileName = "image" & i & ".zip"
else
do while (objFSO.FileExists(server.mappath(strTargetPath) & "/image" & i & ".jpg")=true)
i = i + 1
loop
newFileName = "image" & i & ".jpg"
end if
file.SaveAs (Server.MapPath(strTargetPath & newFileName))
Response.write "New file name : " & newFileName & "<br>"
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>

Synes godt om

eagleeye Praktikant

25. maj 2002 - 10:55 #21

hvis du vil havde flere data må du bruger filesystemoject:

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

Dim mySmartUpload
Dim intCount
Dim strTargetPath
Dim objFSO
Dim objFile

strTargetPath = "/flash/"

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
if LCase(file.FileExt) = "zip" then
newFileName = "image" & i & ".zip"
else
do while (objFSO.FileExists(server.mappath(strTargetPath) & "/image" & i & ".jpg")=true)
i = i + 1
loop
newFileName = "image" & i & ".jpg"
end if
file.SaveAs (Server.MapPath(strTargetPath & newFileName))

Set objFile = objFSO.GetFile(Server.MapPath(strTargetPath & newFileName))
Response.Write "FileName: " & objFile.Name & "<br>"
Response.Write "Size: " & objFile.Size & "<br>"

' Response.write "New file name : " & newFileName & "<br>"
intCount = intCount + 1
end if
next
Response.Write(intCount & " file(s) uploaded.")

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

%>
</BODY>
</HTML>

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 11:14 #22

ok tak så virker det også .....

jeg vil gerne skrive disse nye filer til min db altså EKS:

en bruger upper 2 filer

de bliver kaldt image6.jpg og image6.zip

derefter skrives deres navne til dben ......

image6.jpg skriver som nyt rs i kolonnen billedfil og
image6.zip skrives i samme nye række i kolonnén produktfil
desuden skal der være en formular på admin.asp der også har nogle
formularfelter der ligeledes indholder bruger indtastet date som også
skrives til tabellen også i den nye række.....

jeg kan godt finde ud af at tage indholdet fra formularfelterne

og putte det i dben men hvad med de nye filer skal jeg så skrive

din var newfilename til min db eller er der en endnu nemmere måde ?

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 11:15 #23

ja der skal stå brugerindtastet data ok ? ikke date ....

Synes godt om

eagleeye Praktikant

25. maj 2002 - 11:54 #24

Eftersom man kun får en fil af gangen må det lave i stil med dette. Du skal havde sat kolonnerne så de kan tillade null længde..

<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/"

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
if LCase(file.FileExt) = "zip" then
newFileName = "image" & i & ".zip"
strSQL = "UPDATE xxx SET produktfil = '" & newFileName & "' WHERE billedfil = '" & imgFile &"'"
connection.execute (strSQL)
else
do while (objFSO.FileExists(server.mappath(strTargetPath) & "/image" & i & ".jpg")=true)
i = i + 1
loop
newFileName = "image" & i & ".jpg"
imgFile = newFileName
strSQL = "INSERT INTO xxx (billedfil) VALUES ('" & imgFile &"')"
'Du skal lave en connection til din db som kan bruge til sql.
connection.execute (strSQL)
end if
file.SaveAs (Server.MapPath(strTargetPath & newFileName))
Response.write "New file name : " & newFileName & "<br>"
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>

du skal rettte xxx til dit tabel navn samt ligge lave en connection (connection) til din database.

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 12:07 #25

hvorfor null længde ? jeg får jo brugeren til at uppe både en zip og

en jpg hver gange ? .....

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 12:20 #26

mit andet modul skal ikke indeholde zip filer så hvordan ville

hele koden se ud hvis man tog det med zipfilerne ud ?

Synes godt om

eagleeye Praktikant

25. maj 2002 - 12:47 #27

fordi man tager en fil af gangen.. Men hvis man altid har både en zip fil og en jpg fil kan gøre sådan:

<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/"

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
if LCase(file.FileExt) = "zip" then
newFileName = "image" & i & ".zip"
strSQL = "INSERT INTO xxx (billedfil,produktfil) VALUES ('" & imgFile &"', '" & newFileName & "')"
'Du skal lave en connection til din db som kan bruge til sql.
connection.execute (strSQL)

connection.execute (strSQL)
else
do while (objFSO.FileExists(server.mappath(strTargetPath) & "/image" & i & ".jpg")=true)
i = i + 1
loop
newFileName = "image" & i & ".jpg"
imgFile = newFileName
end if
file.SaveAs (Server.MapPath(strTargetPath & newFileName))
Response.write "New file name : " & newFileName & "<br>"
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>

Synes godt om

eagleeye Praktikant

25. maj 2002 - 12:47 #28

how der skal kun være en linie med :
connection.execute (strSQL)

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 13:50 #29

hm ok godt tester lige med dben .....

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 13:59 #30

ok har et foreløbigt eksempel ....

dog skal der ikke være zip med jo ? heller ikke i insert statement ok ?

<HTML> <BODY BGCOLOR="white">
<H1>aspSmartUpload : Sample 1</H1> <HR>
<%

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb")
Conn.Open DSN

' SQL forespørgsel

' Udfør forespørgsel (rs indeholder nu resultatet)

' Variables ' Dim mySmartUpload Dim intCount

Dim mySmartUpload
Dim intCount
Dim strTargetPath
Dim objFSO

strTargetPath = "/flash/"

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
if LCase(file.FileExt) = "zip" then
newFileName = "image" & i & ".zip"
strSQL = "INSERT INTO ehandel (produktnavn, produktbeskrivelse, produktpris, produktbilledfil,) VALUES ('" & imgFile &"', '" & newFileName & "')"
'Du skal lave en connection til din db som kan bruge til sql.

connection.execute (strSQL)
else
do while (objFSO.FileExists(server.mappath(strTargetPath) & "/image" & i & ".jpg")=true)
i = i + 1
loop
newFileName = "image" & i & ".jpg"
imgFile = newFileName
end if
file.SaveAs (Server.MapPath(strTargetPath & newFileName))
Response.write "New file name : " & newFileName & "<br>"
intCount = intCount + 1
end if
next
Response.Write(intCount & " file(s) uploaded.")

' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

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

%>
</BODY>
</HTML>

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 14:06 #31

så har jeg rettet den ....

ser det ok ud ?

<HTML> <BODY BGCOLOR="white">
<H1>aspSmartUpload : Sample 1</H1> <HR>
<%

Dim prona

prona=(request.form("prona"))

Dim probe

prona=(request.form("probe"))

Dim propri

prona=(request.form("propri"))

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb")
Conn.Open DSN

' SQL forespørgsel

' Udfør forespørgsel (rs indeholder nu resultatet)

' Variables ' Dim mySmartUpload Dim intCount

Dim mySmartUpload
Dim intCount
Dim strTargetPath
Dim objFSO

strTargetPath = "/flash/"

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
if LCase(file.FileExt) = "zip" then
newFileName = "image" & i & ".zip"
strSQL = "INSERT INTO ehandel (produktnavn, produktbeskrivelse, produktpris, produktbilledfil,) VALUES ('" & prona &"','" & probe &"'," & propri &",'" & imgFile &"')"
'Du skal lave en connection til din db som kan bruge til sql.

connection.execute (strSQL)
else
do while (objFSO.FileExists(server.mappath(strTargetPath) & "/image" & i & ".jpg")=true)
i = i + 1
loop
newFileName = "image" & i & ".jpg"
imgFile = newFileName
end if
file.SaveAs (Server.MapPath(strTargetPath & newFileName))
Response.write "New file name : " & newFileName & "<br>"
intCount = intCount + 1
end if
next
Response.Write(intCount & " file(s) uploaded.")

' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

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

%>
</BODY>
</HTML>

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 14:06 #32

så ska jeg bare sætte de 3 formdelter ind på admin.asp hvor fil

felterne også er ik ?

Synes godt om

eagleeye Praktikant

25. maj 2002 - 14:17 #33

skal de 3 form felter gemmen på samme tid som billederne?? for så er det en anden opgave.... man kan ikke umidelbart både havde filer og text feler i samme form .. man kan ikke bare bruge request.form("xxxx") Se evt her (http://www.eksperten.dk/spm/212555) et eks hvor der både er text felter + et upload billede..

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 14:17 #34

jeg skal ikke have zip filer med jo så skal jeg vel heller ikke

have dette med ?

if LCase(file.FileExt) = "zip" then
newFileName = "image" & i & ".zip"

Synes godt om

eagleeye Praktikant

25. maj 2002 - 14:19 #35

det er muligt det kan laves smartere med aspSmartUpload med det kender jeg ikke lige til.

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 14:20 #36

nej det skal være til aspsmartupload og ikke persits som i eksemplet

så må man vel oprette det af 2 gange først formen med brugerindtastede felter også ikke sætte en værdi på billedfilfeltet
også bagefter bruge update til at få indtastet billedfilfeltet ?

Synes godt om

eagleeye Praktikant

25. maj 2002 - 14:21 #37

Det er jo for at uploade zip-filer..

Faldt lige over dette eks: http://www.4cheaphosting.net/html/aspsmartupload_support.html

Synes godt om

eagleeye Praktikant

25. maj 2002 - 14:23 #38

lav disse om:

Dim prona
prona=(request.form("prona"))

Dim probe
prona=(request.form("probe"))

Dim propri
prona=(request.form("propri"))

TIL:
prona = mySmartUpload.form("prona")
probe = mySmartUpload.form("probe")
propri = mySmartUpload.form("propri")

Og indsæt det efet denne linie:
mySmartUpload.Upload

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 14:24 #39

kan man ikke gøre det også bruge 2 submit knapper ?

kig her :

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

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 14:26 #40

øhm så man KAN altså godt bruge formfelter ?

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 14:27 #41

eller 3 form felter SAMMEN med filfeltet og submitte det til

samme script up.asp ?

Synes godt om

eagleeye Praktikant

25. maj 2002 - 14:28 #42

ja det kan man godt..

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 14:31 #43

ok godt nok ændrer lige på min html så du kan se den så bagefter...

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

kan du lige skrive hele koden der submitter alle 3 formfelter

inkl fil feltet og skriver det til min db i tabellen ehandel ?

Synes godt om

eagleeye Praktikant

25. maj 2002 - 14:54 #44

æhh nu skal du ikke havde en zip?
Det starter med skriv filnavn til skærmen, så til database nu skal der og flere form felter med...

Synes godt om

eagleeye Praktikant

25. maj 2002 - 15:08 #45

Jeg vil skrive koden, som passer til den admin.asp (fra kommentar 25/05-2002 14:31:57) som jeg tror den skal laves. Du må også selv rette lidt til:

<HTML> <BODY BGCOLOR="white">
<H1>aspSmartUpload : Sample 1</H1> <HR>
<%

Dim prona
Dim probe
Dim propri
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb")
Conn.Open DSN

Dim mySmartUpload
Dim intCount
Dim strTargetPath
Dim objFSO

strTargetPath = "/flash/"

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

mySmartUpload.Upload
prona = mySmartUpload.form("prona")
probe = mySmartUpload.form("probe")
propri = mySmartUpload.form("propri")
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
newFileName = "image" & i & ".jpg"
file.SaveAs (Server.MapPath(strTargetPath & newFileName))

strSQL = "INSERT INTO ehandel (produktnavn, produktbeskrivelse, produktpris, produktbilledfil,) VALUES ('" & prona &"','" & probe &"'," & propri &",'" & newFileName &"')"

connection.execute (strSQL)
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>

Synes godt om

eagleeye Praktikant

25. maj 2002 - 15:10 #46

lige en hurtig .. connection.execute (strSQL) rettes til conn.execute (strSQL)

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 15:18 #47

ja det er fordi jeg har 2 en til zip og jpg

og en KUN til jpg .....

prøver lige din kode og vender tilbage s

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 15:29 #48

ok jeg fik fejlen .....

syntax error in insert statement....

så udskriver jeg her sqlen ......

INSERT INTO ehandel (produktnavn, produktbeskrivelse, produktpris, produktbilledfil) VALUES ('','',,'image10.jpg')

som du kan se mangler de 3 form felter så dermed

må fejlen ligge på admin.asp ik ?

Her er koden ....

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>Information : Indtast informationerne i felterne</H1>

<FORM METHOD="POST" ACTION="up1.asp" ENCTYPE="multipart/form-data"><br><br>

Skriv produktnavnet<br>
<input type=text name="prodna"><br><br>

Skriv produktbeskrivelsen<br>
<input type=text name="prodbe"><br><br>

Skriv produktprisen<br>
<input type=text name="prodpri"><br><br>

<H1>Upload : Læg produkbillederne op her</H1> <br>

find billedfilen nedenfor <br>
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR><br>

<BR> <INPUT TYPE="SUBMIT" VALUE="Upload"> </FORM> </BODY> </HTML>

Synes godt om

eagleeye Praktikant

25. maj 2002 - 15:46 #49

Ar din input felter heddder noget andte end det jeg skrev ...

Ret disse 3 linier:
prona = mySmartUpload.form("prona")
probe = mySmartUpload.form("probe")
propri = mySmartUpload.form("propri")

Til:
prona = mySmartUpload.form("prodna")
probe = mySmartUpload.form("prodbe")
propri = mySmartUpload.form("prodpri")

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 15:47 #50

præcist får jeg fejlen ....

hvad er der galt her ?

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/flash/adminn/up1.asp, line 46

Synes godt om

iceb1977 Nybegynder

25. maj 2002 - 16:05 #51

ok fedt nok så virker den også ......

tak for hjælpen lukker ned nu ....

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS