Script para validar el RUT
A continuacion veremos el script para validar un numero RUT (Numero de Identidad en Chile)
Primero una pagina que pregunta por el rut, luego en otra el script que lo procesa e indica si
el numero ingresado es válido o invalido. Espero que a todos los chilenos les sea útil.
pagina1.asp
<FORM METHOD="post" ACTION="pagina2.asp">
<B>Rut </B>
<INPUT TYPE="text" NAME="rut" SIZE="10">
<INPUT TYPE="text" NAME="dig" SIZE="3">
<INPUT TYPE="submit" NAME="Submit" VALUE="Comprobar">
</FORM>
|
pagina2.asp
<%
rut= trim(request.form("rut"))
dig=trim(request.form("dig"))
tur=strreverse(rut)
mult = 2
for i = 1 to len(tur)
if mult > 7 then
mult = 2
end if
suma = mult * mid(tur,i,1) + suma
mult = mult +1
next
valor = 11 - (suma mod 11)
if valor = 11 then
codigo_veri = "0"
elseif valor = 10 then
codigo_veri = "k"
else
codigo_veri = valor
end if
if Cstr(dig)=Cstr(codigo_veri) then
response.write "El rut esta correcto"
else
response.write "El rut esta incorrecto"
end if
%>
|
|
