Exemplu/H2>
parent.sus.document.write("Salut, " + f.Prenume.value + " " + f.Nume.value);
parent.sus.document.write("
VISIBILITY="Show">
Bila se rostogoleste peste text, inainte si inapoi...
OnLoad="plimba();">
<%
Session.timeout=5
If IsObject(Session(“Exemplu_conn”)) Then
Set conn=Session(“Exemplu_conn”)
Else
Set conn=Server.CreateObject(“ADODB.Connection”)
conn.open “Exemplu”,””,””
SetSession(“Exemplu_conn”)=conn
End If
If IsObject(Session(“Exemplu_rs”)) Then
Set rs=Session(“Exemplu_rs”)
Else
sql=”SELECT * FROM (Exemplu)”
Set rs=Server.CreateObject(“ADODB.Recordset”)
rs.Open sql, conn, 3,3
If rs.eof Then
rs.AddNew
End If
Set Session(“Exemplu_rs”)=rs
End If
%>
Va urma un script ce va afisa un mesaj pt. utilizator in functie de ora sistemului
<%
Dim ORA
‘Aceasta linie este un comentariu ce nu va fi afisat!
‘In continuare se vor folosii functiile VBScript Hour si Now
Ora=Hour(Now))
Response.Write ORA ‘folosind response.write se afiseaza ora sistemului
If ORA<9 Then
Response.Write “Buna Dimineata!”
ElseIf ORA<18 Then
Response.Write “Buna Ziua!”
Else
Response.Write “Buna Seara!”
End If
%>
4
Aceasta pagina foloseste metodele write, redirect si end
-
<%
-
Dim ORA
6 Ora=Hour(Now( ))
7 if ORA<10 Then
8 Response.Write “Buna Dimineata! Veti fi redirectat catre pagina” &_
9 “ce contine stirile de dimineata!”
10 Response.Redirect “ZoriDeZi.asp”
11 ElseIf ORA<18 Then
12 Response.Write “Ne pare rau! Pagina nu este disponibila intre 9 si 18”
13 Response.End
14 Else
15 Response.Write “Buna Seara! Bine ati venit pe pagina cu stirile de seara!”
-
End If %>
17 <%= “Este ora “ & ORA %>
18 <%= “Se pot integra si tag-uri HTML intre ghilimele! 18>10>18>9>
Dostları ilə paylaş: |