Jajjamensan, Jag har sökt ;)
Och nej, jag blev inte klokare för det :e
Och ja, har kollat på dokumenteringen för AspSmartUpload, annars hade jag aldrig lyckats komma så här långt ;)
Jag har 5 uploads (10 formulär) som skickar till dokumentet. (som ni kommer se i mitt kodexempel nedan :))
Jag vill att för varje upload som är 'aktiv' dvs inte tomt fält, utan en riktig upload, skall det "insertas" en post i databasen.
Jag vill för varje post som skapats döpa filen till till kolumen "ID" som är av autonumber i databasen.
sen vill jag spara filnamnet i en kolumn i databasen tillsammans med information angående bilden, som postas i ett vanligt textformulär. Men jag vet inte vad jag ska döpa textfälten till?
Sen har jag för övrigt inte en aning om hur hela fridens namn resten utav ASP koden skall se ut
Skulle vilja ha hjälp och utforma scriptet, fast dock klarar jag av att skriva SQL satserna själv :) Så det räcker men att ni skriver
' SQL lägga till en post i databasen
Eller något liknande
Om ni har uppfattningssvårigheter, av det jag har skrivit, Then let me know, så försöker jag förklara bättre :)
<%
Dim mySmartUpload
Dim intCount
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.AllowedFilesList = "jpg,jpeg"
mySmartUpload.Upload
intCount = mySmartUpload.Save("f:\inetpub\wwwroot\status\upload")
Response.Write(intCount & " file(s) uploaded.")
%>
10-4 over and out
edit:/ tog bort sista delen, löste det på egen hand :e
I stora drag, det viktigaste jag behöver veta är hur man 'sejvar' bilden med eget filnamn dock med samma filändelse :) resten kan jag joxxa o trixa med och återkomma när jag kör fast :)
Den här koden använder jag mig av när jag vill sätta eget filnamn, den går igenom alla inputfält av typen file och i koden kan du sätta eget namn genom att byta ut variabeln namn till det du vill ha. I loopen kan du även ha dina SQL-satser...
For each file In mySmartUpload.Files
If not file.IsMissing Then
' Spara fil om allt är OK
Filename = namn & "." & file.FileExt
file.SaveAs("/upload/" & Filename)
End If
Next
Den här koden använder jag mig av när jag vill sätta eget filnamn, den går igenom alla inputfält av typen file och i koden kan du sätta eget namn genom att byta ut variabeln namn till det du vill ha. I loopen kan du även ha dina SQL-satser...
For each file In mySmartUpload.Files
If not file.IsMissing Then
' Spara fil om allt är OK
Filename = namn & "." & file.FileExt
file.SaveAs("/upload/" & Filename)
End If
Next
Tyvärr :l så samma felmeddelande. "Unable to save file (Error 1120)"
Here we go again!
5 upload formulär
5 text fält (innehållande kommentar till bilden)
Dvs varje FILE formulär ska ha ett TEXT formulär så man kan skriva kommentar till bilden, men hur ska man få det att fungera tillsammans med koden som jag gjort hittills.
<!--#include file="sessioncontrol.asp" -->
<!--#include file="databaseconnection.asp" -->
<%
Dim mySmartUpload
Dim intCount
strAuthor = session("username")
strUploaded = now()
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.AllowedFilesList = "jpg,jpeg"
mySmartUpload.Upload
For each file In mySmartUpload.Files
If not file.IsMissing Then
strSQL="INSERT INTO tblPhotoalbum (author, uploaded) VALUES ('"& strAuthor &"' , '"& strUploaded &"')"
conn.execute(strSQL)
set rs = Conn.execute( "select last_insert_id()")
id = rs(0)
Filename = id & "." & file.FileExt
file.SaveAs("/upload/" & Filename)
End If
Next
%>
Det går frammåt :)
jag har nu lyckats på ett eller annat sätt få användaren att endast ladda upp för 2 Mb totalt i sin mapp :)
Vilken i sig är skit bra tycker jag ;) Lyckats tack vare er :)
Om man laddar upp en fil och det totalt blir mer än 2 Mb så får jag ett felmeddelande :) vilket gör att allt är precis i sin ordning!
Men jag vill skippa det här felmeddelandet, och ALLA andra felmeddelanden som t.ex "Åtgärden ej tillåten" när man försöker ladda upp annat än jpg/jpeg format. jag vill istället bara skiva
(response.write "något gick fel") men hur vet jag inte!
aspSmartUpload.File fel '80040451'
Size exceeded for this file : 'C:\Documents and Settings\Manne1\Desktop\62b81017cbbfef3358be961b7adeaa03.jpg' (Error 1105)
/status/do_upload.asp, rad 25
[red]
<!--#include file="sessioncontrol.asp" -->
<!--#include file="databaseconnection.asp" -->
<%
Dim mySmartUpload
Dim intCount
strAuthor = session("username")
strUploaded = now()
strSQL = "SELECT diskspace FROM tblUser WHERE username = '"& strAuthor &"'"
SET RSdisk = Conn.execute(strSQL)
Dim filesys, folder, foldersize
Set filesys = CreateObject("Scripting.FileSystemObject")
Set folder = filesys.GetFolder("F:\inetpub\wwwroot\status\status\photoalbum\" & strAuthor & "\")
foldersize = folder.size
strSpace = RSdisk("diskspace") - foldersize
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.AllowedFilesList = "jpg,jpeg"
mySmartUpload.MaxFileSize = strSpace
mySmartUpload.Upload
For each file In mySmartUpload.Files
If not file.IsMissing Then
strFileFieldName = file.Name
strCommentFieldName = "TEXT" & right(strFileFieldName, 1)
strComment = mySmartUpload.Form(strCommentFieldName)
strSQL="INSERT INTO tblPhotoalbum (author, uploaded, comment) VALUES ('"& strAuthor &"' , '"& strUploaded &"' , '"& strComment &"')"
conn.execute(strSQL)
set rs = Conn.execute( "select last_insert_id()")
id = rs(0)
Filename = id & "." & file.FileExt
file.SaveAs("/status/photoalbum/" & strAuthor & "/" & Filename)
End If
Next
%>
[/red]
