Guarda qs è il codice completo della pagina:
<%If session("loggato")="si" then %>
<html>
<head>
<%' Imposta il tempo max di esecuzione dello script (espresso in millisecondi)
Server.ScriptTimeout=10000
Response.Expires=0
Response.Buffer=TRUE
Response.Clear()
'impostazioni variabili
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
'individua il tipo di file che si cerca di fare l upload
contentType = UploadRequest.Item("file").Item("ContentType")
'intero percorso del file
filepathname = UploadRequest.Item("file").Item("FileName")
'****************************** CONTROLLI IMMAGINE
'controllo tipo immagine
tipo = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"."))
'cambiare la scrita zip e gz qui sotto per inserire la sigla di un altro tipo di file
'Se si vuole permettere l'upload di qualsiasi tipo di file cancellare o commentare
'le successive 4 linee di codice e l'ultimo END IF della pagina upload.asp
If tipo <> "jpg" AND tipo <> "gif" then
Response.Write ("<b>Errore Upload</b>. Non è possibile fare upload di un file ." & tipo)
Response.End
' calcolo del peso della immagine
'imposta qui, il peso max. 9000 vuol dire 9 Kb circa
ElseIf byteCount > 9000 THEN
Response.Write ("<b>Errore Upload</b>. File troppo grande!")
Response.End
Else
'*********************************** NOME FINALE DEL FILE e UPLOAD
nomefile = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
'in questa variabile viene salvato il nome del file che sarà del tipo 2311235.gif
filename = nomefile
value = UploadRequest.Item("file").Item("Value")
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
'da questa riga di codice si specifica l'indirizzo relativo dove sarà inserito il file
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("../Immagini") & filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
End If
End If
%>
<title>Creazione Sistema per la gestione delle news</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#00CCFF">
<p align="center"><font size="2" face="Verdana"><b>Creazione Sistema per la
gestione delle news</b></font></p></p>
<% if request("titolo")="" or request("news")="" or request("autore")="" or request("data")="" then %>
<script language="JavaScript">
alert ("Inserire tutti i dati!")
history.back()
</script>
<% Response.End
end if %>
<p align="center">
<!--include file="esegui.asp" -->
<%dim objconn,dat,title,auth,news,id
title=Request("titolo")
auth=Request("autore")
dat=Request("data")
news=Request("news")
id=Request("id")
foto=Request("foto")
set objconn=Server.CreateObject("ADODB.Connection")
objconn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("..\..\database\news.mdb")
'objconn.ConnectionString ="DSN=popo"
objconn.Open
dim aggiungi,objrs,objrs2,view,aggiungifoto,objrs3%>
<font face="Verdana" size="2">
<% dim modo
'RICHIEDE LA VARIABILE MODO
modo = Request.Querystring("modo")
Set objrs = Server.CreateObject("ADODB.Recordset")
Set objrs3 = Server.CreateObject("ADODB.Recordset")
Select case modo
'SE ESSA E? UGUALE AD ?AGGIUNGI?, AGGIUNGERA? LA NEWS?
case "aggiungi"%>
<p align="left"><font size="2" face="Verdana">>> <b>Aggiungi News</b></font>
<%aggiungi = "INSERT INTO news(data,titolo,autore,news) VALUES (#"&dat&"#,'"&title&"','"&auth&"','"&news&"')"
objrs.Open aggiungi, objconn
aggiungifoto ="INSERT INTO immagini(immagine) VALUES ('"&foto&"')"
objrs3.Open aggiungifoto, objconn%>
<br><br><center></center>
<%Response.Write("Operazione eseguita correttamente!")%></center>
<%'?ALTRIMENTI, MODIFICHERA' LA NEWS
case "modifica"%>
<p align="left"><font size="2" face="Verdana">>> <b>Modifica News</b></font>
<%aggiungi = "UPDATE news SET data=#"&dat&"#, titolo='"&title&"', autore='"&auth&"', news='"&news&"', immagine='"&foto&"' where Id ="&id
objrs.Open aggiungi, objconn
view = "SELECT * FROM news WHERE Id ="&id
set objrs2 = Server.CreateObject("ADODB.Recordset")
objrs2.Open view,objconn %>
<br><br><center></center>
<%Response.Write("Operazione eseguita correttamente!")%></center>
<%do while not objrs2.EOF%><br><br>
<table bgcolor="#00CCFF" width="600" height="380" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="140" height="35"><%=objrs2("data")%></td>
<td width="200" height="35"><%=objrs2("titolo")%></td>
<td width="260" height="35"></td>
</tr>
<tr><td width="600" colspan="3" height="35"><%=objrs2("autore")%></td></tr>
<tr><td colspan="3" height="270" width="600"><%=objrs2("news")%></td>
</tr>
<tr><td colspan="3" height="40" width="600"><div align="center"><a href="foto.asp"><font face="Verdana" size="3">Foto</font></a></div></td></tr>
</table>
<%objrs2.MoveNext
loop
end select
objconn.Close%></font>
</p>
<p align="left"> </p>
<p align="left"><font size="2" face="Verdana">Le operazioni che puoi eseguire:</font>
</p>
<ul>
<li>
<p align="left"><b><font size="2" face="Verdana"><a href="aggiungi1.asp">Aggiungi
News</a></font></b></li>
<li>
<p align="left"><b><font size="2" face="Verdana"><a href="news.asp">Modifica/Elimina
News</a></font></b></li>
<li>
<p align="left"><b><font size="2" face="Verdana"><a href="esci.asp">Esci</a></font></b></li>
</ul>
</body>
</html>
<%
end if
end if%>
Modificato da mayavision il 23 settembre 2003 16.36 -
