codice:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>BackOffice UNASCI</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
'AGGIUNTO QUI I PERCORSI:
'ATTENTO QUA VA SETTATA SUI TUOI PERCORSI TENENDO PRESENTE CHE VA COME INCLUDE VIRTUAL
cartella_logo="/public/logo/"
'#############################################FUNZIONI#######################################
Function CancellaFile(quale_file)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'cancella solo se trova file
if objFSO.fileexists (Server.MapPath(quale_file)) then objFSO.DeleteFile Server.MapPath(quale_file)
Set objFSO = Nothing
End Function
'##########################################FINE FUNZIONI############################################
'CONNESSIOONE
Set myconn = Server.CreateObject("ADODB.Connection")
'############### CORREGGI LA STRINGA con percorso
myconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/unasci.mdb")
'########
Set oUpload = new cUpload
oUpload.AutoRename=False'Disabilito l'autoRename
oUpload.OverWrite=False'Imposto l'overwrite
oUpload.Upload 'Carico i dati
oUpload.MoveFirst 'Posizionamento sul primo record
oUpload.SetPath cartella_logo
select case left(oUpload.Form("func"),1)
case "E"
'if left(oUpload.Form("Submit"),1)="E" then ' se si è premuto il pulsante Elimina nota che comincia con la E
sql = "SELECT * FROM affiliate WHERE id="&oUpload.Form("idAffiliata")
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, myconn,3,3
'prende il nome dei file
file1 = rs("logo")
'cancella il record dalla tabella documenti
rs.delete
rs.close
Set rs = Nothing
myconn.Close
Set myconn = Nothing
'cancella i files eventuali presenti
'########CORREGGERE PERCORSI
if len(file1)>1 then a=cancellaFile(cartella_logo& file1)
case else 'ENTRA QUI SOTTO E FA UPDATE O INSERT nel caso contrario
'##############ANDREA
'leggo i campi del form tra cui anche i vecchi attach e cover
'##########AGGINGI QUELLI CHE MANCANO
idAffiliata=oUpload.Form("idAffiliata")
nome=oUpload.Form("nome")
anno=oUpload.Form("anno")
regione=oUpload.Form("regione")
citta=oUpload.Form("citta")
presidente=oUpload.Form("presidente")
sede=oUpload.Form("sede")
telefono=oUpload.Form("telefono")
fax=oUpload.Form("fax")
email=oUpload.Form("email")
URL=oUpload.Form("URL")
impianti=oUpload.Form("impianti")
soci=oUpload.Form("soci")
tesserati=oUpload.Form("tesserati")
affiliato=oUpload.Form("affiliato")
colori=oUpload.Form("colori")
discipline=oUpload.Form("discipline")
storia=oUpload.Form("ta")
logo=oUpload.Form("valore_attuale_logo")
'cover=oUpload.Form("valore_attuale_cover")
if Not IsNull(nome) then titolo = replace(nome,"'","''")
if Not IsNull(storia) then descrizione= replace(storia,"'","''")
'if Not IsNull(autore) then autore = replace(autore,"'","''")
'adesso faccio l'upload eventuale
While Not oUpload.Eof
fatto=false
quale_campo=oUpload.Files("InputName") 'qui legge quale campo del db è stato aggiornato
nome_file=oUpload.GetFileName
if quale_campo="logo" then
a=cancellaFile(cartella_logo& logo)
logo=nome_file
end if
oUpload.Save
'#####SPOSTA IL FILE COVER perché la classe di Baol non può cambiare path una volta chiamata
if (logo<>"" and fatto )then
set fso=server.createobject("Scripting.FileSystemObject")
if fso.FileExists(Server.MapPath(cartella_logo& logo)) then
fso.movefile Server.MapPath(cartella_logo& logo), Server.MapPath(cartella_cover& cover)
end if
end if
oUpload.MoveNext
Wend
Set oUpload = Nothing
'adesso spariamo nel db l'update del documento
'qui si sceglie se fare UPDATE o INSERT a seconda della pagina di provenienza
if (instr(request.ServerVariables("HTTP_REFERER"),"edit_affiliata.asp")>1) then
'STRINGA SQL: alla fine uno spazio vuoto OCCHIO
sql = "UPDATE affiliate SET "
if nome<>"" then sql=sql&"nome='"&nome&"', "
'if autore<>"" then sql=sql&"autore='"&autore&"', "
'if URL<>"" then sql=sql&"URL='"&URL&"', "
'sql=sql&"data='"&data&"', "
sql=sql&"logo='"&logo&"', "
'sql=sql&"data=#"&Data&"#, "
'sql=sql&"descrizione='"&descrizione&"' "
sql=sql&"WHERE id="& idAffiliata &""
else 'allora nuovo record
sql = "INSERT INTO affiliate (nome, anno, regione, citta, presidente, sede, telefono, fax, email, url, impianti, soci, tesserati, affiliato, colori, discipline, logo) VALUES "
sql=sql&" ( '"&nome&"', '"&anno&"', '"®ione&"', '"&citta&"', '"&presidente&"', '"&sede&"' , '"&telefono&"', '"&fax&"', '"&email&"', '"&url&"', '"&impianti&"', '"&soci&"', '"&tesserati&"', '"&affiliato&"', '"&colori&"', '"&discipline&"', '" &logo&"')"
end if
set rec = myconn.execute(sql)
sql="update [Upgrade] set [data]= #"& date() &"#"
myconn.execute(sql)
set rec = nothing
myconn.close
set myconn = nothing
end select
%>
%>
<% Response.redirect("/admin/affiliate.asp")%>
</p>
</body>
</html>
Permessi di invio
Rispondi quotando