Sabit Değerler51 Const DolarDeger = 560780 Const SirketinAdi = “Web Tasarım ve Site Onarım A.Ş.” Const Slogan = “Siteler Onarılır” Fırat Üniversitesi - Mustafa ULAŞ (2010)
Array52 <% Dim Gunler = Array (“Pazartesi” , “Salı” , “Çarşamba” , “Perşembe” , “Cuma” , “Cumartesi”, “Pazar”) %> <%=Gunler(6)%> Fırat Üniversitesi - Mustafa ULAŞ (2010)
Değişken Array Tanımlama53 Fırat Üniversitesi - Mustafa ULAŞ (2010)
Örnek54 Fırat Üniversitesi - Mustafa ULAŞ (2010)
Örnek55 Fırat Üniversitesi - Mustafa ULAŞ (2010)
Fırat Üniversitesi - Mustafa ULAŞ (2010) 56ARITMETIKSEL VEMANTIKSAL IŞLEMLER
Aritmetik ve Mantıksal Operatörler57 Operatör İşlev Sınıfı + Toplama Aritmetik Mantıksal - Çıkartma * Çarpma / Bölme ^ Üssünü alma \ Tamsayı bölme Mod Modüler aritmetik = Bir değişkenin diğerine eşit olduğunu sınar Karşılaştırma <> Bir değişkenin diğerine eşit olmadığını sınar >and< Bir değişkenin diğerinden büyük veya küçük olduğunu sınar (and kelimesi var) >= and <= Bir değişkenin diğerinden büyük veya eşit, veya küçük veya eşit olduğunu sınar (and kelimesi var) Is Bir ifadedeki iki referansın aynı Nesne’ye yapılıp yapılmadığını sınar And Bir veya daha fazla değişkeni test olarak karşılaştırır Or Bir işlemin devamı için hangi koşulun oluşması gerektiğini sınar Not Bir ifadeyi negatif hale getirir XoR Sadece bir koşulun doğru olup olmadığını sınar Eqv İki değişkenin eşitliğini sınar Imp İki ifadede mantıksal implikasyon işlemi yapar. Fırat Üniversitesi - Mustafa ULAŞ (2010)
Mantıksal Sınamalar58 If.. Else If şart Then [şart doğru ise yapılacak işler] Else [şart doğru değilse yapılacak işler] End If Fırat Üniversitesi - Mustafa ULAŞ (2010)
If..Else - Örnek59 <% If Hour(Now) <12 Then Response.Write \"Günaydın! \" ElseIf Hour(Now) >= 18 Then Response.Write \"İyi akşamlar! \" Else Response.Write \"Tünaydın! \" End If Response.Write \"<BR>\" Response.Write \"Site Onarım Sitesine Hoşgeldiniz\" %> Fırat Üniversitesi - Mustafa ULAŞ (2010)
Select Case60 <% Select Case Hour(Now) Case 0,1,2,3,4,5,6,7,8,9,10,11 Response.Write \"Günaydın!\" Case 12,13,14,15,16,17 Response.Write \"Tünaydın\" Case Else Response.Write \"İyi Akşamlar!\" End Select Response.Write \"<BR>\" Response.Write “Onarım Sitesine Hoşgeldiniz\" %> Fırat Üniversitesi - Mustafa ULAŞ (2010)
Do..Loop61 Do While koşul koşul doğru iken yapılacak işler Loop ------------------- Do While i>10 KOD Loop Do KOD Loop While i>10 Do Until i=10 KOD Loop Do KOD Loop Until i=10 Do Until i=10 i=i-1 If i<10 Then Exit Do Loop Fırat Üniversitesi - Mustafa ULAŞ (2010)
While...Wend62 While sayac <= 5 Response.Write Gunler(sayac) Response.Write \"<BR>\"sayac = sayac + 1 wend Fırat Üniversitesi - Mustafa ULAŞ (2010)
For..Next döngüsü63 <% Dim Gunler Gunler = Array(\"Pazartesi\", \"Salı\", \"Çarşamba\", \"Perşembe\", \"Cuma\", \"Cumartesi\", \"Pazar\") For sayac = 0 to 6 Response.Write Gunler(sayac) Response.Write \"<BR>\" Next %> <% for i=1 to 10 step 2 response.write(i) next %> Fırat Üniversitesi - Mustafa ULAŞ (2010)
64 <% Dim cars(2) cars(0)=\"Volvo\" cars(1)=\"Saab\" cars(2)=\"BMW\" For Each x In cars response.write(x & \"<br />\") Next %> Fırat Üniversitesi - Mustafa ULAŞ (2010)
Döngü durdurulmak istendiğinde65 For i=1 to 10 If Degisken1 > Degisken2 Then Exit For End if next Fırat Üniversitesi - Mustafa ULAŞ (2010)
Fırat Üniversitesi - Mustafa ULAŞ (2010) 66SIK KULLANILANHAZIR FONKSIYONLAR
Tarih Fonksiyonları67 Date: Bugün tarihini verir. (25.03.2000 gibi) Time: O andaki saati verir. (22:24:40 gibi) Now: O andaki tarih ve saati birlikte verir. (25.03.2000 22:24:40 gibi) VBScript’in buna ek olarak Weekday (haftanın günü), WeekdayName (günün adı) ve Monthname (ayın adı) fonksiyonları da vardır. Bu fonksiyonlar değerlerini Date fonksiyonuna göre alırlar. Örneğin, <%= WeekdayName(Weekday(Date))%> komutu bize bugün Cumartesi ise “Cumartesi” değerini verir. <%= MonthName(Month(Date))%> komutu bize bu ay Mart ise “Mart” değerini verir. VBScript’in bunlara ek olarak Day (gün), Month (ay) ve Year (yıl) fonksiyonları da değerlerini Date fonksiyonundan alarak, size bir rakam verirler. Eğer tarih 25 Mart 2000 ise: <%= Day(Date)%>... 25 <%= Month(Date)%>... 3 <%= Year(Date)%>... 2000 Fırat Üniversitesi - Mustafa ULAŞ (2010)
Karakter-dizisi Fonksiyonları68 Karakter-dizisi veya String, VBScript için herşey olabilir. “Sana Sevdanın Yolları Bana Kurşunlar” bir String’dir. “Bugün 7 Ağustos 2000” bir String’dir. “Doğum Günün Kutlu Olsun!” bir String’dir. Web sitemizi ziyaret eden kişinin formlarımıza yazacağı ve Gönder tuşunu tıklayarak Server’a göndereceği bilgiler String’dir. Fakat bunların hepsi olduğu şekliyle işimize yaramaz. Bunları yeniden düzenlemek, içinden seçmeler yapmak veya biçimlerini değiştirmek gerekebilir. VBScript bu amaçla kullanılmaya hazır bir dizi fonksiyon verir: InStr Uzun bir String’in içinde vereceğiniz daha kısa bir String’in bulunup bulunmadığını arar; bulursa bu kısa String’in başlama noktasının değerini verir. Diyelim ki, “Sana Sevdanın Yolları Bana Kurşunlar” String’ini Kayahan değişkenine, “Sevda” kelimesini de Ara değişkenine atadınız. InStr fonksiyonu ile Ara’nın değerinin yerini Kayahan’ın değerinin içinde bulabilirsiniz: Yer = InStr(Kayahan, Ara) Yer’in değeri 6 olacaktır; çünkü “Sevda” kelimesi, uzun String’de 6’ncı karakterden başlamaktatır. Fırat Üniversitesi - Mustafa ULAŞ (2010)
Karakter-dizisi Fonksiyonları69 Len Bir String’in uzunluğunu belirler. Yukarıdaki örnekte yer alan Kayahan değişkenin uzunluğunu şöyle belirleyebiliriz: Uzunluk = Len(Kayahan) Uzunluk değişkeninin değeri 36 olacaktır. UCase Vereceğiniz bir String’in tüm karakterlerini büyük harfe çevirir. YeniString = UCase(Kayahan) Yeni String’in değeri: “SANA SEVDANIN YOLLARI BANA KURŞUNLAR” olacaktır. LCaseVereceğiniz bir String’in tüm karakterlerini küçük harfe çevirir. YeniString = LCase(Kayahan) Yeni String’in değeri: “sana sevdanın yolları bana kurşunlar” olacaktır. LTrim, RTrim, Trim Verdiğiniz String’in (sırasıyla) solunda yani baş tarafında; sağında yani sonunda ve hem başında ve hem de sonundaki boşlukları temizler. Fırat Üniversitesi - Mustafa ULAŞ (2010)
Karakter-dizisi Fonksiyonları70 Spaceİçinde, vereceğiniz sayı kadar boşluk olan boş bir String oluşturur. Örneğin Bosluk = Space(20) Bosluk değişkenin değeri “ “ (20 boşluk) olacaktır. String İstediğiniz sayıda ve istediğiniz bir karakterle bir String oluşturur. YeniString = String(3, “*”) YeniString değişkeninin değeri “***” olacaktır. Left, Right Bir String’in içinde soldan (baştan) veya sağdan (sondan) verdiğiniz sayıya kadar olan karakterleri verir. Örneğin, yine yukarıdaki Kayahan değişkenini kullanırsak: Solda = Left(Kayahan, 4) Solda değişkeninin değeri “Sana” olacaktır; çünkü Kayahan değişkeninin soldan itibaren dört harfi “Sana“ kelimesine denk geliyor. Fırat Üniversitesi - Mustafa ULAŞ (2010)
Karakter-dizisi Fonksiyonları71 Mid Bir String’in içinde başlangıç noktasını ve karakter olarak boyunu verdiğiniz alanda yer alan String’i verir. Ortada = Mid(Kayahan, 5, 8) Ortada değişkeninin değeri “Sevdanı” olacaktır; çünkü Kayahan değişkeninin soldan 5’nci değişkeninden itibaren 8 karakterlik alanda “Sevdanı” karakterleri yer alıyor. Fırat Üniversitesi - Mustafa ULAŞ (2010)
Dizi-Değişken (Array) Fonksiyonu72 Dim Ogrenciler() Bu komutla, Ogrenciler dizi-değişkeni oluşturulur; ancak eleman sayısı belirtilmediği için dizi dinamiktir; yani daha sonra bu dizinin eleman sayını belirleyebilirsiniz. Bunu: ReDim Ogrenciler(15) Mevcut dizinin elemanlarını ve onların değerlerini korumak istiyorsak: ReDim Preserve Ogrenciler(20) Fırat Üniversitesi - Mustafa ULAŞ (2010)
Test Fonksiyonları73 Bu özel fonksiyonlardan dönen değer True (doğru) veya False (yanlış) olur; doğru sonucun değeri –1, yanlış sonucun değeri ise 0’dır: IsArray Bir değişkenin dizi-değişken (Array) olup olmadığını sınar. IsDate Bir değişkenin değerinin tarihe (Date) çevrilip çevrilemeyeceğini sınar. IsEmpty Bir değişkenin tanımlanıp değer atanmış olup olmadığını sınar. IsNull Bir değişkenin geçerli bir değer tutup tutmadığını sınar. IsNumeric Bir değişkenin sayı olarak işleme tabi tutup tutulamayacağını sınar IsObject Bir ifadenin geçerli bir ActiveX veya OLE nesnesine referansta bulunup bulunmadığını sınar. TypeName Bir değişkenin türünü belirtir. VarType Bir değişkenin türünü belirten sayıyı verir. Fırat Üniversitesi - Mustafa ULAŞ (2010)
Fırat Üniversitesi - Mustafa ULAŞ (2010) 74TÜM HAZIRFONKSIYONLAR
VBScript - Date/Time functions75 Description Function Datayı tarih bilgisine çevirir CDate Bugünün tarihini geri dönderir Date İki tarihi toplar. DateAdd Tarihlerin farkını alır DateDiff Herhangi bir tarihin istediğiniz kısmını geri dönderir. DatePart Ayrı verilen Yıl, gün, ay ‘ı tarih formatına çevirir DateSerial Herhangi bir stringi tarihe çevirir. DateValue Returns a number that represents the day of the Day month (between 1 and 31, inclusive) Returns an expression formatted as a date or time FormatDateTime Returns a number that represents the hour of the Hour day (between 0 and 23, inclusive) Returns a Boolean value that indicates if the IsDate evaluated expression can be converted to a date Returns a number that represents the minute of the Minute hour (between 0 and 59, inclusive) Fırat Üniversitesi - Mustafa ULAŞ (2010)
VBScript - Date/Time functions76 Returns a number that represents the month of the year (between 1 and 12, inclusive) Month Returns the name of a specified month Returns the current system date and time MonthName Returns a number that represents the second of the Now minute (between 0 and 59, inclusive) Second Returns the current system time Returns the number of seconds since 12:00 AM Time Returns the time for a specific hour, minute, and Timer second TimeSerial Returns a time Returns a number that represents the day of the TimeValue week (between 1 and 7, inclusive) Weekday Returns the weekday name of a specified day of the week WeekdayName Returns a number that represents the year Year Fırat Üniversitesi - Mustafa ULAŞ (2010)
VBScript - Math Functions77 Description Function Returns the absolute value of a specified number Returns the arctangent of a specified number Abs Returns the cosine of a specified number (angle) Atn Returns e raised to a power Cos Returns the hexadecimal value of a specified number Exp Returns the integer part of a specified number Hex Returns the integer part of a specified number Int Returns the natural logarithm of a specified number Fix Returns the octal value of a specified number Log Returns a random number less than 1 but greater or equal to Oct 0 Rnd Returns an integer that indicates the sign of a specified number Sgn Returns the sine of a specified number (angle) Returns the square root of a specified number Sin Returns the tangent of a specified number (angle) Sqr Tan Fırat Üniversitesi - Mustafa ULAŞ (2010)
VBScript - String Functions78 Description Returns the position of the first occurrence of one string within another. The Function search begins at the first character of the string InStr Returns the position of the first occurrence of one string within another. The InStrRev search begins at the last character of the string LCase Converts a specified string to lowercase Left Returns a specified number of characters from the left side of a stringLen Returns the number of characters in a stringLTrim Removes spaces on the left side of a stringRTrim Removes spaces on the right side of a stringTrim Removes spaces on both the left and the right side of a stringMid Returns a specified number of characters from a stringReplace Replaces a specified part of a string with another string a specified number of timesRight Returns a specified number of characters from the right side of a stringSpace Returns a string that consists of a specified number of spacesStrComp Compares two strings and returns a value that represents the result of the comparisonString Returns a string that contains a repeating character of a specified lengthStrReverse Reverses aFısratrtiÜngniversitesi - Mustafa ULAŞ (2010)UCase Converts a specified string to uppercase
VBScript - Conversion Functions79 Description Converts the first letter in a string to ANSI code Function Converts an expression to a variant of subtype Boolean Asc Converts an expression to a variant of subtype Byte CBool Converts an expression to a variant of subtype Currency CByte Converts a valid date and time expression to the variant of CCur subtype Date CDate Converts an expression to a variant of subtype Double Converts the specified ANSI code to a character CDbl Converts an expression to a variant of subtype Integer Chr Converts an expression to a variant of subtype Long CInt Converts an expression to a variant of subtype Single CLng Converts an expression to a variant of subtype String CSng Returns the hexadecimal value of a specified number CStr Returns the octal value of a specified number Hex Oct Fırat Üniversitesi - Mustafa ULAŞ (2010)
VBScript - Array Functions80 Description Function Returns a variant containing an array Array Returns a zero-based array that contains a subset of a Filter string array based on a filter criteria IsArray Returns a Boolean value that indicates whether a specified variable is an array Join Returns a string that consists of a number of substrings LBound in an array Split Returns the smallest subscript for the indicated dimension of an array UBound Returns a zero-based, one-dimensional array that contains a specified number of substrings Returns the largest subscript for the indicated dimension of an array Fırat Üniversitesi - Mustafa ULAŞ (2010)
VBScript - Format Functions81 Description Function Returns an expression formatted as a currency FormatCurrency value FormatDateTime Returns an expression formatted as a date or time FormatNumber FormatPercent Returns an expression formatted as a number Returns an expression formatted as a percentage Fırat Üniversitesi - Mustafa ULAŞ (2010)
VBScript – Diğer Fonksiyonlar82 Function Description CreateObject Creates an object of a specified type IsEmpty Returns a Boolean value that indicates whether a specified variable has been initialized or not IsNull Returns a Boolean value that indicates whether a specified expression contains no valid data (Null) IsNumeric Returns a Boolean value that indicates whether a specified expression can be evaluated as a number IsObject Returns a Boolean value that indicates whether the specified expression is an automation object Round Rounds a number Fırat Üniversitesi - Mustafa ULAŞ (2010)
Fırat Üniversitesi - Mustafa ULAŞ - (2010)ASP VE ASPBILEŞENLERI
Fırat Üniversitesi - Mustafa ULAŞ 84ASP COOKIES
ASP Cookies85 <% Response.Cookies(\"firstname\")=\"Alex\" Response.Cookies(\"firstname\").Expires=#May 10,2012# %> <% fname=Request.Cookies(\"firstname\") response.write(\"Firstname=\" & fname) %> <% Response.Cookies(\"user\")(\"firstname\")=\"John\" Response.Cookies(\"user\")(\"lastname\")=\"Smith\" Response.Cookies(\"user\")(\"country\")=\"Norway\" Response.Cookies(\"user\")(\"age\")=\"25\" %> Fırat Üniversitesi - Mustafa ULAŞ
Fırat Üniversitesi - Mustafa ULAŞ 86SESSION
ASP Session Object87 Her kullanıcının sunucuya bağlandığında oluşturulan değişken kümesidir. Session ‘ a atılan bu değerler, tanımlanmış timeout değerine yada kullanıcının oturumun sonlandırılmasına bağlı olarak sunucu hafızasında tutulur. Kullanıcının çağırdığı tüm asp dosyalarında kullanılabilen değişkenler tanımlanmasını sağlar. Fırat Üniversitesi - Mustafa ULAŞ
ASP Session Object88 <% Session.Timeout=5 %> Oturum süresini tanımlar <% Session.Abandon %> Anında oturum kapatır Fırat Üniversitesi - Mustafa ULAŞ
ASP Session Object89 Değer Tanımlamak <% Session(\"username\")=\"Donald Duck\" Session(\"age\")=50 %> Tanımlı Değeri Gösermek Welcome <%=(Session(\"username\"))%> Tanımlı Değeri Tek Tek Silmek <% Session.Contents.Remove(\"sale\") %> Fırat Üniversitesi - Mustafa ULAŞ
90 Tanımlı Değeri Tek Tek Silmek <% Session.Contents.RemoveAll(\"sale\") %> Fırat Üniversitesi - Mustafa ULAŞ
Session Bilgileri91 Oturuma Tanımlanmış Tüm Session Değerlerini göstermek Kod <% Session(\"username\")=\"Donald Duck\" Session(\"age\")=50 dim i For Each i in Session.Contents Response.Write(i & \"<br />\") Next %> Ekran Görüntüsü username age Fırat Üniversitesi - Mustafa ULAŞ
92 If you do not know the number of items in the Contents collection, you can use the Count property: <% Session(\"username\")=\"Donald Duck\" Session(\"age\")=50 dim i dim j j=Session.Contents.Count Response.Write(\"Session variables: \" & j) For i=1 to j Response.Write(i & “ = ” & Session.Contents(i) & \"<br />\") Next %> Result: Session variables: 2 username = Donald Duck age = 50 Fırat Üniversitesi - Mustafa ULAŞ
Session.LCID93 Fırat Üniversitesi - Mustafa ULAŞ
94 Fırat Üniversitesi - Mustafa ULAŞ
95 Session.SessionID Session.Timeout=30 (Dakika cinsinden) Fırat Üniversitesi - Mustafa ULAŞ
Fırat Üniversitesi - Mustafa ULAŞ 96APPLICATION
ASP Application Object97 Session nesnesi gibidir. Farkı Application nesnesi tüm kullanıcılar için tanımlanır. Tek değişken tüm kullanıcılar tarafından erişilebilir ve değiştirilebilir. Fırat Üniversitesi - Mustafa ULAŞ
98 <script language=\"vbscript\" runat=\"server\"> Sub Application_OnStart application(\"vartime\")=\"\" application(\"users\")=1 End Sub </script> There are <% Response.Write(Application(\"users\")) %> active connections. Fırat Üniversitesi - Mustafa ULAŞ
Fırat Üniversitesi - Mustafa ULAŞ 99#INCLUDEFILE - VIRTUAL
ASP Including Files100 #include Komutu <html> <body> <h3>Words of Wisdom:</h3> <p><!--#include file=\"wisdom.inc\"--></p> <h3>The time is:</h3> <p><!--#include file=\"time.inc\"--></p> </body> </html> <!-- #include file =\"headers\header.inc\" --> <!-- #include virtual =\"/html/header.inc\" --> Fırat Üniversitesi - Mustafa ULAŞ
Search
Read the Text Version
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
- 99
- 100
- 101
- 102
- 103
- 104
- 105
- 106
- 107
- 108
- 109
- 110
- 111
- 112
- 113
- 114
- 115
- 116
- 117
- 118
- 119
- 120
- 121
- 122
- 123
- 124
- 125
- 126
- 127
- 128
- 129
- 130
- 131
- 132
- 133
- 134
- 135
- 136
- 137
- 138
- 139
- 140
- 141
- 142
- 143
- 144
- 145
- 146
- 147
- 148
- 149
- 150
- 151
- 152
- 153
- 154
- 155
- 156
- 157
- 158
- 159
- 160
- 161
- 162
- 163
- 164
- 165
- 166
- 167
- 168
- 169
- 170
- 171
- 172
- 173
- 174
- 175
- 176
- 177
- 178
- 179
- 180
- 181
- 182
- 183
- 184
- 185
- 186
- 187
- 188
- 189
- 190
- 191
- 192