ASP neke naredbe i i rad sa bazama podataka


Meta tag za hrvatska slova na web stranici

<meta http-equiv="content-type" content="text/html;charset=Windows-1250">

Include

<!-- #INCLUDE VIRTUAL="webshop/meni.asp" -->

CSS pozivanje

<link rel="stylesheet" href="prva.css" type="text/css">

Session varijabla

Session("Ime")=20

Baza, konekcija i recordset

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

delete

cnn.execute "delete from imena where cstr(id)=" + cstr(request.form("ide"))

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

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

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"> &nbsp;&nbsp;

reset

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

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

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>"

next

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

Next

'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

Next

end if

%>

 

 

Global asa učitavanje baze:

sub Application_onStart

Application("Conn") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("baza/mojstie.mdb")

end sub

//čitanje na svakoj stranici upisati:

Conn.Open Application("Conn")

Na vrh stranice..