Innanzitutto, grazie per la disponibilità...
Ecco il codice della pagina di modifica news.
codice:
<%@LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>Gestione news</title>
<script language="Javascript1.2"><!-- // carica l'area html
_editor_url = "htmlarea/"; // URL dei file dell'area html
var win_ie_ver = parseFloat(navigator.appVersion.split("MSIE")[1]);
if (navigator.userAgent.indexOf('Mac') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Windows CE') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Opera') >= 0) { win_ie_ver = 0; }
if (win_ie_ver >= 5.5) {
document.write('<scr' + 'ipt src="' +_editor_url+ 'editor.js"');
document.write(' language="Javascript1.2"></scr' + 'ipt>');
} else { document.write('<scr'+'ipt>function editor_generate() { return false; }</scr'+'ipt>'); }
// --></script>
</head>
<body>
<%
set rsOldnews = connect.execute("select id, intestazione, visibile from notizie order by visibile desc")
if request("action") = "modifyme" then
intID=request("ID")
bolVisibile=request("visibile")
if bolVisibile=0 then
strChecked=""
else
strChecked="checked"
end if
set rsNewsToModify = connect.execute ("select id, data, datam, intestazione, introduzione, scadenza, notizia from notizie where id=" & intID & "")
txtIntestazione=rsNewsToModify("intestazione")
txtNotizia=rsNewsToModify("notizia")
txtIntroduzione=rsNewsToModify("introduzione")
txtScadenza=rsNewsToModify("scadenza")
end if
if request("action")="modify" then
txtIntestazione=replace(request.form("intestazione"),"'","''")
txtNotizia=replace(request.form("testo"),"'","''")
txtIntroduzione=replace(request.form("introduzione"),"'","''")
intdatam=request.form("datam")
chkCheckbox=request.form("checkbox")
txtScadenza=request.form("scadenza")
intID=request("ID")
connect.execute ("update notizie set datam=#"& intdatam &"#, intestazione='" & txtIntestazione &"', notizia='" & txtNotizia & "', introduzione='" & txtIntroduzione & "' , scadenza='" & txtScadenza & "' where id =" & intID & "")
if chkCheckbox="" then
connect.execute ("update notizie set visibile=0 where id =" & intID & "")
else
connect.execute ("update notizie set visibile=1 where id =" & intID & "")
end if
response.redirect "elenco.asp"
end if
%>
<form name="Notizie" method="post" action="modifica_news.asp?action=modify&id=<% =intID %>">
<table width="660" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" valign="top">
Mostra notizia
<input type="checkbox" name="checkbox" <% =strChecked %>>
(spuntare per mostrare la notizia)</td>
</tr>
<tr>
<td>Titolo:
<input size="60" type="text" name="intestazione" value="<% =txtIntestazione %>">
</td>
</tr>
<tr>
<td>Introduzione:
<textarea name="introduzione" id="introduzione" cols="120" rows="5"><% =txtIntroduzione %></textarea>
<input name="datam" type="hidden" value="<% =now()%>">
</td>
</tr>
<tr>
<td>Testo:
<textarea name="testo" id="testo" cols="100" rows="10"><% =txtNotizia %></textarea></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>Scadenza:
<input type="text" name="Scadenza" value=<% =txtScadenza %>>
</td>
</tr>
<tr>
<td>Immagine:
</td>
</tr>
<tr>
<td>
<input name="Submit" type="submit" value="Modifica notizia"></td>
</tr>
<%
rsoldnews.close
set rsoldnew = Nothing
rsNewsToModify.close
set rsNewsToModify = Nothing
%>
</table>
</form>
<script language="JavaScript1.2" defer>
editor_generate('testo');
editor_generate2('introduzione');
</script>
</body>
</html>
In questo codie, subito dopo questa riga della tabella:
codice:
<tr>
<td>Scadenza:
<input type="text" name="Scadenza" value=<% =txtScadenza %>>
</td>
</tr>
Ho aggiunto questa nuova riga della tabella, dove vorrei inserire il link che mi apre il popup per l'upload.
codice:
<tr>
<td>Immagine:
</td>
</tr>
Il codice di Baol che potrebbe fare al caso mio, credo sia questo:
codice:
<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("news.mdb"),"SELECT Top 1 * FROM news"
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "files\"
.Load
.MoveFirst
if .EOF then
NumFiles = .Count()
Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
.Database.Open()
While Not .EOF
.Save
response.Write "il file " & .GetFileName &" è stato salvato
"
'Inserimento dei valori
.Database.Fields("Titolo") = .Form("Titolo")
.Database.Fields("Percorso") = .GetCompletePathFile
'Inserimento
.Database.AddNew()
.MoveNext
Wend
end if
End With
Set oUpload = Nothing
%>
Ma, come dicevo, sono un po' in alto mare sul dafarsi...
Grazie!
Rispondi quotando
