Foster1's Blog

Evident unele proprietati si metode ale obiectelor Request, Response, Server, Application, Session sint mai mult folosite decit altele.

Sa vedem un mic exemplu de pagina ASP:
<%
response.write "<HTML><BODY>" & _
"Aceasta este o pagina construita cu response.write" & vbcrlf
response.write "</BODY></HTML>"
%>

Exemplu de utilizare functii in pagina ASP:
<HTML><BODY>
Acum este: <% =ScrieDataOra() %>
</BODY></HTML>
<%
Function ScrieDataOra()
ScrieDataOra="data " & FormatDateTime(Now,vbShortDate) & " ora " & FormatDateTime(Now,vbShortTime)
End Function
%>

In acest caz s-au folosit 2 functii VBScript si anume FormatDateTime care formateaza o data intr-un anume fel specificat printr-o constanta (vbShortDate, vbShortTime), respectiv Now care returneaza data si ora curenta. In plus am folosit o functie creata in codul ASP numita ScrieDataOra.
Asemenea functiilor se pot crea in codul ASP si proceduri

Sub nume_proc()
...
End Sub

Foarte multe pagini ASP folosesc baze de date MS SQL Server sau Access pentru pastrarea unor diverse informatii. Sa vedem cum se poate face asta intr-un mic exemplu. Presupunem ca avem o baza de date numita "test.mdb" in directorul paginii "test.asp" care are table-ul "Users".

<html>
<body>
Toti userii inregistrati sint:<br>
<%
Dim con, rec
Set con=Server.CreateObject("ADODB.Connection")
Set rec=Server.CreateObject("ADODB.Recordset")
con.Open "DBQ=" & Server.MapPath(".") & "test.mdb;Driver={Microsoft Access Driver (*.mdb)};"
if request.Form("nume")<>"" then _
con.Execute "INSERT INTO Users(Nume) VALUES('" & request.Form("nume") & "')"
rec.Open "SELECT * FROM Users",con
while not rec.EOF
response.write rec.Fields("Nume") & "<br>" & vbcrlf
rec.MoveNext
wend
rec.Close
Set rec=Nothing
con.Close
Set con=Nothing %>
<form action="test.asp" method="post">
Numele: <input type=text name="nume">
<input type=submit value="Adauga">
</form>
</body>
</html>

Pentru deschiderea Recordset-ului am folosit valorile default pentru acesta si am adaugat valorile in baza de date folosind Connection. Dupa cum vedeti pagina in care vor fi POST-ate valorile la apasarea pe butonul Adauga este chiar pagina insasi (test.asp). Aceste valori se regasesc in Request.Form("numele_cimpului_din form"). Daca in FORM este un cimp checkbox valoarea lui este vida sau "on" dupa cum cimpul este marcat sau nu. ( exemplu: if request.Form("Checkbox1")="on" then ... ' este marcat)

Foster1's Blog

06.04.2009

Exemplu de pagina ASP

About me :)

Search this blog

Archive