UpLoad in puro .asp

tempista · 31 Lug 2004

Buongiorno, ho trovato quello che mi serviva nel forum di Aruba, però ho ancora bisogno di aiuto, mi spiego meglio.

- Lo script qui di seguito funziona ma, il problema è che non riesco a trovare la stringa dove specificargli il percorso dove caricare i file attualmente lo carica nella stessa cartella dove è contenuto lo script io invece vorrei inserire il file nel seguente percorso:

/public/amministrazione/login/utilities/allegati

Dove la devo mettere questo percorso?

- Il secondo problema è che quando carico il file "MiaFoto.jpg" lo sript rinomina il file con il nome di "InMiaFoto.jpg", scrivendomi ugualmente nel database il nome originale.
In questo modo quando cancello il record, lo script cerca il file "MiaFoto.jpg" che non troverà mai perchè la foto al momento del caricamento è stata rinominata.

Come posso fare per evitare che il fiel venga rinominato?

Sicuro di trovare la risposta saluto tutti augurandovi una buona giornata.

P.S. Allego codice delle pagine:

Pag. 1

_______________________________________________________________________


<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("allegato").Item("ContentType")
filepathname = UploadRequest.Item("allegato").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("allegato").Item("Value")

'Create FileSytemObject Component
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)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
'---- Fine Componente Upload ----

gg=UploadRequest.Item("gg").Item("Value")
mm=UploadRequest.Item("mm").Item("Value")
aaaa=UploadRequest.Item("aaaa").Item("Value")
titolo=UploadRequest.Item("titolo").Item("Value")
articolo=UploadRequest.Item("articolo").Item("Value")

'--- Controlla che il campo titolo sia Pieno
If IsNull(titolo) OR titolo="" Then
Response.Write ("<table width='600'><tr><td valign='middle'><center><img

src='/public/amministrazione/img/icona_attenzione.gif'> ERRORE !! Hai dimenticato di riempire il campo NOME

UTILITIE. <a href='javascript:history.back()'>Correggi

l'errore</a></center></td></tr></table>")
Response.End
End if
'--- Fine Controllo Campo titolo

'--- Controlla che il campo articolo sia Pieno
If IsNull(articolo) OR articolo="" Then
Response.Write ("<table width='600'><tr><td valign='middle'><center><img

src='/public/amministrazione/img/icona_attenzione.gif'> ERRORE !! Hai dimenticato di riempire il campo DESCRIZION

UTILITIE. <a href='javascript:history.back()'>Correggi

l'errore</a></center></td></tr></table>")
Response.End
End if
'--- Fine Controllo Campo articolo

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("/mdb-database/database.mdb")

SQL = "Select id, gg, mm, aaaa, titolo, articolo, allegato FROM utilities"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn, 1, 2

rs.AddNew
rs("gg") = gg
rs("mm") = mm
rs("aaaa") = aaaa
rs("titolo") = titolo
rs("articolo") = articolo
rs("allegato") = filename
rs.update

rs.Close
set rs = Nothing

Response.Redirect("/public/amministrazione/login/utilities/articoli.asp")
%>

Pag. 2 (inclusione)

____________________________________________________________________

<%Sub BuildUploadRequest(RequestBin)
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
PosBound = InstrB(PosEnd,RequestBin,boundary)
If PosFile<>0 AND (PosFile<PosBound) Then
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else
Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If
UploadControl.Add "Value" , Value
UploadRequest.Add name, UploadControl
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
Loop
End Sub
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function%>

Pag. Eiminazione
____________________________________________________________________

<%
id = Request.QueryString( "id" ).item

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("/mdb-database/database.mdb")

sql222="SELECT allegato FROM utilities WHERE id = "& id &" ;"
set ors222=Conn.Execute(sql222)

FileDaEliminare=ors222.Fields("allegato")

'--- Eliminazione di file ---
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject")
TrovaFile=server.mappath("/public/amministrazione/login/utilities/allegati"& FileDaEliminare)
if fs.FileExists (TrovaFile) then
fs.DeleteFile TrovaFile
end if
set fs=nothing
'--- Fine eliminazione

ors222.Close
set ors222 = Nothing

strSQL= "DELETE FROM utilities WHERE id = "& id &" ;"
Conn.Execute(strSQL)

Conn.Close
set Conn = Nothing

Response.Redirect("/public/amministrazione/login/utilities/articoli.asp")
%>

Cerca

Cerca

UpLoad in puro .asp

tempista

Nuovo Utente

Discussioni simili