Döp om bild namnet!

14 svar · 460 visningar · startad av Ivar 8 sep. 2002

IvarMedlem sedan aug. 2002218 inlägg

Frågan8 sep. 2002 14:42#1

Hej!
Jag har kollat på webforumet men kunde inte hitta någon bra förklaring på Rename av filer.
Jag vill att bilden som man laddar till mappen och databasen ska få ett annat namn går det?
Typ 32434334_1700_453.gif.
Kod:

<%
on error resume next
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin
For Each File In UploadRequest.Items
'Exempel på hur man kan 'plocka ner' andra forumlärelement
'email = UploadRequest.Item("email").Item("Value")
item = UploadRequest.Item("item").Item("Value")
description = UploadRequest.Item("description").Item("Value")
category = UploadRequest.Item("category").Item("Value")
ja = UploadRequest.Item("ja").Item("Value")
price = UploadRequest.Item("price").Item("Value")
phone = UploadRequest.Item("phone").Item("Value")
email = UploadRequest.Item("email").Item("Value")
stad = UploadRequest.Item("stad").Item("Value")

password = UploadRequest.Item("password").Item("Value")
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")

'Create FileSytemObject Component
next

If byteCount<=7000 THEN

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

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)

Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/ivica1/bilder/" & filename))

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

response.write "Filens sökväg: " & Server.mappath( filename) & " "
response.write "Filnamn: " & filename & " "
response.write "<img src=""" & filename & """>"

response.write "Din fil är upladdad utan problem "

set connect = server.createobject("ADODB.connection")

Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
Set RecSet= Server.CreateObject("ADODB.Recordset")
SQL= "INSERT INTO items (item, description, category,test,price,phone,email,stad, filename,password) VALUES('" & item & "', '"& description & "', '" & category &"','"& ja & "', '"&price&"','"&phone&"','"& email &"', '"&stad&"','" & filename & "','"& password & "')"

'Databas.Execute(SQL)
connect.Execute(SQL)
'Response.Write ="SQL"

else

response.write "Du har antingen en fil som inte har filändelse .gif eller så är den större än 70 kb. Var gud och prova igen."
end if

PoffeMedlem sedan apr. 20022 743 inlägg

8 sep. 2002 15:06#2

Byt --> Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/ivica1/bilder/" & filename))

Till --> Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/ivica1/bilder/MITT_FIL_NAMN.gif"))

IvarMedlem sedan aug. 2002218 inlägg

8 sep. 2002 15:17#3

Ok... men jag vill att varje gång man laddar en bil då ska bilden få ett nytt namn (unik)?

AGMedlem sedan mars 20001 266 inlägg

8 sep. 2002 15:52#4

Kan du inte typ döpa den efter datum och klockslag. Borde ju fungerar kan man tycka
typ "date()+time()"

Andreas

PoffeMedlem sedan apr. 20022 743 inlägg

8 sep. 2002 16:29#5

AG skrev:

Kan du inte typ döpa den efter datum och klockslag. Borde ju fungerar kan man tycka
typ "date()+time()"

Andreas

då är det kasnke enklare att bara använda Now() ;)

IvarMedlem sedan aug. 2002218 inlägg

8 sep. 2002 16:46#6

Menar ni såhär:
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/ivica1/bilder/" & Date()))&""

Jesper TMedlem sedan nov. 20017 144 inlägg

8 sep. 2002 18:49#7

Nej, så här:

 Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/ivica1/bilder/" & now()))&""

;)

@ndersMedlem sedan juni 200032 967 inlägg

8 sep. 2002 18:53#8

Nej, så här:

Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/ivica1/bilder/" & now()))

;)

Att lägga till en tom sträng ( & "") på slutet av någonting är oftast bara helt onödigt. Men ibland kan det skapa problem. Här skulle det kunna bli problem, eftersom det inte är en sträng som tom sträng skulle bli lagd till.

Mvh,

IvarMedlem sedan aug. 2002218 inlägg

8 sep. 2002 19:08#9

Hej Jesper T funkar ej om jag använder den här koden

Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/ivica1/bilder/" & now()))
Men om jag använder Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/ivica1/bilder/" & Date())) då får jag dagens datum (2002-09-08) och filen är ej .gif ?

Jesper TMedlem sedan nov. 20017 144 inlägg

8 sep. 2002 19:20#10

var det en fråga eller ett påstående?

Jesper TMedlem sedan nov. 20017 144 inlägg

8 sep. 2002 19:22#11

 Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/ivica1/bilder/" & Date()&".gif"))

Är det inte bara giffar så måste du ta ut filändelsen innan du byter namn på filen.

 
andelse=right(filename),4)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/ivica1/bilder/" & Date() & andelse))

IvarMedlem sedan aug. 2002218 inlägg

8 sep. 2002 19:37#12

Visst det funkar så men laddar man ny bild så skrivs den över.
Kan man inte få sekunderna med eller ID nummer i så fall hur?

Jesper TMedlem sedan nov. 20017 144 inlägg

8 sep. 2002 20:29#13

med now() istället för date()

IvarMedlem sedan aug. 2002218 inlägg

10 sep. 2002 18:09#14

Hej!
Jag löste problemen med den här koden:
'Create FileSytemObject Component
next

If contentType="image/gif" THEN

If byteCount<=7000 THEN
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Dim MyVar
MyVar = Minute(Now)
Dim MySec
MySec = Second(Now)
' MySec contains the number representing the current second.
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
'Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/ivica1/bilder/"& Date()& MyVar&MySec&".gif"))
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
response.write "Filens sökväg: " & Server.mappath( filename) & " "
response.write "Filnamn: " & filename & " "
response.write "<img src=""" & filename & """>"
response.write " Din fil är upladdad utan problem och kommer att granskas av Europa Annons AB."

set connect = server.createobject("ADODB.connection")

'Databas.Execute(SQL)
connect.Execute(SQL)
'Response.Write ="SQL"

else

response.write "Du har antingen en fil som inte har filändelse .gif eller så är den större än 70 kb. "
end if

end if

CatZMedlem sedan jan. 20022 440 inlägg

10 sep. 2002 19:20#15

jadu det var lite onödigt mycket kod för så lite :e Skulle starkt rekommendera att du lär dig använda now() ;)