Grazie al seguente script, è possibile segnalare, tramite IsPostBack, se un form è stato compilato.

<%@ page language=”vb”%>

<script runat=”server”>

Sub page_load( obj As object, e As EventArgs )

If Not page.isPostBack then

elabora.text =”Compilare il modulo.”

End if

End sub

Sub invio_form( obj As object, e As EventArgs )

‘Qua bisogna inserire l’elaborazione del form

elabora.text = “Form Inviato ed elaborato. Grazie ” & myName.text

End sub

</script>

<html>

<body>

<form runat=”server”>

<table width=”470″ border=”0″ cellspacing=”0″ cellpadding=”0″>

<tr>

<td>Nome</td>

<td>

<asp:TextBox id=”myName” runat=”server” />

</td>

<td>

<asp:Button id=”invio” runat=”server” text=”Invia” onClick=”invio_form” />

</td>

</tr>

<tr>

<td colspan=”3″>

<asp:Label id=”elabora” value=”” runat=”server” />

</td>

</tr>

</table>

</form>

</body>

</html>

Grazie al seguente script, si mostra come obbligare l’utente ad immettere informazioni in un determinato campo del form.

<%@ page language=”vb” %>

<%@ import Namespace=”System.Web.UI.WebControls” %>

<script runat=”server”>

Sub elabora( obj As Object , e As EventArgs )

If page.isValid then

lbMsg.text = ” Modulo compilato correttamente”

End If

End Sub

</script>

<form runat=”server”>

Campo obbligatorio

<asp:TextBox id=”tbObb” runat=”server” />

<br>

Campo <b>NON</b> obbligatorio

<asp:TextBox id=”tbLibero” runat=”server” />

<br>

<asp:Button id=”btSubmit” runat=”server” text=”Prova” onClick=”Elabora” />

<br>

<asp:RequiredFieldValidator runat=”server” controlToValidate=”tbObb” errorMessage=”Immettere campo obbligatorio” />

<br>

<asp:Label id=”lbMsg” value=”” runat=”server” />

</form>

ASP.net. Questo tutorial permette di ricreare una semplice Chat utilizzando il Framework .NET, l’ambiente di esecuzione a runtime della piattaforma .NET creata da Microsoft attraverso la quale è possibile gestire applicazioni destinate al .NET Framework stesso. Dalle configurazioni generali della Chat alla sua inizializzazione fino alla modifica degli stili e alla formattazione per personalizzare il progetto fin nei minimi particolari.

Grazie al seguente script, è possibile stabilire se il campo immesso in un form è numerico (di tipo intero) oppure no.

<%@ page language=”vb” %>

<%@ import Namespace=”System.Web.UI.WebControls” %>

<script runat=”server”>

Sub elabora( obj As Object , e As EventArgs )

If page.isValid then

lbMsg.text = ” Modulo compilato correttamente”

End If

End Sub

</script>

<Form runat=”server”>

Immettere dato numerico <b>INTERO</b>

<br>

<asp:TextBox id=”tbnumero” value=”” runat=”server” />

<br>

<asp:Button id=”btValida” text=”Verifica” runat=”server” onClick=”elabora” />

<br>

<asp:CompareValidator runat=”server” controlToValidate=”tbnumero” type=”Integer” operator=”DataTypeCheck” errorMessage=”Dato NON valido. Immetter numero” />

<br>

<asp:Label id=”lbMsg” value=”” runat=”server” />

</Form>

Grazie al seguente script, è possibile riconoscere se il numero di cellulare immesso in un form è corretto oppure no.

<%@ page language=”vb” %>

<%@ import Namespace=”System.Web.UI.WebControls” %>

<script runat=”server”>

Sub elabora( obj As Object , e As EventArgs )

If page.isValid then

lbMsg.text = “Numero Corretto – NON si garantisce esistenza.”

End If

End Sub

</script>

<form runat=”server”>

Prefisso

<asp:TextBox id=”tbPref” runat=”server” />

<asp:RegularExpressionValidator runat=”server” controlToValidate=”tbPref” validationExpression=”3[0-9]{2}” errorMessage=”Inserire prefisso” />

<br>

Numero

<asp:TextBox id=”tbNumero” runat=”server” />

<asp:RegularExpressionValidator runat=”server” controlToValidate=”tbNumero” validationExpression=”[0-9]{7}” errorMessage=”Inserire numero” />

<br>

<asp:Button id=”btSubmit” runat=”server” text=”Verifica” onClick=”Elabora” />

<br>

<asp:Label id=”lbMsg” value=”” runat=”server” />

</form>

Visualizzare link casuali da una lista in una pagina Web.

<%@ Page language=”VB” %>

<script runat=”server”>

Sub page_load( obj As object, e As EventArgs)

Dim strLink As String

strLink = “”

Dim intCasuale As Integer

intCasuale = (5-1)*Rnd + 1

intCasuale = cint( intCasuale )

Select Case intCasuale

Case 1:

strLink = “http://www.innovatel.it”

Case 2:

strLink = “http://www.html.it”

Case 3:

strLink = “http://www.flash5.it”

Case 4:

strLink = “http://www.gifanimate.it”

Case 5:

strLink = “http://www.freeasp.it”

End Select

myLink.NavigateUrl = strLink

End sub

</script>

<asp:hyperlink id=”myLink” runat=”server”>

Link Casuale

</asp:hyperlink>

Grazie al seguente script, è possibile mostrare al proprio visitatore un sito web casuale tra quelli contenuti in un array specifico.

<% @page language=”Vb” %>

<script runat=”server”>

Sub page_load(obj As object, e As eventargs)

randomize

Dim strSito() as string={ “html.it”, “innovatel.it”, “gifanimate.it”, “freeasp.it”, “freephp.it”}

Dim intCasuale As Integer

intCasuale =ubound(strSito)-lbound(strSito)

intCasuale = intCasuale * rnd

intCAsuale = intCasuale + lbound(strSito)

intCasuale = cint(intCasuale)

consiglio.text =”Sito consigliato: “+strSito(intCasuale)

End sub

</script>

<asp:Label id=”consiglio” value=”” runat=”server”/>

Grazie al seguente script, è possibile mostrare il valore identificativo della variabile di sessione sfruttando VB.NET:

<%@ Page language=”VB”%>

<script runat=”server”>

Sub page_load( obj As object, e As EventArgs )

sess_id.text= “Id della sessione corrente: “+session.sessionID

End sub

</script>

<asp:Label id=”sess_id” value=”” runat=”server” />