Tc Kimlik No Kontrolü Yardım

17-10-2010, 01:56:25

Arkadaşlar ben asp de textboxa girilen bir tc kimlik noyu o kişinin tc si doğru mu diye kotrol ettiricem yalnız bulduğum kooda hata veriyor kod bu:

<%
    if request.Form(tckimlik)<>"  then
    tckimlik = request.form(tckimlik)

    topla =  cint(mid(tckimlik,1,1))+mid(tckimlik,2,1)+mid(tckimlik,3,1)+mid(tckimlik,4,1)+mid(tckimlik,5,1)+mid(tckimlik,6,1)+mid(tckimlik,7,1)+mid(tckimlik,8,1)+mid(tckimlik,9,1)+mid(tckimlik,10,1)

    if right(topla,1) = right(tckimlik,1) then
    Response.write(<font color=green>tc kimlik no geçerli</font>)
    else
    Response.write(<font color=red>tc kimlik no geçerli degil</font>)
    end if

    end if
    %>

aldığım hata şu

Microsoft VBScript derleme hatasý hata '800a0408'

Geçersiz karakter

/tc/tc.asp, satır 11

tckimlik=request.form(tckimlik)
----------------------^

Acil Cevap Lazım :S

17-10-2010, 01:56:56

#2

tolgasen

🌐 𝘀𝗼𝗰𝗶𝗳𝗹𝘆.𝗰𝗼𝗺

� yerine " yaz

17-10-2010, 02:00:05

#3

SzolnoK

böyle bir kod da mı varmış

17-10-2010, 02:04:08

#4

Haktan

ya mevzu şu benim diyelim ki 12345678918 gibi bi tc nom var bunun ilk 10 hanesinin toplamının mod 10 a göre bölümü en son haneyi veriyor yani 1+2+3+4+5+6+7+8+9+1 (mod10) 8 edicek gibi bu sadece örnek

17-10-2010, 02:12:24

#5

tolgasen

🌐 𝘀𝗼𝗰𝗶𝗳𝗹𝘆.𝗰𝗼𝗺

Alıntı

<%
if request.Form("tckimlik")<>"" then
tckimlik = request.form("tckimlik")

topla = cint(mid(tckimlik,1,1))+mid(tckimlik,2,1)+mid(tcki mlik,3,1)+mid(tckimlik,4,1)+mid(tckimlik,5,1)+mid( tckimlik,6,1)+mid(tckimlik,7,1)+mid(tckimlik,8,1)+ mid(tckimlik,9,1)+mid(tckimlik,10,1)

if right(topla,1) = right(tckimlik,1) then
Response.write("<font color=green>tc kimlik no geçerli</font>")
else
Response.write("<font color=red>tc kimlik no geçerli degil</font>")
end if

end if
%>

...

17-10-2010, 02:20:27

#6

Haktan

çooookkk teeşekkür ederim

)) bide bunu excel de yapması var

17-10-2010, 02:23:50

#7

rob33n

Kimlik doğrulama veya yönetimden onay bekliyor.

Regex ile denedin mi?

^[1-9]{1}[0-9]{10}$

17-10-2010, 02:26:56

#8

Haktan

Regex Derken Açarmısın Biraz , yeniyim de : ))

17-10-2010, 02:36:37

#9

rob33n

http://www.mydesign.gen.tr/makale/475.html

set regex = New RegExp
regex.IgnoreCase = False
regex.Pattern = "^[1-9]{1}[0-9]{10}$"
isValid = regex.Test("tc numarası")