If InStr(SirSQL,”UTILIZATORI”)>0 OR
InSTR(SirSQL,”DREPTURITABELE”)>0 Then
Response.Write “Accesul la aceasta tabele nu este permis!!!”
Response.End
End If
Dim conx ‘conexiunea ADO
Set conx=Server.CreateObject(“ADODB.Connection”) ‘crearea conexiunii
conx.Open(“Baza1”) deschiderea conexiunii
If LEFT(SirSQL,6)=”SELECT” Then
‘daca este o interogare de tip Select se va deschide un recordset se vor afisa datele
Dim rec ‘recordsetul ADO
Set rec=conx.Execute(SirSQL)
While NOT rec.EOF
For Each Item in rec.fields
‘se afiseaza valoarea unui camp si se adauga cateva spatii
Response.Write rec.Fields(Item.Name) & “ “
Next
Response.Write “
”
Rec.MoveNext
Wend
rec.Close
Set rec=Nothing
Else
‘daca este o interogare de actiune se va executa interogarea
conx.Execute(SirSQL)
End If
conx.Close
Set conx=Nothing
%>
<%
Dim conx ‘conexiune ADO
Set conx=Server.CreateObject(“ADODB.Connection”) ‘crearea conexiunii
conx.Open (“Baza1”) ‘deschiderea conexiunii
Dim rec1 ‘recordset ADO pentru afisarea tabelelor pe care utilizatorul le poate afisa
Set rec1=
conx.Execute(“SELECT*FROM DrepturiTabele WHERE NumeUtilizator=’” & Session(“NumeUtil”) & “’;”)
While Not rec1.EOF
‘tag-urile HTML determina scrierea tabelei cu litere ingrosate
Response.Write “ Tabela:” & rec1.fields(“NumeTabela”) & “”
Response.Write “
”
Dim rec2 ‘recordset ADO pentru a afisa numele de campuri
Set rec2=conx.Execute(“SELECT*FROM” & rec1.fields(“NumeTabela”) & ”;”)
For Each Item in rec2.Fields
Response.Write item.name & “
”
Next
rec2.Close
Set rec2=Nothing
rec1.MoveNext
Wend
rec1.Close
Set rec1=Nothing
conx.Close
Set conx=Nothing
%>
<%
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
5 <% Dimm ORA
6 Ora=Hour(Now( ))
7 ORA<10 Then
8 Response.Write “Buna Dimineata! Veti fi redirectat catre pagina” &_
9 “ce contine sterile 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!”
16 End If %>
17 <%= “Este ora “ & ORA %>
18 <%= “Se pot integra si tag-uri HTML intre ghilimele!
Dostları ilə paylaş: | 
