Avatar billede uneerup Nybegynder
02. november 2005 - 13:52 Der er 5 kommentarer og
1 løsning

Upload af både tekst og fil

Hej Alle, jeg ved godt at dette spørgsmål har været oppe flere gange, men jeg har simpelthen stirret mig blind på dette script, håber der er nogle der kan hjælpe.

Det vil godt ligge filen op, men alle teksterne bliver ikke lagt ind i databasen. Der bliver dog oprettet et RS. Her er koden:

<!--#include file="../includes/dsn_admin.asp"-->
<%
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
set navn=mySmartUpload.Form("navn")
set width=mySmartUpload.Form("width")
set height=mySmartUpload.Form("height")
set border=mySmartUpload.Form("border")
set link=mySmartUpload.Form("link")

mySmartUpLoad.TotalMaxFileSize = 1000000
mySmartUpLoad.MaxFileSize = 500000
mySmartUpLoad.AllowedFilesList = "gif,jpg"
mySmartUpLoad.DeniedFilesList = ",,bat,exe,com,asp,js,php,htm,html"

mySmartUpload.Upload

For each file In mySmartUpload.Files
    If not file.IsMissing Then
          file.SaveAs("filer/" & session("userID") & "_" & file.Filename)
          filnavn=session("userID") & "_" & file.Filename
    End If
Next

sql = "INSERT INTO banner (navn, width, height, border, link, kundeID) values('" & navn & "', '" & width & "', '" & height & "', '" & border & "', '" & link & "', '" & session("userID") & "')"
Conn.execute(sql)
Conn.close
set Conn = nothing

Response.Redirect("opretbanner.asp")

%>
Avatar billede erikjacobsen Ekspert
02. november 2005 - 13:57 #1
ret
set navn=mySmartUpload.Form("navn")
til
navn=mySmartUpload.Form("navn")
Avatar billede uneerup Nybegynder
02. november 2005 - 14:01 #2
Den indsætter stadig et tom RS

her er koden

<!--#include file="../includes/dsn_admin.asp"-->
<%
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
navn=mySmartUpload.Form("navn")
width=mySmartUpload.Form("width")
height=mySmartUpload.Form("height")
border=mySmartUpload.Form("border")
link=mySmartUpload.Form("link")

mySmartUpLoad.TotalMaxFileSize = 1000000
mySmartUpLoad.MaxFileSize = 500000
mySmartUpLoad.AllowedFilesList = "gif,jpg"
mySmartUpLoad.DeniedFilesList = ",,bat,exe,com,asp,js,php,htm,html"

mySmartUpload.Upload

For each file In mySmartUpload.Files
    If not file.IsMissing Then
          file.SaveAs("filer/" & session("userID") & "_" & file.Filename)
          filnavn=session("userID") & "_" & file.Filename
    End If
Next

sql = "INSERT INTO banner (navn, width, height, border, link, kundeID) values('" & navn & "', '" & width & "', '" & height & "', '" & border & "', '" & link & "', '" & session("userID") & "')"
Conn.execute(sql)
Conn.close
set Conn = nothing

Response.Redirect("opretbanner.asp")

%>
Avatar billede erikjacobsen Ekspert
02. november 2005 - 14:06 #3
...og aflæs dem efter mySmartUpload.Upload
Avatar billede uneerup Nybegynder
02. november 2005 - 14:09 #4
super duper dingo dong det virker :-) smid et svar

TAK FOR HJÆLPEN
Avatar billede erikjacobsen Ekspert
02. november 2005 - 14:13 #5
Nej tak, jeg samler slet ikke på point. Svar selv, accepter eget svar.
Avatar billede uneerup Nybegynder
22. juni 2006 - 22:50 #6
svar
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
Kurser inden for grundlæggende programmering

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