Controllo checkbox

**Pierhagi** · 19-11-2010, 13:54

Ciao a tutti

ho un problema con una checkbox.

Sto realizzando una pagina inserimento dati in un db access. In questa pagina ho inserito una checkbox sulla quale vorrei inserire un semplice controllo prima dell'inserimento dati nel db.

<input name="VOCE_IN_MENU" type="checkbox" value="1" checked="<%=spunta%>" />

spunta = "checked"

if spunta = "" then
NOME_PAGINA="pagina_1.asp"
else
NOME_PAGINA="pagina_2.asp"
end if

...cmq non riesco a capire come il sistema "capisce" se ha la spunta o meno!...deve interrogare un recordset?

**Daisyland** · 19-11-2010, 15:29

Intendi che se la checkbox e' spuntata allora nomepagina e' pagina_1 altrimenti e' pagina_2 (o il contrario) ?
E poi, questo valore (della checkbox) lo verifichi in altra pagina in cui hai inviato i dati esempio tramite post oppure nella pagina stessa della checkbox ?
Spiega meglio cosa vuoi fare.

**Grambo** · 19-11-2010, 15:34

Originariamente inviato da Pierhagi
...cmq non riesco a capire come il sistema "capisce" se ha la spunta o meno!...deve interrogare un recordset?

semplicemente se è spuntato assume (e dunque passa) il valore contenuto in VALUE altrimenti è vuoto

cos'è quel programma che hai scritto?

**Daisyland** · 19-11-2010, 15:40

Ma io non capisco proprio il senso di assegnare un valore.
Nel senso che se la checkbox e' spuntata assume valore "on", altrimenti nessun valore.
E in base a quello si reindirizza ad una o un'altra pagina

**Pierhagi** · 19-11-2010, 15:52

...faccio tutto nella stessa pagina di inserimento.

Ho una form, con metodo post, che contiene dei campi testo e una checkbox di tipo Sì/No .

Dopo aver compilato i campi all'interno della form e spuntato o non spuntato la checkbox, a seconda di cosa mi serve, clicco sul tasto INVIA x "scrivere" i dati della form nel db.

Vorrei che dopo aver cliccato su INVIA controllasse se la checkbox ha la spunta o meno e dopo invii i dati al db.

Le opzioni che voglio applicare alla checkbox sono:

SE la checkbox è spuntata ALLORA
scrivi nel campo NOME_PAGINA="pagina_1.asp"
ALTRIMENTI
scrivi nel campo NOME_PAGINA="pagina_1.asp"
fine

**Grambo** · 19-11-2010, 15:57

quando fai invia passi i dati ad una pagina controlli il valore della checkbox e fai ciò che vuoi....non capisco dove ti perdi

per reindirizzare usa una redirect

if
redirect
else
redirect
end if

**Pierhagi** · 19-11-2010, 16:30

non devo fare un redirect...

vorrei che scrivesse i nomi delle pagine (pagina_1.asp e pagina_2.asp) proprio nel campo NOME_PAGINA.

Questa mia pagina di inserimento dati crea dinamicamente pagine web che possono essere di 2 tipi:

1) pagina web standard che contiene dei contenuti tipo una Home
2) pagina x gallery, cioè che ha una struttura x visualizzare una gallery di 3 righe e 3 colonne.

...con la checkbox decido se creare una pagina di tipo standard o una gallery.

Es. se devo creare una pagina home o news allora:

inserisco nel campo VALORE Home e NON spunto la checkbox... così vado a scrivere nel db:

NOME_PAGINA VALORE
contenuti.asp Home
contenuti.asp News

se invece spunto la checkbox e il valore è foto_2010 o foto_2011 allora voglio che scriva così:

NOME_PAGINA VALORE
gallery.asp foto_2010
gallery.asp foto_2011

**Grambo** · 19-11-2010, 16:38

puoi postare il codice della pagina?

**Pierhagi** · 19-11-2010, 16:50

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if not Session("LoginStatus") then Response.Redirect("login.asp")
%>

<%
'Dichiaro il recordset
Dim rs_categoria, rs_SuperCategoria, rs_lingua
'Creo il recordset
Set rs_categoria = Server.CreateObject("ADODB.Recordset")
Set rs_SuperCategoria = Server.CreateObject("ADODB.Recordset")
Set rs_lingua = Server.CreateObject("ADODB.Recordset")
'Dichiaro la stringa Sql
Dim Sql, Sql_Meta, Sql_Categoria, Sql_SuperCategoria, Sql_Lingua
'Creo la stringa Sql. Seleziona tutti i campi dalla tabella TabAnagGiocatore e ordinali per COGNOME ascendente
Sql_Categoria = "SELECT * FROM TabCategoria"
Sql_SuperCategoria = "SELECT * FROM TabSuperCategoria ORDER BY CODICE_SUPER_CATEGORIA ASC"
Sql_Lingua = "SELECT * FROM TabLingua"

rs_categoria.Open Sql_Categoria, cn, 1
rs_SuperCategoria.Open Sql_SuperCategoria, cn, 1
rs_lingua.Open Sql_Lingua, cn, 1
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title> Inserisci Categoria </title>
</head>

<body>
<table id="inserisci_categoria">

<tbody>
<form id="form1" method="post" action="?update=add">

<tr>
<th>NOME:</th>
<td><input type="text" name="NOME" value="" class="textbox" /></td>
</tr>

<tr>
<th>COD_CATEGORIA:</th>
<td><input type="text" name="CODICE_CATEGORIA" value="" class="textbox" /></td>
</tr>

<tr>
<th>FLAG_GALLERY:</th>
<td><input name="FLAG_GALLERY" type="checkbox" value="1" />
Spuntare se si vuole creare una gallery fotografica.
</td>
</tr>

<tr>
<th>COD_SUPER_CATEGORIA:</th>
<td>
<select name="CODICE_SUPER_CATEGORIA">
<option value=""></option>
<%
While (NOT rs_SuperCategoria.EOF)
%>
<option value="<%=rs_SuperCategoria("CODICE_SUPER_CATEGORI A")%>"><%=rs_SuperCategoria("CODICE_SUPER_CATEGORI A")%></option>
<%
rs_SuperCategoria.MoveNext()
Wend
If (rs_SuperCategoria.CursorType > 0) Then
rs_SuperCategoria.MoveFirst
Else
rs_SuperCategoria.Requery
End If
%>
</select>
</td>
</tr>

<tr>
<th>CODICE_LINGUA:</th>
<td>
<select name="CODICE_LINGUA">
<option value=""></option>
<%
While (NOT rs_lingua.EOF)
%>
<option value="<%=rs_lingua("CODICE_LINGUA")%>"><%=rs_ling ua("CODICE_LINGUA")%></option>
<%
rs_lingua.MoveNext()
Wend
If (rs_lingua.CursorType > 0) Then
rs_lingua.MoveFirst
Else
rs_lingua.Requery
End If
%>
</select>
</td>
</tr>

<tr>
<th>VOCE_IN_MENU:</th>
<td>
<input name="VOCE_IN_MENU" type="checkbox" value="1" checked="<%=spunta%>" />
Spuntare se si vuole visualizzare la voce, che si sta creando, nell'elenco di una Super Categoria.
</td>
</tr>

<tr>
<td colspan="2"><div id="bottone"><input type="submit" value="Inserisci record" /></div></td>
</tr>
</form>
</tbody>
<%
'SE la richiesta dell'interrogazione della stringa (metodo GET) è = add (aggiungi) ALLORA
if request.querystring("update")="add" then
'...esegui lo script sotto
%>

<%
NOME=replace(request.form("NOME"), "'", "''")' Testo
CODICE_CATEGORIA=request.form("CODICE_CATEGORIA")' Testo
FLAG_GALLERY=request.form("FLAG_GALLERY")' Si/No - checkbox
CODICE_SUPER_CATEGORIA=replace(request.form("CODIC E_SUPER_CATEGORIA"), "'", "''")' Testo
VOCE_IN_MENU=request.form("VOCE_IN_MENU")' Si/No - checkbox
CODICE_LINGUA=request.form("CODICE_LINGUA")' Testo

CODICE_CONTENUTI=request.form("VOCE_IN_MENU")' Testo. Inseriscso il valore di VOCE_IN_MENU in CODICE_CONTENUTI nella TabMeta
CODICE_CONTENUTI=replace(request.form("NOME"), "'", "''")' Testo. Inseriscso il valore di NOME in CODICE_CONTENUTI nella TabMeta
%>

<%
if FLAG_GALLERY ="" then
FLAG_GALLERY ="0"
end if

'spunta = "checked"
spunta = " checked=""checked"""

if spunta = "" then
NOME_PAGINA="categoria.asp"
else
NOME_PAGINA="anag_gallery_dettaglio.asp"
end if

SQL = "INSERT INTO TabCategoria (NOME, CODICE_CATEGORIA, FLAG_GALLERY ,CODICE_SUPER_CATEGORIA, VOCE_IN_MENU, CODICE_LINGUA) VALUES ('"&NOME&"','"&CODICE_CATEGORIA&"',"&FLAG_GALLERY& ",'"&CODICE_SUPER_CATEGORIA&"',"&VOCE_IN_MENU&",'" &CODICE_LINGUA&"')"

SQL_META= "INSERT INTO TabMeta(NOME_PAGINA, CODICE_CONTENUTI) Values('"&NOME_PAGINA&"','"&CODICE_CONTENUTI&"')"

'esegue la connessione SQL
cn.Execute(Sql)
cn.Execute(Sql_Meta)

If request.form("NOME")<>"" then response.redirect "inserisci_categoria.asp"
%>

<%end if%>
</table>
</body>
</html>

**Pierhagi** · 19-11-2010, 16:53

le parti di codice sulle quali applicare le mie modifiche sono:

- la checkbox VOCE_IN_MENU
- i campi della TabMeta che ha la seguente SQL:

SQL_META= "INSERT INTO TabMeta(NOME_PAGINA, CODICE_CONTENUTI) Values('"&NOME_PAGINA&"','"&CODICE_CONTENUTI&"')"

cn.Execute(Sql_Meta)

Discussione: Controllo checkbox

Strumenti discussione

Ricerca discussione

Visualizza

Controllo checkbox

Re: Controllo checkbox

Permessi di invio