alt ve üst sınırını belirleyerek rastgele sayı uretmeye yarayan ASP kod örneği:
<!-- http://www.byonurates.tr.gg -->
<%
intLowerBound = 1 'alt sınır
intUpperBound = 9 'üst sınır
Randomize()
intRangeSize = intUpperBound - intLowerBound + 1
sngRandomValue = intRangeSize * Rnd()
sngRandomValue = sngRandomValue + intLowerBound
intRandomInteger = Int(sngRandomValue)
Response.Write intRandomInteger
%>
<!-- http://www.byonurates.tr.gg -->
--------------------------------------------------------------------------------------
İki tarih arasında geçen zamanı gün bazında buluyoruz. Sonrasında toplam süreyi, geçen süreyi ve kalan süreyi gün bazında
ekrana yazdırıyoruz. Aynı işlem ile istenilen bilgiler Ay ve Yıl olarakta hesaplanabilir. Ayrıca Başlama ve Bitiş tarihlerini Veritabanı
bağlantısı gerçekleştirerek bir tablo içerisinden çekerekte ekrana yazdırabiliriz., İki tarih arasında geçen zamanı gün bazında
buluyoruz. Sonrasında toplam süreyi, geçen süreyi ve kalan süreyi gün bazında ekrana yazdırıyoruz:
<!-- http://www.byonurates.tr.gg -->
<%
BaslamaTarihi = "01.11.2006"
BitisTarihi = "01.12.2006"
ToplamSure = DateDiff("d",BaslamaTarihi,BitisTarihi)
GecenSure = DateDiff("d",BaslamaTarihi,Date)
KalanSure = ToplamSure-GecenSure
%>
Toplam Süre : <b><%Response.write ToplamSure%></b> Gün<br>
Geçen Süre : <b><%Response.write GecenSure%></b> Gün<br>
Kalan Süre : <b><% Response.write KalanSure %> </b> Gün
<!-- http://www.byonurates.tr.gg -->
--------------------------------------------------------------------------------------
Rasgele parola üreten kod:
<!-- http://www.byonurates.tr.gg -->
<%
For i = 1 To 7 '7 will be the password length
Randomize
j = 1 * Rnd
j = CInt(j)
If j = 1 Then
sPassword = sPassword & Chr(CInt((25 * Rnd) + 65))
Else
sPassword = sPassword & CInt(9 * Rnd)
End If
For j = 1 To 100
'slow it down so that randomize has time to re-seed
Next
Next
%>
<%=sPassword%>
<!-- http://www.byonurates.tr.gg -->
