Kullanılanlar :

 VBScript

Kullanım :

 Tavsiye ettiğim kullanım şekli;


<%
if  
tc_kontrol(tckimlikdegiskeniniz)  then

    işlemler sonucu doğruysa yapılacaklar

else

    işlemler sonucu doğru değilse yapılacaklar

end  
if
%>

Panoya Kopyala
Kod :

 <%
if  
tc_kontrol(tckimlikdegiskeniniz)  then

    işlemler sonucu doğruysa yapılacaklar

else

    işlemler sonucu doğru değilse yapılacaklar

end  
if
%>

<%
Function  
tc_kontrol(tckimlik)

    tckimlik=left(tckimlik,11)
    sontckimlik=right(tckimlik,1)
    toplam=0

     for  i=1  to  10

        temp=mid(tckimlik,i,1)
        toplam=toplam+temp

     next

    toplam=right(toplam,1)

     if  sontckimlik=toplam  then

        tc_kontrol=true

     else

        tc_kontrol=false

     end  if

End  
Function
%>

Panoya Kopyala
Kendi yazmış olduğunuz kodları & ipucuları bize yollamak için tıklayın

Pencereyi Kapat