Come posso mantenere una variabile?

il 10 maggio 2005 alle 17:35

60 messaggi dal 29 aprile 2003

Ciao a tutti.
Ho il seguente problema:

In una pagina asp devo verificare se esiste nel db un utente.
I dati dell'utente provengono da un'altra pagina.

Il problema non è nel controllare l'esistenza dell'utente.

Però i dati dell'utente devo mantenere fino a quando non esce dalla pagina.

In questa pagina ci sono anche altre operazioni di requery.
In questo modo perdo i dati che provengono dalla precedente pagina.

Spero che mi sono spiegato bene...
Grazie in anticipo.

Rispondi Quoting

expertone

il 10 maggio 2005 alle 18:32

77 messaggi dal 16 febbraio 2001

Devi usare una variabile in Sessione cosi' la puoi rendere pemamente fino a che ti fa comodo te o fino a che l'utente non chiude Ie.

Comunque questo era da postare non nel forum Avanzato, visto che è una cosa elementare.

ciao

Rispondi Quoting

Pushpam

il 10 maggio 2005 alle 19:22

60 messaggi dal 29 aprile 2003

Nella pagina seguente mi puoi dire dove posso mantenere la sessione?

Ci ho provato. Ma non ci resta, quando una reimpaginazione viene effettuata.

Scusate se vi disturbo.



<%
const RecordsPerPage = 5
%>

<%
dim rsData ' As Adodb.Recordset
dim sqlResult ' As String

dim intPageNum ' As Integer
dim strSortFlds 'as string
dim strSortOrder 'As string

Set cn = OpenDatabase()

if Request("so") <> "" then
strSortFlds = Request("so")
else
strSortFlds = "1"
end if

if Request("sd") <> "" then
strSortOrder = Request("sd")
else
strSortOrder = "ASC"
end if

If Request("pn") <> "" then
intPageNum = CInt(Request("pn"))
Else
intPageNum = 1
End if

sqlResult = ""
set rsData = Server.CreateObject ("ADODB.Recordset")
sqlResult = "Select ID_REC, IDINET, EMAIL, COGNOME, NOME, ENTEATTUALE, RUOLO, " & _
"REGIONE, PROV, CAP, CITTA, INDIRIZZO, DOMINIO, GRUPPO, " & _
"TELUFF, TELEXTRA, NOTES, DATAULT, MONITORATO From CENSIMENTO " & _
"WHERE LEN(EMAIL)>0 " & _
"order by " & strSortFlds & " " & strSortOrder

rsData.Open sqlResult, cn, 1, 3

If rsData.RecordCount < 1 then
Response.redirect ("welcome.asp")
end if

rsData.PageSize = RecordsPerPage
DisplayData rsData, intPageNum, strSortFlds, strSortOrder
rsData.Close

%>

<HTML>
<HEAD>

<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<TITLE>API S.c.r.l Censimento Indirizzi di posta elettronica</TITLE>
</HEAD>

<body bgcolor=DarkGray leftMargin="25" rightmargin="25" topMargin="0" marginheight = "0" marginwidth = "0">

<%

'------------------------------------------------------------------

Sub DisplayData(rsData, intPageNum, strSortFlds, strSortOrder)

%>

<Form name=frmMonitor Id=frmMonitor Method=Post Action="UpdateMonitor.asp">

<Table width=100%>
<Tr>
<TD ALIGN=CENTER>

ELENCO CENSIMENTO EMAIL PRESSO INET
 
MONITORAGGIO
 

</TD>
</TR>
</Table>
<%
Dim intCount ' As integer
%>


<%
DisplayPageLinks rsData, intPageNum, strSortFlds, strSortOrder
DisplayNavigation rsData, intPageNum, strSortFlds, strSortOrder
%>


<INPUT type="reset" value="Reimposta" name="Reimposta">
<INPUT type="submit" value="Aggiorna" name="Aggiorna" Onclick="Submit()">

<TABLE width=100% BORDER="1" CellSpacing=0 CellPadding=4 bgcolor=#6699cc cols=18>
<Thead>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "PROG.", "ID_REC", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "ID-INET", "IDINET", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "EMAIL", "EMAIL", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "COGNOME", "COGNOME", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "NOME", "NOME", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "ENTE", "ENTEATTUALE", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "RUOLO", "RUOLO", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "CITTA'", "CITTA", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "INDIRIZZO", "INDIRIZZO", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "CAP", "CAP", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "PROV.", "PROV", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "REGIONE", "REGIONE", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "TELEFONO", "TELUFF", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "ALTRO TEL.", "TELEXTRA", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "NOTE", "NOTES", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "DATA RICEZIONE", "DATAULT", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "GRUPPO", "GRUPPO", strSortFlds, strSortOrder)%></th>
<th style="cursor:pointer; cursor:hand"><% Response.Write CreateHeading(intPageNum, "MONITORATO", "MONITORATO", strSortFlds, strSortOrder)%>
<INPUT type="checkbox" id=chkBoxMonitorTitle name=chkBoxMonitorTitle Onclick="SelezionaTutto(this.form)"></th>
</Thead>
<%

rsData.AbsolutePage = intPageNum
For intCount = 1 to rsData.PageSize

%>

<tr>
<TD><% = rsData("ID_REC") %></TD>
<TD><% = rsData("IDINET") %></TD>
<TD><% = rsData("EMAIL") %></TD>
<TD><% = rsData("COGNOME") %></TD>
<TD><% = rsData("NOME") %></TD>
<TD><% = rsData("ENTEATTUALE") %></TD>
<TD><% = rsData("RUOLO") %></TD>
<TD align=center><% = rsData("CITTA") %></TD>
<TD><% = rsData("INDIRIZZO") %></TD>
<TD align=center><% = rsData("CAP") %></TD>
<TD align=center><% = rsData("PROV") %></TD>
<TD><% = rsData("REGIONE") %></TD>
<TD><% = rsData("TELUFF") %></TD>
<TD><% = rsData("TELEXTRA") %></TD>
<TD title="<%=TRIM(RSDATA.FIELDS("NOTES"))%>"><%if len(rsData.fields("notes"))>10 then Response.write MID(rsData("NOTES"), 1, 10) & "..." else Response.write (RSDATA.FIELDS("NOTES")) end if%></TD>
<TD align=CEnter><% = rsData("DATAULT") %></TD>
<TD align=center><% = rsData("GRUPPO") %></TD>
<TD ALIGN=Center>
<INPUT type="checkbox" id=chkBoxMonitor name=chkBoxMonitor Value=CInt(<%=rsData.Fields("id_rec")%>) <%if rsData("MONITORATO")="Sì" then Response.Write " checked " end if%>>

</TD>
</tr>

<%
rsData.MoveNext
if rsData.EOF then Exit For
Next 'intCount
%>
</Table>

</Form>


<%
DisplayPageLinks rsData, intPageNum, strSortFlds, strSortOrder
DisplayNavigation rsData, intPageNum, strSortFlds, strSortOrder
%>


</Body>
</Html>
<%
end sub
%>

<%

'-------------------------------------------------------------------
Function CreateHeading(intPageNum, strTitle, strNewSort, strOldSort, strOldOrder)

dim strNewOrder 'as string

if strNewSort = strOldSort then
if strOldOrder = "ASC" then
strNewOrder = "DESC"
else
strNewOrder = "ASC"
end if
else
strNewOrder = "ASC"
end if

CreateHeading = "<a href=""" _
& Request.ServerVariables ("SCRIPT_NAME") _
& "?pn=" & intPageNum _
& "&so=" & strNewSort _
& "&sd=" & strNewOrder _
& """>" & strTitle & "</a>"

End Function

Sub DisplayPageLinks(rsData, intPageNum, strSortFlds, strSortOrder)

dim i 'as integer

Response.Write "Passa alle pagine successive:"

for i = 1 to rsData.PageCount
If i = intPageNum then
Response.Write i & " "
Else

Response.Write "<a href=""" _
& Request.ServerVariables ("SCRIPT_NAME") _
& "?PN=" & i _
& "&so=" & strsortflds _
& "&sd=" & strSortOrder _
& """>" & i & "</a>"
end if

next 'i

Response.Write ""

End sub

' ---------------------------------------------------------------------------

Sub DisplayNavigation(rsData, intPageNum, strSortFlds, strSortOrder)

Response.Write ""

If intPageNum > 1 then
Response.Write "<< <a href=""" _
& Request.ServerVariables ("SCRIPT_NAME") _
& "?PN=" & intpageNum - 1 _
& "&so=" & strsortflds _
& "&sd=" & strSortOrder _
& """>Pagina precedente</a>   "
end if

If intPageNum < rsData.PageCount then
Response.Write ">> <a href=""" _
& Request.ServerVariables ("SCRIPT_NAME") _
& "?PN=" & intpageNum + 1 _
& "&so=" & strsortflds _
& "&sd=" & strSortOrder _
& """>Pagina seguente</a>   "
End if

Response.Write ""

End sub

'---------------------------------

%>

<Script Language="JavaScript">

function SelezionaFiltro(selObj)
{
var filtro
var selObj
filtro = selObj.options[selObj.selectedIndex].value
alert(Filtro)
frmMonitor.action = "Monitor.asp?strSelection=" + filtro
frmMonitor.submit();
}

function SelezionaTutto()

{
if (document.frmMonitor.chkBoxMonitorTitle.checked == true)
{
var ele = document.frmMonitor.elements("chkBoxMonitor");
var x, len = ele.length;

for (x=0 ; x<len ; x++)
{
if (ele[x].type == "checkbox")
{
ele[x].checked = true
ele[x].value = "On"
}
}
}

if (document.frmMonitor.chkBoxMonitorTitle.checked == false)
{
var ele = document.frmMonitor.elements("chkBoxMonitor");
var x, len = ele.length;

for (x=0 ; x<len ; x++)
{
if (ele[x].type == "checkbox")
{
ele[x].checked = false
ele[x].value = "No"
}
}
}

}

function right(e)
{
if (navigator.appName == 'Netscape' &&
(e.which == 3 || e.which ==2))
return false;
else if (navigator.appName == 'Microsoft Internet Explorer' &&
(event.button == 2 || event.button == 3))
{
alert("Spiacenti, il tasto destro del mouse e' disabilitato");
return false;
}
return true;
}
document.onmousedown=right;
if (document.layers) window.captureEvents(Event.MOUSEDOWN);
window.onmousedown=right;
// End
</script>

Modificato da Pushpam il 10 maggio 2005 19.25 -

Rispondi Quoting

expertone

l'11 maggio 2005 alle 01:44

77 messaggi dal 16 febbraio 2001

scusami se no nmi leggo tutto il listato... pero' ti dico che se:

1) hai un avariabile nella pagina ad esempio X
2) fai: session("variabileX")= X

anche se pagini rimane

ciao

Rispondi Quoting

Pushpam

l'11 maggio 2005 alle 11:17

60 messaggi dal 29 aprile 2003

Grazie.
Se vedi la pagina che ho mandato, ci faccio anche una querystring. In quel momento la session si perde. Questo è il mio problema.

Mi aiuti?
Pushpam

Rispondi Quoting

filippo_260367

il 13 maggio 2005 alle 16:48

265 messaggi dal 28 aprile 2001

Ciao,

hai provato ad abilitare il buffer ?

Per farlo devi aggiungere come prima riga del codice ASP la stringa

<%
Response.Buffer=True
..
..
...

Ciao
Filippo

Non dir di me' se di me' non sai, pensa di te ... e poi di me' dirai.

Autore (sottoscritto)

Rispondi Quoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.

Community

Corsi e consulenza

In primo piano

.NET Conference Italia 2024 - Milano

.NET Conference Italia 2023 - Milano e Online

Le novità di .NET 7 e C# 11

Le novità in ASP.NET Core e Blazor con .NET 7

I più letti di oggi

In evidenza

Misc

Utilizziamo i cookie per analisi, contenuti personalizzati e pubblicità.

.NET Conference Italia 2024 - Milano

.NET Conference Italia 2023 - Milano e Online

Le novità di .NET 7 e C# 11

Le novità in ASP.NET Core e Blazor con .NET 7