Siteniz için TC Kimlik Doğrulama scripti

**Aytaç** · 07-14-2006

Arkadaşlar, eğer siteniz için üyelik sisteminde seçiciyseniz ya da başka herhangi bir amaçla TC Kimlik Numarası doğrulamaya ihtiyacınız varsa aşağıdaki scriptten faydalanabilirsiniz. Sizlerin bu scripti amacınıza uygun olarak daha da geliştirme şansınız var. Burada iki adet asp dosyamız mevcut : form.asp ve kontrol.asp. form.asp dosyası basit bir formdan oluşmakta, kontrol.asp'de ise kullanıcının formda vermiş olduğu değerler sorgulanıp karşılaştırılarak kullanıcının verdiği bilgileri değerlendirmekte. Umarım işinize yarar.

'/****************FORM.ASP****************/

<html>
<**** **********="Content-Type" content="text/html; charset=iso-8859-9">
<head>
</head>
<body>
<div align="center">
<form method="post" action="kontrol.asp">
<table width="600" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><div align="right">TC Kimlik Numaranız:</div></td>
<td> </td>
<td><input name="TC" type="text" class="input" size="30" maxlength="11"></td>
</tr>
<tr>
<td><div align="right">Adınız: </div></td>
<td> </td>
<td><input name="AD" type="text" class="input" size="30" maxlength="40"></td>
</tr>
<tr>
<td><div align="right">Soyadınız: </div></td>
<td> </td>
<td><input name="SOYAD" type="text" class="input" size="30" maxlength="40"></td>
</tr>
<tr>
<td><div align="right">Doğum Tarihiniz:</div></td>
<td>  </td>
<td><select name="DOGUM_TARIHI" class="input">
<% For i = 1900 To 2006 %>
<option value="<%= i%> "><%=i%></option>
<% Next %>
</select></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td colspan="3"><div align="center"><span class="duyuru_baslik style1">Adı ve Soyadı alanını BÜYÜK HARFLERLE giriniz.</span>
</div></td>
</tr>
<tr>
<td height="26" colspan="3"><blockquote>
<p align="center" class="duyuru_baslik style1">
<input name="Submit" type="submit" class="duyuru_baslik" value="Sorgula">
</p>
</blockquote></td>
</tr>
</table></td>
</tr>
</table>
</form>
<p> </p>
</div>
</body>
</html>

'/***************KONTROL.ASP***************/

<%
Dim TCKimlikNo, AD, SOYAD, DOGUM_TARIHI

TCKimlikNo = Trim(Request.Form("TC"))
AD = Trim(Request.Form("AD"))
SOYAD = Trim(Request.Form("SOYAD"))
DOGUM_TARIHI = Trim(Request.Form("DOGUM_TARIHI"))

%>

<html>

<head>
<**** **********="Content-Language" content="tr">
<**** **********="Content-Type" content="text/html; charset=iso-8859-9">
<title>TC Kimlik Kontrol</title>

</head>

<body topmargin="0" leftmargin="0">

<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
<tr>
<td width="100%" align="center" height="100%">
<p>

<%

if Len(TCKimlikNo) <> 11 Then
Response.Write "<br><div align=center><center>"
Response.Write "<font face=tahoma style=""font-size: 12"" color=Red>"
Response.Write("TC Kimlik Numarası 11 haneli olmalıdır.")
Response.Write "<BR>"
Response.Write "<a href=javascript:history.go(-1);> Geri Dönmek için tiklayiniz </a> "
Response.Write "<br>"
Response.End()
End if

FOR A= 1 TO LEN(TCKimlikNo)
IF ASC(MID(TCKimlikNo,A,1))>57 OR ASC(MID(TCKimlikNo,A,1))<48 Then
Response.Write "<br><div align=center><center>"
Response.Write "<font face=tahoma style=""font-size: 12"" color=red>"
Response.Write("TC Kimlik alanına yalnızca rakam giriniz!...")
Response.Write "</font>"
Response.Write "<br>"
Response.Write "<a href=javascript:history.go(-1);>Geri</a>"
Response.Write "<br>"
Response.End()
END IF
NEXT

Function XMLWebservices(byVal KimlikNo)
Dim SOAP
SOAP = "<?xml version=""1.0"" encoding=""utf-8""?>"&_
"<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"&_
"<soap:Body>"&_
"<TCKimlikNoDogrula xmlns=""http://kps.nvi.gov.tr/WS/Public"">"&_
"<tcKimlikNo>"& KimlikNo &"</tcKimlikNo>"&_
"</TCKimlikNoDogrula>"&_
"</soap:Body>"&_
"</soap:Envelope>"

Set objWebServices = Server.CreateObject("Msxml2.ServerXMLHTTP")
objWebServices.Open "POST", "http://tckimlik.nvi.gov.tr/kpspublic.asmx", false
objWebServices.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
objWebServices.setRequestHeader "soapAction", "http://kps.nvi.gov.tr/WS/Public/TCKimlikNoDogrula"
objWebServices.Send(SOAP)

Dim Text
If objWebServices.readyState = 4 Then
If objWebServices.Status = 200 Then
Text = objWebServices.responseText
End If
End If

Set objWebServices = Nothing

XMLWebservices = Text
End Function

Dim Sonuc
Sonuc = Trim(XMLWebservices(TCKimlikNo))

If (Len(Sonuc) <> 0) Then

Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = False
objXML.loadxml(Sonuc)
Set objNODE = objXML.selectSingleNode("soap:Envelope/soap:Body/TCKimlikNoDogrulaResponse/TCKimlikNoDogrulaResult")

If((objNode.childNodes.item(1).Text) <> AD) then
Response.Write "<br><div align=center><center>"
Response.Write "<font face=tahoma style=""font-size: 12"" color=red>"
Response.Write "Adınız vermiş olduğunuz TC Kimlik Numarasına ait veriler ile uyuşmamaktadir!"
Response.Write "<br>"
Response.Write "Lütfen adınızı BÜYÜK HARFLERLE giriniz!"
Response.Write "</font>"
Response.Write "<br>"
Response.Write "<a href=javascript:history.go(-1);>Geri</a>"
Response.Write "<br>"
Response.End
end if

If((objNode.childNodes.item(2).Text) <> SOYAD) then
Response.Write "<br><div align=center><center>"
Response.Write "<font face=tahoma style=""font-size: 12"" color=red>"
Response.Write "Soyadınız vermiş olduğunuz TC Kimlik Numarasına ait veriler ile uyuşmamaktadir!"
Response.Write "<br>"
Response.Write "Lütfen soyadınızı BÜYÜK HARFLERLE giriniz!"
Response.Write "</font>"
Response.Write "<br>"
Response.Write "<a href=javascript:history.go(-1);>Geri</a>"
Response.Write "<br>"
Response.End
end if

if (objNode.childNodes.item(3).Text<>DOGUM_TARIHI) then

Response.Write "<br><div align=center><center>"
Response.Write "<font face=tahoma style=""font-size: 12"" color=red>"
Response.Write "Doğum tarihiniz vermiş olduğunuz TC Kimlik Numarasına ait veriler ile uyuşmamaktadır!"
Response.Write "<br>"
Response.Write "Lütfen doğum yılı alanına nüfus cüzdanınızdaki değeri giriniz!"
Response.Write "</font>"
Response.Write "<br>"
Response.Write "<a href=javascript:history.go(-1);>Geri</a>"
Response.Write "<br>"
Response.End
end if

Set objNODE = Nothing
Set objXML = Nothing

Else
Response.Write "<br><div align=center><center>"
Response.Write "<font face=tahoma style=""font-size: 12"" color=red>"
Response.Write "Girdiğiniz TC Kimlik Numarasi Hatalıdır!"
Response.Write "<br>"
Response.Write "Lütfen kontrol ederek tekrar deneyiniz!"
Response.Write "</font>"
Response.Write "<br>"
Response.Write "<a href=javascript:history.go(-1);>Geri</a>"
Response.Write "<br>"
Response.End
End If

Response.Write "<br><div align=center><center>"
Response.Write "<font face=tahoma style=""font-size: 12"" color=Red>"
Response.Write "<b>Girilmiş olan veriler doğrudur.Teşekkür ederiz.</b>"
Response.Write "<br>"
Response.Write "</font>"
Response.Write "<br>"
Response.Write "<b><a href='javascript:window.close()'> Pencereyi Kapat</b></a>"
Response.End
%>

</p>
</td>
</tr>
</table>
</center>
</div>
</body>

</html>

**andac** · 10-27-2006

teşekkürler, güzel bir bilgi.

**Ch€mist** · 07-15-2007

paylaşımın için teşekkürler...

07-14-2006	#1
Aytaç AkdenizForum Kankası Türkiyenin En Kaliteli Bilgi Paylasim Mekani AKdenizForum.. Kullanıcı Bilgileri Üyelik Tarihi: Jul 2006 Yaş: 23 Mesajlar: 567 Üye No: 105 Extra Bilgiler Tecrübe Puanı: 44 Rep Gücü : 59 Rep Derecesi : İletişim	Siteniz için TC Kimlik Doğrulama scripti Arkadaşlar, eğer siteniz için üyelik sisteminde seçiciyseniz ya da başka herhangi bir amaçla TC Kimlik Numarası doğrulamaya ihtiyacınız varsa aşağıdaki scriptten faydalanabilirsiniz. Sizlerin bu scripti amacınıza uygun olarak daha da geliştirme şansınız var. Burada iki adet asp dosyamız mevcut : form.asp ve kontrol.asp. form.asp dosyası basit bir formdan oluşmakta, kontrol.asp'de ise kullanıcının formda vermiş olduğu değerler sorgulanıp karşılaştırılarak kullanıcının verdiği bilgileri değerlendirmekte. Umarım işinize yarar. '/**************FORM.ASP************/ <html> < ******="Content-Type" content="text/html; charset=iso-8859-9"> <head> </head> <body> <div align="center"> <form method="post" action="kontrol.asp"> <table width="600" border="0" cellpadding="0" cellspacing="0"> <tr> <td><div align="right">TC Kimlik Numaranız:</div></td> <td> </td> <td><input name="TC" type="text" class="input" size="30" maxlength="11"></td> </tr> <tr> <td><div align="right">Adınız: </div></td> <td> </td> <td><input name="AD" type="text" class="input" size="30" maxlength="40"></td> </tr> <tr> <td><div align="right">Soyadınız: </div></td> <td> </td> <td><input name="SOYAD" type="text" class="input" size="30" maxlength="40"></td> </tr> <tr> <td><div align="right">Doğum Tarihiniz:</div></td> <td>  </td> <td><select name="DOGUM_TARIHI" class="input"> <% For i = 1900 To 2006 %> <option value="<%= i%> "><%=i%></option> <% Next %> </select></td> </tr> <tr> <td> </td> <td> </td> <td> </td> </tr> <tr> <td colspan="3"><div align="center"><span class="duyuru_baslik style1">Adı ve Soyadı alanını BÜYÜK HARFLERLE giriniz.</span> </div></td> </tr> <tr> <td height="26" colspan="3"><blockquote> <p align="center" class="duyuru_baslik style1"> <input name="Submit" type="submit" class="duyuru_baslik" value="Sorgula"> </p> </blockquote></td> </tr> </table></td> </tr> </table> </form> <p> </p> </div> </body> </html> '/***********KONTROL.ASP***********/ <% Dim TCKimlikNo, AD, SOYAD, DOGUM_TARIHI TCKimlikNo = Trim(Request.Form("TC")) AD = Trim(Request.Form("AD")) SOYAD = Trim(Request.Form("SOYAD")) DOGUM_TARIHI = Trim(Request.Form("DOGUM_TARIHI")) %> <html> <head> < ******="Content-Language" content="tr"> < ********="Content-Type" content="text/html; charset=iso-8859-9"> <title>TC Kimlik Kontrol</title> </head> <body topmargin="0" leftmargin="0"> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%"> <tr> <td width="100%" align="center" height="100%"> <p> <% if Len(TCKimlikNo) <> 11 Then Response.Write "<br><div align=center><center>" Response.Write "<font face=tahoma style=""font-size: 12"" color=Red>" Response.Write("TC Kimlik Numarası 11 haneli olmalıdır.") Response.Write "<BR>" Response.Write "<a href=javascript:history.go(-1);> Geri Dönmek için tiklayiniz </a> " Response.Write "<br>" Response.End() End if FOR A= 1 TO LEN(TCKimlikNo) IF ASC(MID(TCKimlikNo,A,1))>57 OR ASC(MID(TCKimlikNo,A,1))<48 Then Response.Write "<br><div align=center><center>" Response.Write "<font face=tahoma style=""font-size: 12"" color=red>" Response.Write("TC Kimlik alanına yalnızca rakam giriniz!...") Response.Write "</font>" Response.Write "<br>" Response.Write "<a href=javascript:history.go(-1);>Geri</a>" Response.Write "<br>" Response.End() END IF NEXT Function XMLWebservices(byVal KimlikNo) Dim SOAP SOAP = "<?xml version=""1.0"" encoding=""utf-8""?>"&_ "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"&_ "<soap:Body>"&_ "<TCKimlikNoDogrula xmlns=""http://kps.nvi.gov.tr/WS/Public"">"&_ "<tcKimlikNo>"& KimlikNo &"</tcKimlikNo>"&_ "</TCKimlikNoDogrula>"&_ "</soap:Body>"&_ "</soap:Envelope>" Set objWebServices = Server.CreateObject("Msxml2.ServerXMLHTTP") objWebServices.Open "POST", "http://tckimlik.nvi.gov.tr/kpspublic.asmx", false objWebServices.setRequestHeader "Content-Type", "text/xml; charset=utf-8" objWebServices.setRequestHeader "soapAction", "http://kps.nvi.gov.tr/WS/Public/TCKimlikNoDogrula" objWebServices.Send(SOAP) Dim Text If objWebServices.readyState = 4 Then If objWebServices.Status = 200 Then Text = objWebServices.responseText End If End If Set objWebServices = Nothing XMLWebservices = Text End Function Dim Sonuc Sonuc = Trim(XMLWebservices(TCKimlikNo)) If (Len(Sonuc) <> 0) Then Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.async = False objXML.loadxml(Sonuc) Set objNODE = objXML.selectSingleNode("soap:Envelope/soap:Body/TCKimlikNoDogrulaResponse/TCKimlikNoDogrulaResult") If((objNode.childNodes.item(1).Text) <> AD) then Response.Write "<br><div align=center><center>" Response.Write "<font face=tahoma style=""font-size: 12"" color=red>" Response.Write "Adınız vermiş olduğunuz TC Kimlik Numarasına ait veriler ile uyuşmamaktadir!" Response.Write "<br>" Response.Write "Lütfen adınızı BÜYÜK HARFLERLE giriniz!" Response.Write "</font>" Response.Write "<br>" Response.Write "<a href=javascript:history.go(-1);>Geri</a>" Response.Write "<br>" Response.End end if If((objNode.childNodes.item(2).Text) <> SOYAD) then Response.Write "<br><div align=center><center>" Response.Write "<font face=tahoma style=""font-size: 12"" color=red>" Response.Write "Soyadınız vermiş olduğunuz TC Kimlik Numarasına ait veriler ile uyuşmamaktadir!" Response.Write "<br>" Response.Write "Lütfen soyadınızı BÜYÜK HARFLERLE giriniz!" Response.Write "</font>" Response.Write "<br>" Response.Write "<a href=javascript:history.go(-1);>Geri</a>" Response.Write "<br>" Response.End end if if (objNode.childNodes.item(3).Text<>DOGUM_TARIHI) then Response.Write "<br><div align=center><center>" Response.Write "<font face=tahoma style=""font-size: 12"" color=red>" Response.Write "Doğum tarihiniz vermiş olduğunuz TC Kimlik Numarasına ait veriler ile uyuşmamaktadır!" Response.Write "<br>" Response.Write "Lütfen doğum yılı alanına nüfus cüzdanınızdaki değeri giriniz!" Response.Write "</font>" Response.Write "<br>" Response.Write "<a href=javascript:history.go(-1);>Geri</a>" Response.Write "<br>" Response.End end if Set objNODE = Nothing Set objXML = Nothing Else Response.Write "<br><div align=center><center>" Response.Write "<font face=tahoma style=""font-size: 12"" color=red>" Response.Write "Girdiğiniz TC Kimlik Numarasi Hatalıdır!" Response.Write "<br>" Response.Write "Lütfen kontrol ederek tekrar deneyiniz!" Response.Write "</font>" Response.Write "<br>" Response.Write "<a href=javascript:history.go(-1);>Geri</a>" Response.Write "<br>" Response.End End If Response.Write "<br><div align=center><center>" Response.Write "<font face=tahoma style=""font-size: 12"" color=Red>" Response.Write "<b>Girilmiş olan veriler doğrudur.Teşekkür ederiz.</b>" Response.Write "<br>" Response.Write "</font>" Response.Write "<br>" Response.Write "<b><a href='javascript:window.close()'> Pencereyi Kapat</b></a>" Response.End %> </p> </td> </tr> </table> </center> </div> </body> </html> ๑۩۞۩. Fëanor Fëfalas. ۩۞۩๑

07-15-2007	#3
Ch€mist Özel Üye Türkiyenin En Kaliteli Bilgi Paylasim Mekani AKdenizForum.. Kullanıcı Bilgileri Üyelik Tarihi: Jul 2007 Nerden: K.MARAŞ Mesajlar: 4.126 Üye No: 21833 Extra Bilgiler Tecrübe Puanı: 31 Rep Gücü : 199 Rep Derecesi : İletişim	paylaşımın için teşekkürler... CH€MİST ------------------------------------------------------------------------------------------------------- [ÜYE OLMADAN LİNKLERİ GÖREMEZSİNİZ. BURAYA TIKLAYARAK BEDAVA ÜYE OLUN...] ------------------------------------------------------------------------------------------------------- €F€- AkdenizForum Toolbar Sitemizi Daha İyi Kullanmak İstiyorsanız Daha Kolaylıkla Sizde İndirin [ÜYE OLMADAN LİNKLERİ GÖREMEZSİNİZ. BURAYA TIKLAYARAK BEDAVA ÜYE OLUN...]

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	son Mesaj
Windows XP'yi Hızlandıracak Tüm Ayarlar	Brad-Let	Püf Noktalar	1	06-08-2007 05:54 AM
Windows XP Özel Ayar!!!	quant£S®	Dökümanlar	0	05-19-2007 08:55 PM
XP'ye İnce Ayar	Sh€qiL	Dökümanlar	0	05-14-2007 06:08 AM
Xp için ipuçları	Brad-Let	Dökümanlar	0	07-28-2006 08:49 AM

10-27-2006	#2
andac Amatör Üye Türkiyenin En Kaliteli Bilgi Paylasim Mekani AKdenizForum.. Kullanıcı Bilgileri Üyelik Tarihi: Oct 2006 Mesajlar: 1 Üye No: 1327 Extra Bilgiler Tecrübe Puanı: 0 Rep Gücü : 50 Rep Derecesi : İletişim	teşekkürler, güzel bir bilgi.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder