Ders 3 - Vbscript ve JavaScript Temelleri
A. ASP İÇİNDE VBSCRİPT KULLANMAK
ASP kodlaması içinde VBScript kodlaması <SCRIPT> etiketleri arasında yapılır. Bu blok kod genellikle HTML içinde ve başlık kısmında olur.
Script bloğu içinde özellikle HTML formu üzerindeki kullanıcı etkileşimi sağlanır. Örneğin bir metin kutusuna girilen alanın değerinin kontrolü gibi.
Aşağıdaki örnekte ekrandan alınan bilgilerin kontrolünü yapmak için bir VBScript kodu yazılmıştır. Burada kontrol edilen olay submit olayıdır. Submit olayı, ziyaretçinin Submit düğmesine basarak formu göndermesi işlemidir. Bu işlem de <FORM ACTION ="kayit.asp" METHOD=POST NAME=ariza> gibi satırlarda belirtilir.
Örnek: Veri girişinin kontrolü için script yazmak:
<HTML>
<HEAD>
<TITLE> ARIZA FORMU </TITLE>
</HEAD>
<SCRIPT LANGUAGE="VBSCRIPT">
Function Frmariza_OnSubmit()
'--- forma alanlari tamamlanincaya kadar izin verme
Frmariza_OnSubmit = False
Set theForm = Document.Frmariza
If Not IsDate(theForm.txttarih.Value) Then
MsgBox "Lütfen tarihi anlamli girin", vbCritical, "Giris Gerekiyor."
theForm.txttarih.Focus
Else
'--- adi alanini kontrol et.
If Trim(theForm.txtadi.Value) = "" Then
MsgBox "adini girin.", vbCritical, "Giris Gerekiyor"
theForm.txtadi.Focus
Else
If Trim(theForm.txtadres.Value) = "" Then
MsgBox "Adres girin.", vbCritical, "Giris Gerekiyor"
theForm.txtadres.Focus
Else
If Trim(theForm.txttelefon.Value) = "" Then
MsgBox "telefon girin.", vbCritical, "Giris Gerekiyor"
theForm.txttelefon.Focus
Else
If Trim(theForm.Chktur.Value) = 0 Then
MsgBox "Ariza türünü girin", vbCritical, "Giris Gerekiyor"
theForm.Chktur.Focus
Else
'--- son olarak gönderme
Frmariza_OnSubmit = True
End If
End If
End If
End If
End IF
End Function
Sub cmdkontrol_onclick
Msgbox "deneme",3,32
End Sub
Function tarihgetir()
Document.Frmariza.txttarih.value = date() & time()
Msgbox str(hour)
End Function
</SCRIPT>
<BODY BGCOLOR="#00F0AF">
<CENTER><H1> Ariza Takip Formu </H1></CENTER>
<FORM ACTION ="arizakayit.asp" METHOD=POST NAME=frmariza>
<TABLE BORDER=1>
<TR bgcolor="#eebbcc">
<TD> <font color=#SS00CC> TARIH: </font></TD>
<TD><input type=text name =txttarih size=20</TD>
</TR>
<TR bgcolor="#eebbcc">
<TD> ARIZAYI BILDIREN: </TD>
<TD><input type=text name =txtbildiren size=30 maxlength = 20</TD>
</TR>
<TR bgcolor="#eebbcc">
<TD> ARIZA TÜRÜ: </TD>
<TD>
<Input type=checkbox Name="Chktur" VALUE="0" Checked> TEKNIK
<Input type=checkbox Name="Chktur" VALUE="1"> YAZILIM
<Input type=checkbox Name="Chktur" VALUE="2"> DONANIM
<Input type=checkbox Name="Chktur" VALUE="3"> M-MEDYA
<Input type=checkbox Name="Chktur" VALUE="4"> NETWORK
<Input type=checkbox Name="Chktur" VALUE="5"> DIGER
</TD>
</TR>
<TR bgcolor="#eebbcc">
<TD> AÇIKLAMA </TD>
<TD><textarea name =txtaciklama COLS=50 ROWS=5></textarea>
</TD>
</TR>
<TR bgcolor="#eebbcc">
<TD> ACILIYET DURUMU: </TD>
<TD>
<SELECT name =cmbaciliyet size="1" STYLE="width:155px">
<OPTION SELECTED VALUE="0">NORMAL</OPTION>
<OPTION VALUE="1">ACIL </OPTION>
<OPTION VALUE="2">ÇOK ACIL </OPTION>
</SELECT>
</TD>
</TR>
<TR bgcolor="#eebbcc">
<TD> ISTENDIGI YER </TD>
<TD>
<Input type=Radio Name="RdYer" VALUE="0" Checked> Kendi Yerinde
<Input type=Radio Name="RdYEr" VALUE="1"> Serviste
</TD>
<TR bgcolor="#eebbcc">
<TD> ADRES: </TD>
<TD><input type=text name =txtadres size=30</TD>
</TR>
<TR bgcolor="#eebbcc">
<TD> TELEFON: </TD>
<TD><input type=text name =txttelefon size=30</TD>
</TR>
</TABLE>
<BR>
<BR>
<BR>
<CENTER>
<INPUT TYPE="SUBMIT" VALUE ="KAYDET"> 
<INPUT TYPE="BUTTON" NAME ="cmdkontrol" VALUE ="KOTROL" > 
<INPUT TYPE="SUBMIT" VALUE ="RESET">
</CENTER>
</FORM>
</BODY>
</HTML>
Tarih:
Hit: 3491
Yazar: renegadealien