<%
'**********************************
'Función: checkstring (strng)
'Parámetro: strng, cadena a verificar
'Autor: Alixi
'Fecha: 2007/7/13
'Descripción: Detectar si una cadena es una combinación de letras y números puros
'Ejemplo: <%= checkstring (strng)%>
'**********************************
FunctionCheckstring (strng)
Checkstring = verdadero
Dimregex, partido
Setregex = newregexp
regex.pattern = "^[A-ZA-Z0-9]+$"
regex.ignorecase = true
SetMatch = regex.execute (strng)
ifmatch.countThencheckString = falso
Función final
%>
Detectar si es un personaje chino
<%
'**********************************
'Función: checkChinese (strng)
'Parámetro: strng, personaje a verificar
'Autor: Alixi
'Fecha: 2007/7/13
'Descripción: Detectar si es un carácter chino, Valor de retorno: Verdadero en chino, de lo contrario Falso
'Ejemplo: <%= checkchinese (strng)%>
'**********************************
FunctionCheckChinese (strng)
Checkchinese = verdadero
Dimregex, partido
Setregex = newregexp
regex.pattern = "/||/#|/& |? |/@|/%|/*| // |/. |/, |/; |/'|/: |/-|/_ |/+|/^|/" |/= |/<| ///// "
regex.ignorecase = true
SetMatch = regex.execute (strng)
ifmatch.CountThencheckChinese = FALSO
Función final
%>