Código HTML:
<label>Sexo
<select>
<option value="Hombre">Hombre</option>
<option value="Mujer">Mujer</option>
</select>
</label>
<label>Lugar de Nacimiento
<select>
<option value="AS">AGUASCALIENTES</option>
<option value="BC">BAJA CALIFORNIA</option>
<option value="BS">BAJA CALIFORNIA SUR</option>
<option value="CC">CAMPECHE</option>
<option value="CL">COAHUILA DE ZARAGOZA</option>
<option value="CM">COLIMA</option>
<option value="CS">CHIAPAS</option>
<option value="CH">CHIHUAHUA</option>
<option value="DF">DISTRITO FEDERAL</option>
<option value="DG">DURANGO</option>
<option value="GT">GUANAJUATO</option>
<option value="GR">GUERRERO</option>
<option value="HG">HIDALGO</option>
<option value="JC">JALISCO</option>
<option value="MC">MEXICO</option>
<option value="MN">MICHOACAN DE OCAMPO</option>
<option value="MS">MORELOS</option>
<option value="NT">NAYARIT</option>
<option value="NL">NUEVO LEON</option>
<option value="OC">OAXACA</option>
<option value="PL">PUEBLA</option>
<option value="QT">QUERETARO DE ARTEAGA</option>
<option value="QR">QUINTANA ROO</option>
<option value="SP">SAN LUIS POTOSI</option>
<option value="SL">SINALOA</option>
<option value="SR">SONORA</option>
<option value="TC">TABASCO</option>
<option value="TS">TAMAULIPAS</option>
<option value="TL">TLAXCALA</option>
<option value="VZ">VERACRUZ</option>
<option value="YN">YUCATAN</option>
<option value="ZS">ZACATECAS</option>
<option value="NE">NACIDO EN EL EXTRANJERO</option>
</select>
</label> Nombre -> El nombre de la persona
Appat - > El Apellido Paterno de la persona
Apmat - > El Apellido Materno de la persona
d - > Día del nacimiento de la persona ó day(fechadenacimiento)
m - > Mes de nacimiento de la persona ó month(fechadenacimiento)
a - > Año de nacimiento de la persona ó year(fechadenacimiento)
sexo - > Género de la persona (Hombre ó Mujer)
estado - > La abreviación del estado donde nacio la persona
Código PHP:
vocales = array("A","E","I","O","U") '5
consonantes = array("B","C","D","F","G","H","I","J","K","L","M","N","Ñ","P","Q","R","S","T","V","W","X","Y","Z") '23
Function menor(que)
menor=right(que,2)
End Function
Function curp(nombre, appat, apmat, d, m, a, sexo, estado)
appat=reemplazar(UCASE(Trim(appat)))
apmat=reemplazar(UCASE(Trim(apmat)))
nombre=reemplazar(UCASE(Trim(nombre)))
divpa = split(appat, " ")
divma = split(apmat, " ")
divno = split(nombre, " ")
appat=divpa(0)
apmat=divma(0)
nombre=divno(0)
response.write Left(appat,1)
for i = 2 to (len(appat))
for j=0 to 4
if vocales(j) = mid(appat,i,1) then
response.write mid(appat,i,1)
j=4
i=len(appat)
end if
next
next
response.write Left(apmat,1)
response.write Left(nombre,1)
response.write mid(a,3,2)
response.write menor("0"&m)
response.write menor("0"&d)
response.write Left(sexo,1)
response.write estado
for i = 2 to (len(appat))
for j=0 to 22
if consonantes(j) = mid(appat,i,1) then
response.write mid(appat,i,1)
j=22
i=len(appat)
end if
next
next
for i = 2 to (len(apmat))
for j=0 to 22
if consonantes(j) = mid(apmat,i,1) then
response.write mid(apmat,i,1)
j=23
i=len(apmat)
end if
next
next
for i = 2 to (len(nombre))
for j=0 to 22
if consonantes(j) = mid(nombre,i,1) then
response.write mid(nombre,i,1)
j=22
i=len(nombre)
end if
next
next
End Function
Function rfc(nombre, appat, apmat, d, m, a)
appat=reemplazar(UCASE(Trim(appat)))
apmat=reemplazar(UCASE(Trim(apmat)))
nombre=reemplazar(UCASE(Trim(nombre)))
divpa = split(appat, " ")
divma = split(apmat, " ")
divno = split(nombre, " ")
appat=divpa(0)
apmat=divma(0)
nombre=divno(0)
response.write Left(appat,1)
for i = 2 to (len(appat))
for j=0 to 4
if vocales(j) = mid(appat,i,1) then
response.write mid(appat,i,1)
j=4
i=len(appat)
end if
next
next
response.write Left(apmat,1)
response.write Left(nombre,1)
response.write mid(a,3,2)
response.write menor("0"&m)
response.write menor("0"&d)
End Function