MyCity :: ASP

ASP quiz & ASP certificate

nobody@mycity.rs (snoop) — Sun, 27 Mar 2005 17:04:28 +0100

ako zelite da proverite svoje znanje. doduse ovo su neka elementarno osnovna pitanja...
ja sam na svih 20 odgovorio tacno...

pa ko zeli, neka proba...

[Link mogu videti samo ulogovani korisnici]

i ako zelite ASP certificate (jos nisam polagao )

[Link mogu videti samo ulogovani korisnici]

ipak zaboravite za ovo drugo . treba da se registruje i plati ~50$ po ispitu, ali za onog ko hoce - slobodno

ASP Tutorial - Objekat Request

nobody@mycity.rs (snoop) — Fri, 28 Jan 2005 00:28:27 +0100

zavrsili smo osnove ASP i sada cemo preci na objekat Request koji se cesto koristi pri izradi ASP stranica.

ASP sadrzi pet primarnih objekata.

Request, Response, Application, Session i Server

Request - Daje podate o posetiocu
Response - Metode i svojstva koje se koriste za prikaz posetiocu (odgovor na Request)
Application - Slicno kao Session samo sto se odnosi na celu aplikaciju. Rad sa svojstvima koja upravljaju Web

stranicom
Session - Metode i svojstva za jednog odredjenog korisnika
Server - Skup komponenata na serveru i podesavanje servera

Objekat Request

pomocu Request objekta, mozete da pristupate podacima korisnika koji je trenutno na vasoj web prezentaciji.

sledeci kod vam objasnjava kako da prikazete na vasoj web strani IP korisnika




<%


Response.Write(Request.ServerVariables("REMOTE_HOST"))


%>

kada imate objekte u formi za npr. log in. na neki nacin trebate da uzmete to sto je korisnik uneo.
Objekat Request ce vam pomoci u tome.

kada imate neku ovakvu formu:




<form name="login" method="post" action="login.asp">


<input type="text" name="username"><br>


<input type="text" name="password"><br>


<input type="button" name="Submit">


</form>

kada korisnik popuni neku ovako formu i kada klikne na Submit, forma ce 'pozvati' login.asp (sto zapravo moze

da bude i ista stranica u kojoj se nalazi forma) i preuzece podatke koje je korisnik napisao.

pre nego sto napisem kod koji bi resavao ovaj problem, moram da kazem sledece:
primetili ste da sam u zaglavlju forme napisao method="post". postoji jos i method="get". razlika izmedju ove

dve metode je sledeca:

kada stavite POST, sve podatke koje je korisnik poslao idu 'skriveno' i prihvataju se preko Request.Form

metode.

kada stavite GET, sve podatke koje je korisnik poslao ide preko linka web browsera i tako da gledanjem u link,

mozete videti sta je korisnik napisao. kada se radi o nekim informacijama tipa login sifra... ne preporucuje

se metoda GET nego POST...
metodom GET, podatke primate preko Request.QueryString metode.

kod na login.asp stranici za metodu POST bi ovako izgledao:




<%


If NOT isEmpty(Request.Form("Submit")) Then


   dim uname, pword, sql


   uname = Request.Form("username")


   pword = Request.Form("password")


   


   sql = "SELECT * FROM korisnici WHERE username='" & uname & "' AND " password='" & pword & "';"





   rs.Open sql, conn





   If rs.EOF Then


      Response.Write("Podaci se ne slazu sa onima iz baze podataka!")


   Else


      Response.Write("Dobrodosli " & uname)


   End If





   Response.Redirect("home.asp")


End If


%>

NAPOMENA:
posto jos nismo radili Connection i Recordset objekte (rs i conn), za sada sam ih ovako napisao, ali se

pretpostavlja da su validne reference na objekte tipa Recordset i Connection. O istim cemo pricati posle.

isti ovaj kod sa GET metodom bi ovako izgledao:




<%


If NOT isEmpty(Request.QueryString("Submit")) Then


   dim uname, pword, sql


   uname = Request.QueryString("username")


   pword = Request.QueryString("password")


   


   sql = "SELECT * FROM korisnici WHERE username='" & uname & "' AND " password='" & pword & "';"





   rs.Open sql, conn





   If rs.EOF Then


      Response.Write("Podaci se ne slazu sa onima iz baze podataka!")


   Else


      Response.Write("Dobrodosli " & uname)


   End If





   Response.Redirect("home.asp")


End If


%>

Kolekcija ServerVariables

ova kolekcija sluzi za ispisivanje podataka o korisniku koji se nalazi na vasoj web prezentaciji.

izdvojicu one najpotrebnije promenljive kao i opis istih....

REMOTE_ADDR - adresa racunara koji pravi zahtev
REMOTE_HOST - ime domena racunara (textualna IP adresa, ime providera) ako nema, onda pise samo IP adresa
LOCAL_ADDR - adresa servera
HTTP_REFERER - stranica preko koje je korisnik dosao na tekucu, ako je pritisnuo link
HTTP_USER_AGENT - vrsta citaca i verzija kao i OS korisnika

Kolekcija Cookies

kolacici sluze da zapisu neku informaciju o korisniku. npr, username pa da se sledeci put korisnik ne mora da

loguje nego je to automatski ili zapamti interesovanja korisnika pa ga redirektuje na adresu koja ga zanima.

kolacici postoje u JavaScriptu, a mogu se koristiti i direktno iz ASP-a.

ako zelite da napravite autologin ovakav kolacic bi vam bio od pomoci

Request.Cookies("UserName") = rs("username")

tako ce se u kolacic zapisati Username korisnika za sledecu posetu vasoj web prezentaciji

kolacici mogu da budu i slozeni

Request.Cookies("Company")("UserName") = rs("username")
Request.Cookies("Company")("URL") = rs("URL")

provera da li su kolacici slozeni se proverava preko svojstva HasKeys. ako je HasKeys True, kolacic je slozen,

ako je False, kolacic nije slozen

If Request.Cookies("Company").HasKeys Then
Response.Write("Ovaj kolacic ne da je slozen nego strasno! ")
Else
Response.Write("Ovaj kolacic nazalost nije slozen! ")
End If

zavrsili smo Request objekat. sledeci put prelazimo na Response.

sta vam nije jasno slobodno pitajte. ako ste nasli neku gresku, prijavite pa cu ispraviti...

to be continued...

ASP Tutorial - Osnove ASP-a (Deo II)

nobody@mycity.rs (snoop) — Wed, 26 Jan 2005 22:10:02 +0100

da nastavimo...
u proslom delu smo pricali o uslovima, petljama i promenljivama. sada cemo pricati o funkcijama i procedurama

i stime cemo zavrsiti ovaj deo Osnova ASP-a

Procedure

procedure su blokovi koda koji vas oslobadjaju bespotrebnog pisanja istog dela koda vise puta, a samim tim i

smanjuje velicinu stranice na serveru.
Procedure ne vracaju nikakvu vrednost i izvrsavaju se tako sto se navede ime procedure i eventualno argumente.

jednom napisana procedura moze da se poziva hiljadu puta.

sintaksa procedure:




<%


[Public | Private] Sub ime_procedure [(arg1, arg2, arg3... argn)]


'// blok koda


End Sub


%>

sve sto je unutar [ i ] zagrada je opciono...

kada je procedura deklarisana kao Public, to znaci da svi clanovi klase (pa i ovi izvan nje) u kojoj se nalazi

ta procedura imaju pristup njoj (ovo vazi i za funkcije, promenljive, konstante...)

Private znaci da samo clanovi klase mogu da joj pristupaju i zatvorena je za ostale procedure, funkcije izvan

te klase u kojoj je.

primer jedne procedure




<%


Public Sub Ispisi ()


Response.Write("Ja sam tekst koji je izbacila procedura Ispisi :)")


End Sub


%>

Funkcije (u daljem tekst f-je)

f-je su slicne procedurama stom razlikom sto vracaju vrednost i kao takve pogodne su da se ubacuju u uslove (u

prethodnom casu smo pominjali uslove) jer f-je vrate vrednost i odmah uporede sa uslovom.

sintaksa f-ja




<%


[Public | Private] Function ime_funkcije [(arg1, arg2, arg3... argn)]





End Function


%>

primer jedne f-je




<%


Public Function Saberi(a,b)


Saberi = a + b


End Function


%>

kada se izracunavanje u f-ji obavi, obavezno se rezultat mora vratiti imenu f-je Saberi = a + b.
kada smo ovo uradili, mozemo da ubacimo f-ju u uslov




<%


If Saberi(2,2) = 4 Then


Response.Write("Da, 2 + 2 jeste 4!")


End If


%>

ono sto ce vam trebati pri registrovanju (upisivanju novih korisnika u bazu) jeste validacija email adrese.
ovo mozete uraditi i bez f-je, ali je na ovaj nacin lakse zato jer ako se na vasem sajtu validacija email

adrese ponavlja vise puta, za svaki put vi biste pisali ponovo. ovako samo pozovete f-je sa drugim

argumentom/argumentima..

evo f-je za validaciju email adrese




<%


Dim at, dot


Public Function ValidEmail(polje_mail_adrese)


If Len(polje_mail_adrese) < 6 Then


   Response.Write("Email adresa nije validna!")


Else


   at = InStr(2, polje_mail_adrese, "@")


   If at = 0 Then


      ValidEmail = "Email adresa nije validna!"


   ElseIf CInt(dot) + 1 > Len(polje_mail_adrese) Then


      ValidEmail = "Email adresa nije validna!"


   Else


      ValidEmail = "Email adresa je validna!"


End If   


End Function


%>

ovaj kod mozete izmeniti i kao umesto vracanja Stringa (Email adresa nije validna!/Email adresa je validna!)

mozete da stavite 0/1 respektivno i ubacite ValidEmail u IF uslov i u zavisnosti od unesene email adrese if

uslov se grana gde treba i prikaze ono sto je potrebno...

ASP Tutorial - Osnove ASP-a (Deo I)

nobody@mycity.rs (snoop) — Wed, 26 Jan 2005 01:15:04 +0100

ASP je dinamicki script jezik slican PHPu i sluzi isto kao i PHP za izradu dinamickih web aplikacija (sta god to bilo (forumi, blogovi, sajtovi, shoppinh cart...))
ASP je skracenica od Active Server Pages i kao takve izvrsavaju se na serveru na kojima je instaliran IIS, o kome je bilo reci.
kao sto je slucaj sa PHPom, i ASP vraca korisniku rezultat izvrsavanja ASP stranica.

ASP kod unutar HTML stranice se nalazi unutar <% i %>...

ajde da uradimo jedan jednostavan primer...




<html>


<head>


<title>ASP Test stranica</title>


</head>


<body>


Danas je: <%= Now() %>


</body>


</html>

ovaj kod ce, kao rezultat, vratiti korisniku trenutno vreme koje je na serveru na kojem se izvrsila stranica.

<%= "X" %> je isto kao i <% Response.Write("X") %> stom razlikom da kada stavite <%= "X" %> onda u tom delu ne moze da stoji nista vise. npr. ovo nije moguce.




<%


Response.Write("X") '// komentar je samo apostrof, ali ja ga koristim ovako jer mi se svidjaju // :)


a = b + c


Response.Write(a)


%>

Promenljive

u promenljivama se cuvaju podaci koji su potrebni za dalji tok programa.
u ASPu mozete da deklarisete promenljive tako sto napisete Dim ime_promenljive.

Note:
u VBu posle imena promenljive obavezno treba da se kuca As String ili as Integer. u ASPu toga nema... znaci, nista As Nesto...

takodje, ne morate da deklarisete promenljive sa Dim nego jednostavno, odjednom negde nasred stranice da izmislite neku promenljivu i da nastavite nesmetano sa radom.
ovo se ne preporucuje zato sto moze da bude uzrok problema prilikom debugovanja u nekim velikim projektima gde broj linija prelazi ljudske mogucnosti

ako ste ne sigurni i ne znate da li ste deklarisali promenljivu ili ne, na pocetak stranice napisite Option Explicit i od tada, svaku promenljivu cete morati da deklarisete. ako to pak ne uradite, 'kompajler' ce vas na vreme upozoriti, pri pokretanju stranice.

manipulisanje sa promenljivama sigurno znate kako se obavljaju.
npr. obicno sabiranje:




<%


Dim a, b, c


a = b + c


Response.Write(a)


%>

sve se svodi na isto.

Uslovi

uslovi postoje kako program, aplikacija ne bi bila monotona i isla samo u jednom pravcu.
uslovi mogu i treba da promene redosled izvrsavanja aplikacije kada je to neophodno.

jedan od najpoznatijih uslova je IF.

sintaksa IF uslova"




<%


If Session("UserName") <> "Admin" Then


Response.Redirect("access_denied.asp")


Else


Response.Redirect("welcome.asp")


End If


%>

ovaj kod proverava da li ste admin i ako jeste prebacuje vas na stranicu welcome.asp, u suprotnom vam prikazuje access_denied.asp stranicu...

jos jedan 'derivat' IF uslova je IfElse

sintaksa IFELSE Uslova




<%


If Session("UserName") = "Admin" Then


Response.Redirect("admin/control_panel.asp")


ElseIf Session("UserName") = "Moderator" Then


Response.Redirect("welcome_mod.asp")


Else


Response.Redirect("access_denied.asp")


End If


%>

ovaj deo koda, proverava da li je Session promenljiva UserName jednaka Admin i ako jeste redirektuje korisnika na control panel, ako je korisnik Moderator onda prikazuje welcome moderatoru, a ako nije nista od toga (Admin, Moderator) salje ga na access_denied.asp stranicu. sto znaci, zabranjen pristup osim Adminima i Moderatorima...

svaki If mora da ima svoje End If

za ovako nesto, posebno ako ima vise uslova ne treba koristiti If Then Else nego treba koristiti Select Case

sintaksa SELECT CASE uslova




<%


Dim msg


Select Case msg


   Case "Yes"


      Response.Write("Kliknuli ste na Yes!")


   Case "No"


      Response.Write("Kliknuli ste na No!")


   Case "Maybe"


      Response.Write("Kliknuli ste na Maybe!")


End Select


%>

Petlje

sa petljom mozete jedan blok koda izvrsavati vise puta.
pomenucu Do, For...Next

sintaksa DO petlje




<%


Dim x


x = 4


Do Until x =5


Response.Write(x)


x = x + 1 '// ako ne stavite ovo povecavanje, vasa petlja nikada nece stati jer uslov nece biti zadovoljen i dovescete vasu petlju u DeadLoop, InfiniteLoop kako zelite... vrtece se tako do besvesti, a to nije ono sto zelimo...


Loop


%>

Do Until petlja ce ici sve dok uslov nije zadovoljen. kako se uslov zadovolji (rezultat uslova bude TRUE), petlja prestaje sa radom (strajkuje)

Sintaksa za FOR...NEXT petlju




<%


Dim i


For i = -3 To 6


Response.Write("<font size=" & i & ">Hello World</font><br>")


Next i '// moze i bez i. znaci samo Next


%>

For petlja ide od pocetne vrednosti (u ovom slucaju -3) pa sve do 6 i u tom njenom prolazu, odradjuje neki deo koda... ako vi u tom kodu vratite vrednosti promenljive i na -3 ili je izjednacite sa 6, For petlja ce stati.

za sada cemo ovde stati i ostavicu vas da malo pronjuskate po ovome da vidite kako ovo radi... nastavicemo za koji dan .

Instalacija IIS-a za ASP stranice

nobody@mycity.rs (snoop) — Wed, 26 Jan 2005 01:14:02 +0100

u rar fajlu je objasnjenje kako treba da se instalira IISi trebalo bi da radi... zar ne Pixi

samo posle preimenujte u .rar
[Link mogu videti samo ulogovani korisnici]

prva lekcija
[Link mogu videti samo ulogovani korisnici]

Text iz prikacenog pdfa u HTML obliku

Kako napraviti log in?

nobody@mycity.rs (snoop) — Tue, 05 Oct 2004 03:21:23 +0100

kada nesto pravite obicno zelite da odredjeni korisnici pristupaju odredjenim delovima vaseg sajta, aplikacije ili cega vec.
u tu svrhu mozete da napravite log in kako bi ih prepoznali i dozvolili pristup ili ne.

ono sto morate da imate to je ispravna konekcija prema bazi (u ovom slucaju Access, mada je ne bitno koja je baza)

Dim conn '// objekat koji ce da sluzi za konekciju prema bazi
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("moja_baza.mdb") & ";"
conn.Open

ovo mozete da stavite u poseban fajl npr. conn.asp i da ga uvezete u svaku stranicu (u login.asp u nasem slucaju) koja treba da kontaktira sa bazom pomocu  npr. na pocetku stranice pre <html> taga

zamislimo da u toj nasoj bazi imamo tabelu tblUsers sa sledecim atributima (poljima)

uid - User ID, tip Number i PrimaryKey
username - tip Text
password - tip Text
level - koji nivo ima, da li je admin ili sta vec, tip Text
mozete dodati i vise informacija, ali za ovo je dovoljno i ovoliko...

sada morate napraviti formu u kojoj ce se nalaziti dva text polja i jedno dugme tipa submit...

<form name="frmLogin" action="login.asp">
Korisnicko ime: <input type="text" name="username"><br>
Sifra: <input type="text" name="password"><br>
<input type="submit" name="submit" value="log in">
</form>

kada ste ovo dodali, mozete da krenete da pisete kod za log in.
pre nego sto ista uradimo, da napomenem da se ovaj kod nalazi u login.asp stranici dok ova forma u bilo kojoj drugoj...

posle taga </form> mozemo da krenemo da pisemo kod izmedju <%%>

<%
Dim rs, strSQL
strSQL = "SELECT * FROM tblUsers WHERE username='" & Request.Form("username") & "' AND password='" & Request.Form("password") & "';"
Set rs = Server.CreateObject("ADODB.Recorset")
Set rs = conn.Execute(strSQL)

If rs.EOF then
'// korisnik ne postoji u bazi
Response.Redirect("error.asp")
Else
'// korisnik postoji u bazi i postavljamo Session objekat
Session("UName") = rs("username") '// korisnicko ime koje cemo nekada negde ispisati
Session("Level") = rs("level") '// sluzi za proveru pri ulasku na neke zasticene stranice
Response.Redirect("main.asp")
End If
%>

na svaku stranicu koju zelite da zastitite od ne registrovanih korisnika treba skroooooz gore da postavite sledeci kod
<%
If IsEmpty(Session("UName")) Then
Response.Redirect("registration.asp")
End If
%>

ako zelite da stranicu zastitite od registrovanih korisnika, ali koji imaju manje prava onda trebate da ubacite sledeci kod
<%
If Session("Level") <> "Admin" Then
Response.Redirect("AuthorisationRequired.asp")
End If
%>

i na kraju logout...

napravite novi fajl koji ce se zvati npr. logout.asp i u njega upisite sledece
<%
Session.Abandon()
Response.Redirect("default.asp")
%>

nadam se da ce vam koristiti...

Prepoznavanje HTML linka

nobody@mycity.rs (snoop) — Tue, 05 Oct 2004 02:39:24 +0100

trazio, trazio i nasao... . da bi radilo i za nase stranice, mora malo da se prepravi...

Sub MakeHyperlinks(sContents)
Dim re, oMatches, oMatch, sURL, sLabel

Set re = New RegExp
re.Pattern = "(http://|https://|ftp://|gopher://)?([\w+-_]+\.)+(biz|com|gov|edu|name|net|org|us|uk|ca|au|jp) (/[\w-_\.]+)+(\??\S+)"
re.Global = True
re.IgnoreCase = True
re.Multiline = True
sContents = re.Replace(sContents, "<a href=""$1$2$3$4$5"" target=""_blank"">$2$3</a>")
End Sub

a koristi se na razne nacine. jedan od njih je:
sContents = "Trebalo bi posetiti [Link mogu videti samo ulogovani korisnici] iako sajt jos nije zavrsen "
MakeHyperlinks(sContents)
Response.Write(sContents)

- preuzeto sa [Link mogu videti samo ulogovani korisnici]