A scuola di asp

[grottafelix]

Jan come promesso stamattina inizio a studiare ASP

 

[jan267]

Entra in chat.. che ti faccio da supporto...
auuaua

 

[grottafelix]

Originally posted by jan267
Entra in chat.. che ti faccio da supporto...
auuaua

L'oggetto Response ha i seguenti "Metodi":

AddHeader, AppendToLog, BinaryWrite, Clear, End, Flush, Redirect, Write

E queste "Proprietà":

Buffer, CacheControl, Charset, ContentType, Expires, ExpiresAbsolute, IsClientConnected, PICS, Status

Ha anche una "Collezione":

Cookies

 

[grottafelix]

Usando il metodo Write del Response siamo in grado di scrivere sullo schermo. Usando il Request siamo in grado di leggere dallo schermo

comincio a capire qcs!!!

 

[grottafelix]

Jan che errore è questo:

Errore di run-time di Microsoft VBScript errore "800a01b6'

Proprietà o metodo non supportati dall'oggetto: 'fs.Close'

/asp/peppo.asp, riga 28

 

[grottafelix]

<%
Function ParteDelGiorno()
'--------------------------------------------------------
'Purpose: calcola la parte del giorno per salutare
'Date: 10 March 2001
'Commenti:
'--------------------------------------------------------
Dim cheora

cheora = Hour(Now)

Select case cheora
case 8,9,10,11,12
cheora = "Buongiorno"
case 13,14,15,16,17
cheora = "Buon pomeriggio"
case 18,19,20,21,22,23,24
cheora = "Buonanotte"
case else
cheora = "Spegni il computer e vai a letto"
End Select

ParteDelGiorno = cheora

End Function

Che c'è di sbagliato???

 

[grottafelix]

ho messo

Response.Write
al posto fi funciton
e

Call ParteDelGiorno() dopo end

ma mi da sto errore:

Errore di compilazione di Microsoft VBScript errore "800a0400'

Prevista istruzione

/asp/ora.asp, riga 25

End Function
^

 

[jan267]

tieni l`ho rifatto io:

<% 
Function ParteDelGiorno() 
Dim cheora 
Dim messaggio

cheora = Hour(Now) 
messaggio = ""

Select case cheora 
case 8,9,10,11,12 
messaggio = "Buongiorno" 
case 13,14,15,16,17 
messaggio = "Buon pomeriggio" 
case 18,19,20,21,22,23,24 
messaggio = "Buonanotte" 
case else 
messaggio = "Spegni il computer e vai a letto" 
End Select 

ParteDelGiorno = messaggio

End Function 
%>
<% Response.Write ParteDelGiorno() %>

Bye

 

[grottafelix]

Ok funge ora! Thanks

p.s. prima si è impallato il pc

 

[grottafelix]

Originally posted by jan267
tieni l`ho rifatto io:

<% 
Function ParteDelGiorno() 
Dim cheora 
Dim messaggio

cheora = Hour(Now) 
messaggio = ""

Select case cheora 
case 8,9,10,11,12 
messaggio = "Buongiorno" 
case 13,14,15,16,17 
messaggio = "Buon pomeriggio" 
case 18,19,20,21,22,23,24 
messaggio = "Buonanotte" 
case else 
messaggio = "Spegni il computer e vai a letto" 
End Select 

ParteDelGiorno = messaggio

End Function 
%>
<% Response.Write ParteDelGiorno() %>

Bye

Sapresti implementare questo script con l'ora e la data???

con il risultato del tipO: Buonasera sono le 22.10 Oggi è martedi 22-09-03

 

[jan267]

<% 
Function ParteDelGiorno() 
Dim cheora 
Dim messaggio
Dim dataora

cheora = Hour(Now) 
messaggio = ""
dataora=" sono le" & Time() & ". Oggi è il " & Date()

Select case cheora 
case 8,9,10,11,12 
messaggio = "Buongiorno" & dataora
case 13,14,15,16,17 
messaggio = "Buon pomeriggio" & dataora
case 18,19,20,21,22,23,24 
messaggio = "Buonanotte" & dataora
case else 
messaggio = "Spegni il computer e vai a letto" & dataora
End Select 

ParteDelGiorno = messaggio

End Function 
%>
<% Response.Write ParteDelGiorno() %>

 

[grottafelix]

Non funge. esce solo il saluto

 

[grottafelix]

Originally posted by grottafelix
Non funge. esce solo il saluto

Jan sei morto<???