webForumDet fria alternativet

aspSmartUpload - byta filnamnet

ASP

1 svar · 227 visningar · startad av percka

Medlem sedan nov. 200021 inlägg
Frågan#1

Behöver lite hjälp med att byta namn på en fil (bild) som man skickar upp i samband med registrering på ett community. Jag använder aspSmartUpload och att få filen i rätt mapp, lägga till uppgifterna i databasen och där ändra filnamnet till användarens nick fungerar tillfredsställande...

Men att byta namn på själva bilden som hamnar i mappen 'pix' vill sig inte? Borde väl inte vara så svårt? Bilden ska för övrigt heta samma som användaren. Skickar med lite kod, och den saknar då biten som döper om bilden.

<%
' Skapa objektet
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

' Ladda upp
mySmartUpload.Upload

' Spara bilden i mapp
mySmartUpload.Save("pix")

namn = mySmartUpload.Form("namn")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databasen.mdb")
set rs= Server.CreateObject("ADODB.Recordset")
SQL= "SELECT * FROM test WHERE 1=2"
rs.Open SQL,Conn,1,2

bild = Replace((mySmartUpload.Files(1).Filename), mySmartUpload.Files(1).Filename, namn & ".jpg")

rs.AddNew
rs("bildnamn")= namn
rs("bildtext")=mySmartUpload.Form("texxxt")
rs("bild")= bild
rs.Update

rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>

Medlem sedan nov. 200021 inlägg
#2

Och efter lite pill och lusläsning på aspSmart.com så hittade jag ju då en lite lösning =)

La till följande:

namn = mySmartUpload.Form("namn")

mySmartUpload.files.item(1).saveas "pix/" & namn & ".jpg"

...sedan gick det ju bra. Får hoppas då att detta inlägg åtminstone kanske kan hjälpa någon annan i framtiden?

Nu ska jag fixa lite mer med detta script, så det blir proffsigt lixom...

Tur man inte har ett rykte att tänka på...*ler*...

255 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
124 ms — deklarationer (db)
0 ms — hämta statistik (cache)
128 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)