|
 |
|
| |
|
Powered by:
|
|
|
|
|
| |
<%
' ASP Banner Rotator (BETA) for IIS 4.0+
'
' Version: v1.0
' Author : Keith Ollerton (ollertonk@postmaster.co.uk)
' F1-Computer Solutions (c) 2000
'
' Last Modified: 09/08/2000
' All rights reserved.
' -----------------------------
'
' ASP Banner Rotator was tested under IIS 4.0 on a Windows NT 4.0 (SP5)
'
'
' Please send bug reports, comments, etc to ollertonk@postmaster.co.uk
'
' This version of ASP banner Rotator may be used and modified free of charge
' by anyone so long as this copyright notice and the comments above
' remain intact. By using this code you agree to indemnify
' Keith Ollerton from any liability that might arise
' from its use.
'
' Selling the code for this program without prior written consent is
' expressly forbidden.
'
' This is a beta release meant for testing only until this line is removed by the author.
'
' ChangeLog:
' 1.0 - Inital Release
' Set some general variables
BackgroundColor = "D6DFE7" ' background color of the page (hex value)
sDataSource = "e:\inetpub\wwwroot\autoskola.com.hr\banneri\470x70\banners.mdb" ' Local Path to Database
' Open Database Access Connection
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & sDataSource
mySQL="SELECT * FROM banners"
set rs=Server.CreateObject("adodb.recordset")
rs.open mySQL, Con, 3
BannersRecordCount=rs.recordcount
randomize()
dim RandomNumber
dim upperbound
dim lowerbound
upperbound = BannersRecordCount
lowerbound = 1
' Get a random record number between 1 and number of banners available
RandomNumber = int ((upperbound - lowerbound + 1) * rnd + lowerbound)
set rs=Server.CreateObject("adodb.recordset")
' Open Static RecordSet
' Equivalent values of adOpenKeyset, adLockPessimistic, adCmdTable
' from the adovbs.inc file which I haven't included here
rs.open "banners", Con, 1, 2, &H0002
' Move to the first record ready to cycle through them
rs.movefirst
' Cycle through the banners until we've got the n'th one
' We can't do this with a SELECT statement as the record
' with an ID matching the RandomNumber may have been delete.
dim intLoop
For intLoop = 1 To RandomNumber - 1
rs.movenext
next
' response.write ""
' response.write ""
' response.write ""
' response.write ""
' response.write " "
response.write ""
response.write "![](" & rs.fields("BannerImage") & ") "
' response.write " width='" & rs.fields("BannerWidth") & "' height='" & rs.fields("BannerHeight") & "'>"
' response.write ""
' response.write ""
' Increment the display count for this banner
dim current
current = rs.Fields("BannerDisplayCount")+ 1
rs.Fields("BannerDisplayCount")= current
rs.update
' Check to see if the banner has expired - if it has delete its record
if rs.fields("BannerExpiryDate") < date() then
' Delete the record - the 1 is the equivalent value of adAffectCurrent
' from the adovbs.inc file which I haven't included here
rs.Delete 1
end if
' Finished with the recordset now - so close it
con.close
set con=nothing
%>
|
|
|
|
|
|
|
ON-LINE UČIONICA
PROMETNA PRAVILA |
|
|
|
Promet na
raskrižjima
Općenito o raskrižjima
Raskrižje je prometna površina na kojoj
se križaju dvije ili više cesta, ili spajaju
dvije ili više cesta u širu prometnu površinu
(trg). Sa gledišta sigurnosti prometa treba
smanjiti broj kritičnih točaka na raskrižju,
a to se postiže pravilnim reguliranjem prometa.
Vozač koji vozilom vozi raskrižjem dužan
je:
- postupati po pravilima o prednosti
prolaska propuštanjem i mimoilaženjem,
- postupati u skladu s prometnim znakovima,
- postupati u skladu s prometnim svjetlima
na semaforu,
- postupati u skladu s znakovima i naredbama
ovlaštenih osoba koje upravljaju prometom.
Kako bi vozač koji ulazi vozilom u raskrižje
znao po kojem nalogu mora postupiti, vrijedi
pravilo da se postupa po nalogu više razine
upravljanja prometom. To znači kad je na
raskrižju ovlaštena osoba ne vrijedi semafor,
ukoliko je promet reguliran semaforom ne
postupa se u skladu s prometnim znakovima,
ukoliko je promet reguliran prometnim znakovima
ne postupa se po pravilima o prednosti prolaska
propuštanjem i mimoilaženjem.
Kad je promet na raskrižju reguliran semaforima
vozači su dužni postupati u skladu s prometnim
svjetlima:
crveno svjetlo
zabrana prolaska |
 crveni
i žuto svjetlo
skora promjena svjetla i
paljenje zelenog svjetla |
 zeleno
svjetlo
slobodan prolazak |
| |
 žuto
svjetlo
upaljeno samostalno znači da vozilo
ne smije uči u raskrižje osim ako se
nalazi na takvoj udaljenosti da se ne
može na siguran način zaustaviti |
| |
 zeleno
svjetlo u obliku strelice
slobodan prolazak u smjeru koji
pokazuje strelica |
 dopunska
zelena svjetleća strelica
slobodan prolazak u smjeru koji pokazuje
strelica i za vrijeme dok je upaljeno
crveno svjetlo |
Zabrana ulaska vozilom u raskrižje
 Vozač
ne smije vozilom uči u raskrižje ako je
promet toliko gust da vozilo mora zaustaviti
u raskrižju, na pješačkom prijelazu ili
na neki drugi način ometati vozila koja
dolaze s bočnih kolnika ili ometati pješake
koji prelaze kolnik.
|
| |
|
|
