Código fuente de 'Caracteres especiales.asp'
<html>
<head>
<title>Caracteres especiales - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Caracteres especiales</font></b>
<body style="font-family: Arial; font-size: 11pt">
</p>
<br>
Esta es una sencilla función que permite, dada una cadena, averiguar si contiene
caracteres especiales.<br>
Puedes configurarla para determinar cuáles ser los caracteres válidos y cuáles "especiales".<br>
En este caso: A-Z, a-z, _, y 0-9, son los caracteres válidos.<br>
<br>
<!--
' Name: Has_Invalidchar Function
' By: atwinda
'http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=7985&lngWId=4 'for details. '**************************************
-->
<form method="POST" action="Caracteres%20especiales.asp">
<p>Introduce cadena: <input type="text" name="cadena" size="20">
<input type="submit" value="Enviar" name="B1">
<input type="reset" value="Borrar" name="B2"></p>
</form>
<% dim cadena
function CarInvalido(strString)
Dim itmCur, strAlpha, strCur
CarInvalido = "False"
strAlpha = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_0123456789"
For itmCur = 1 To Len(strString)
strCur = Mid(strString, itmCur, 1)
if Not Instr(1, strAlpha, strCur) > 0 Then
CarInvalido = "True"
Exit function
End if
Next
End function
cadena=request("cadena")
if cadena<>"" then
if carinvalido(cadena) then
response.write "La cadena <b>" & cadena & "</b> tiene caracteres no válidos (o especiales)."
else
response.write "La cadena '" & cadena & "' sólo tiene caracteres válidos"
end if
end if
' response.write cadena
%>
</body></html>