ASP Classic izvorni kod

ASP PRIMJERI

ASP (Active Server Pages) je Microsoft-ov jezik za programiranje i kodiranje web stranica koji se koristi zajedno sa HTML-kodovima.
Primjeri i pojašnjenja.

Baza, konekcija

Dim cnn, rs

Set cnn = Server.CreateObject("ADODB.Connection")

Set rs = Server.CreateObject("ADODB.Recordset")

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("04programi.mdb")

rs.Open "SELECT ID,ocjena FROM vicevi WHERE cstr(id)=""" + ide + """", cnn, 0

where po id: (ide je jednadžba)

rs.Open "SELECT ID,ocjena FROM vicevi WHERE cstr(id)=""" + ide + """", cnn, 0

rs.Open "SELECT Naziv FROM Mjesta WHERE ZupanijaID=" + CStr(zid) + " ORDER BY Naziv", cnn, 0

--------------------------------------------------

where po"nazivu": ili kad nije jednadžba

rs.Open "SELECT id,brojocjena,ocjena,ime,upis,kategorija,
datum from vicevi where kategorija like""%" + "Ne znam" + "%""", cnn, 0

descending (od Z do A)

rs.Open "SELECT Tekst, Datum FROM Novosti ORDER BY Datum DESC", cnn, 0

-------------------------------------------------

update po id u (+1):

cnn.Execute "UPDATE vicevi SET brojocjena=brojocjena+1 where id = " + ide,,128

ako je varijabla (+n):

cnn.Execute "UPDATE vicevi SET ocjena=ocjena + " + request.form("optodabir")+ " where id = " + ide,,128

-------------------------------------------

Insert into sa datumom i samo jedan unos

cnn.Execute "INSERT INTO Vicevi(KategorijaID,
Naslov,Tekst,Datum,Ime,Email,
OcjenaUkupno,OcjenaBroj) VALUES(" + CStr(varKategorijaID) + ",""" +
varNaslov + """,""" + varTekst + """,#" + CStr(Year(Now))+"-"+ CStr(Month(Now))
+"-"+ CStr(Day(Now)) + "#,""" + varIme + """,""" + varEmail + """,0,0)",,128

cnn.Execute "INSERT INTO email(adresa) VALUES (""" + CStr(strEmail) + """)",,128
------------------------------------------------------------

Set cnn = Server.CreateObject
("ADODB.Connection")
cnn.Open "Provider=
Microsoft.Jet.OLEDB.4.0;Data Source="
+ Server.MapPath("dfoum.mdb")

cnn.execute "delete
from poruke where cstr(mesage_id)
=" + cstr(odgovorid)

cnn.close
set cnn=nothing

--------------------------------------------

naredba kada vučemo iz dvije tablice

Dim rs As New ADODB.Recordset

rs.Open "SELECT Osobe.Ime AS OsobaIme, Racunala.Ime AS RacunaloIme FROM Osobe, Racunala WHERE (Osobe.ID=Racunala.VlasnikID) AND (Osobe.Ime LIKE ""%" + str + "%"")", cnn, adOpenForwardOnly

Do Until rs.EOF = True 'Do While rs.EOF = False

Debug.Print rs!OsobaIme, rs!RacunaloIme

rs.MoveNext

Loop

----------------------------------------------

skriveno dugme(hidden):

response.write "<input type=""hidden""
name=""kategorija"" value="""+cstr(rs("kategorija"))+""">"

link i prenošenje dvije varijable na sljedeću stranicu

response.write "<a href=""
slike.asp?KategorijaID=" + Cstr(varKategorijaID) + "&ProID=" + cstr(rs("id")) + """>" + "<img src=""infogama.gif"" border=""no"">" + "</a>"

------------------------------------------

forme asp

response.write "<form method=""post""
action=""kolica.asp"">"

response.write "<input type=""submit""
value=""Dodaj"">"

response.write "<input type=""hidden""
name=""ProID"" value=""" + cstr(rs("id")) + """>''

forme bez asp a (razlika je samo u navodnicima, samo jedan navodnik)

<form method=''post'' action=''default.asp''>

text

<input type="text" name="txtime">

radio

<input type="radio" name="optspol" checked> Muški<br>

<input type="radio" name="optspol"> Ženski <br>

checkbox

<input type="checkbox" name="punoljetan" checked> Punoljetan <br>

textarea

<textarea rows="5" cols="15"> Komentar </textarea><br>

submit

<input type="submit" name="cmdsubmit"
value="Šalji">   

reset

<input type="reset" name="cmdreset"
value="Briši"><br>   

combobox

<select name="cmbartikl" size="3">

<option> Teletina </option>

<option selected> Svinjetina </option>

<option> janjetina </option>

</select>

--------------------------------

liste

<ul>

<li>Stipe</li>

<li>Jure</li>

<li>Jure</li>

<li>Ante</li>

</ul>

<hr>

<ol>

<li>Stipe</li>

<li>Jure</li>

<li>Jure</li>

<li>Ante</li>

</ol>

<hr>

<dl>

<dt>street

<dd>ulica</dd>

<dd>cesta</dd>

</dt>

<dt>Duck

<dd>Patak</dd>

<dd>Sageti se</dd>

</dt>

</dl>

------------------

Replace sa navodnicima (ako ovo ne upišete ako netko upiše navodnike javi se pogreška)

varNaslov = Replace(varNaslov, """", """""")

Promjena slike prilikom prelaza mišem preko iste:

<img src="prva.gif" name="imgX" width="160" height="100" onMOuseOver="document.imgX.src=
'druga.gif';"

onMouseOut="document.imgX.src='prva.gif';">

-------------------------------------

ASP pozivanje datuma iz baze i funkcija datuma:

rs2.Open "SELECT * from poruka where datum)=#" +

FormatDateTimeSQL(CDATE
(request.form("tajdatum")) ) + "#", cnn, 0

Trebaju jos dvije funkcije:

Function FormatDateTimeSQL(value)

FormatDateTimeSQL = CStr(Year(value))
+ "-" + Format00(Month(value)) +

"-" + Format00(Day(value)) + " " +
Format00(Hour(value)) + ":" +

> Format00(Minute(value)) +
":" + Format00(Second(value))

End Function

Function Format00(number)

If (Number < 10) Then

Format00 = "0" + CStr(Number)

> Else

Format00 = CStr(Number)

End If

End Function

-------------------------------------

Sub Session_OnStart

dim dbConn
dim connstring
set dbConn=server.createobject
("ADODB.Connection")
ConnString = "
Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=" &
server.mappath("imebaze.mdb")

Session.Timeout = 20

Application.Lock

strSQL = "UPDATE brojac SET
broj_posjeta=broj_posjeta+1 WHERE id = 1"
dbConn.Execute(strSQL)

Application.UnLock

End Sub

-------------------------------------

Sub Application_OnStart()
Application.Lock
Application ("timer")=Now()
Application.Unlock
end sub

Sub Application_OnEnd()

end sub

Sub Session_OnStart()
If datediff("d",
Application("timer"), Now() ) >= 1 Then

' NEKI KOD

Application.Lock
Application("timer") = Now()
Application.Unlock

end if

End Sub

-------------------------------------

Provjera valjanosti email unosa na stranici
Function ValidateInput(myinput)

Dim objRegExpr

Set objRegExpr = New regexp

objRegExpr.Pattern = "^[a-zA-Z0-9][\w\.-
]*[a-zA-Z0-9]@[\w-\.]*[a-zA-Z0-9]\
.[a-zA-Z]{2,7}$"

objRegExpr.Global = True

objRegExpr.IgnoreCase = True

isValid = False

isValid = objRegExpr.Test(myinput)

ValidateInput = isValid

End Function

If ValidateInput(mail) = False Then

Response.Write("Emai adresa nije upisana korektno.. Povratak na upis! (Back)")

Else

Response.write(" Email je korektno upisan")

end if

-----------------------------------

Meta tag za hrvatska slova na web stranici

Include

CSS pozivanje

Session varijabla

Session("Ime")=20

---------------------------------------------

ASP urlencode prenošenje:

response.redirect("stranica.asp?poruka= & Server.URLEncode("Danas je lijep dan"))

---------------------------------------------

ASP slanje error a ili pogreške:

if Ucase(zaporka) <> "ABCD" then
response.redirect("default.asp?error="1")

//dole šaljemo i ime

if Ucase(zaporka) <> "ABCD" then
response.redirect("default.asp?error="1" &ime=" & ime)

if request.QueriString("error") = "1" then...

ASP učitavanje svega što je stiglo:

for Each podatak In Reyuest.QueryString

Response.write podatak & " = " &
Request.QueryString(podatak) & "<br>"

----------------------------------

ASP ispis po stranicama, (dakle da na jednoj stranici učitava samo 5 stavki).

dim Conn, Rs, Max, Brojstranica, n

'start varijable služi za uređivanje trenutne stranice

Start= Request.Querystring("Start")

'Ako je primljena valjana vrijednost, pretvara se u broj

'ina
če se prikazuje prva stranica

If Start <> "" and IsNumeric(Start) then Start= Cint(Start) Else Start= 1

'Broj vijesti po stranici

Max = 5

'Otvaranje baze

set Conn = Server.Createobject("ADODB.Connection")

'Set Conn = Server.CreateObjekt("ADODB. Connection")

Conn.open "PROVIDER=MICROSOFT.JET
.OLEDB.4.0;DATA SOURCE=" + server.MapPath("nekbaza.mdb")

'Conn.open Aplication("Conn")

'otvaranje recordseta

'koristi se adOpenStatic kursor zbog prikaza po stranicama

Set Rs = Server.CreateObject("
ADODB.Recordset")

Rs.Open "Select ueberschrift
from artikel order by ueberschrift asc", Conn, 3, 1

'ako recordset nije prazan

If Not Rs.Eof then

'postavljanje veličine stranice

Rs.PageSize= Max

' Koliko se zapisa sprema u memoriju

Rs.CacheSize = Max

' Dohvat ukupnog broja stranica

Brojstranica = Rs.PageCount

'Podešavanje varijable start u slu
čaju greške

If Start > Brojstranica then Start = Brojstranica

If Start <= 0 then Start = 1

'pozicioniranje na trenutnu stranicu

Rs.AbsolutePage = Start

'Kretanje kroz zapise stranice

For n = 1 to Max

Response.write "<b>" &
Rs("ueberschrift") & "<
/b><br>"

'Response.write Rs("Tekst") & "<br>"

'prelazak na sljedeći zapis

Rs.MoveNext

'Ako se došlo do kraja recordseta izađi iz petlje

if Rs.Eof then Exit for

'Recordset je prazan, ispiši poruku

else

Response.write "Nije pronađena nijedna vijest u bazi"

end if

'Zatvaranje recordesta i baze

Rs.Close

Conn. Close

'response.write Brojstranica & ","

' Ispisivanje stranica rezultata

If Brojstranica > 0 then

Response.write "Stranice:"

'Prolazi kroz sve stranice

For n = 1 to Brojstranica

'Ako se ne radi o trenutnoj stranici ispiši link

If n <> Start then

%><a href = "ispis.asp?
Start=<%= n %>"><%= n %></a><%

'Inače samo ispiši broj stranice bez linka

else

Response.write "<b>" & n & "</b>"

end if

Na vrh stranice..

Osobna stranica sa naglaskom na programske jezike
Napisao Antun Č.