Recomendado: Colección útil de funciones en el desarrollo de ASP (2) Una colección de funciones útiles en el desarrollo de ASP es bastante útil, ¡por favor guárdela! '***************************************' Filtrado Hyperlink '*****************************************
¡Una colección de funciones útiles en el desarrollo de ASP es bastante útil! ¡Espero que todos lo mantengan!
<%
'********************************************
'Evitar presentaciones externas
'********************************************
función chkpost ()
dim server_v1, server_v2
chkpost = falso
server_v1 = cstr (request.serverVariables (http_referer))
server_v2 = cstr (request.serverVariables (server_name))
Si mid (server_v1,8, len (server_v2)) <> server_v2 entonces
chkpost = falso
demás
chkpost = verdadero
final si
función final
'********************************************
'Filtrado de IP
'********************************************
función MatchIP (IP)
En el currículum de error siguiente
Matchip = falso
Dim Sip, Splitip
para cada sorbo en filtroip
Sip = reemplazar (sip,*,/d*)
Splitip = Split (SIP,.)
Dim Re, Strmatchs, Strip
Establecer re = nuevo regexp
re.ignorecase = True
re.global = verdadero
re.pattern = (& Splitip (0) |). (& Splitip (1) |). (& Splitip (2) |). (& Splitip (3) |)
Establecer strmatchs = re.execute (IP)
strip = strmatchs (0) .submatches (0) y. & strmatchs (0) .submatches (1) y. & strmatchs (0) .submatches (2) y. & strmatchs (0) .submatches (3)
if strip = ip entonces matchip = true: función de salida
Establecer strmatchs = nada
Establecer re = nada
próximo
función final
'********************************************
'Obtenga el código de registro
'********************************************
Función getCode ()
getCode = <img src = común/getCode.asp alt = style = margin-right: 40px;/>
Función final
'********************************************
'Limite los tipos de archivos
'********************************************
Función isValidFile (file_type)
IsValidFile = falso
Dim Gname
Para cada gname en UP_FILETYPE
If file_type = gname entonces
IsValidFile = True
Salir
Final si
Próximo
Función final
'********************************************
'Detección de si solo se incluyen el inglés y los números
'********************************************
Función isValidchars (STR)
Dim re, chkstr
Establecer re = nuevo regexp
re.ignorecase = True
re.global = verdadero
re.pattern = [^_/. A-ZA-Z/D]
Isvalidchars = verdadero
chkstr = re.replace (str,)
Si chkstr <> str entonces isValidChars = falso
establecer re = nada
Función final
'********************************************
'Detección de si solo se incluyen el inglés y los números
'********************************************
Función isValidValue (Arrayn, STR)
IsValidValue = falso
Dim Gname
Para cada gname en Arrayn
Si str = gname entonces
IsValidValue = True
Salir
Final si
Próximo
Función final
'********************************************
'Detectar si el número es válido
'********************************************
Función isinteger (para)
IsInteger = falso
Si no (isnull (para) o recorte (para) = o no es isnumérico (para)) entonces
IsInteger = verdadero
Final si
Función final
'********************************************
'Detección de nombre de usuario
'********************************************
Función isValidusername (Nombre de usuario BYVAL)
En el currículum de error siguiente
Dim I, C
Dim vusername
IsValidusername = True
Para i = 1 a Len (nombre de usuario)
c = lcase (medio (nombre de usuario, i, 1))
If instr (! <>?#^%@~ `&*();:+= ', C)> 0 entonces
IsValidusername = falso
Función de salida
Final si
Próximo
Para cada nombre de vusern en registro_USERNAME
Si username = Vusername entonces
IsValidusername = falso
Salir
Final si
Próximo
Función final
'********************************************
'Verifique si la dirección de correo electrónico es válida
'********************************************
Función isValidEmail (correo electrónico)
Nombres tenues, nombre, I, C
ISValidEmail = True
Nombres = Split (correo electrónico, @)
Si Ubound (nombres) <> 1 entonces
IsValidemail = falso
Función de salida
Final si
Para cada nombre en los nombres
Si len (nombre) <= 0 entonces
IsValidemail = falso
Función de salida
Final si
Para i = 1 a Len (nombre)
c = lcase (Mid (nombre, i, 1))
Si instrer (abcdefghijklmnopqrstuvwxyz_-., C) <= 0 y no isnumérico (c) entonces entonces
IsValidemail = falso
Función de salida
Final si
Próximo
Si se deja (nombre, 1) =. o correcto (nombre, 1) =. Entonces
IsValidemail = falso
Función de salida
Final si
Próximo
If instrer (nombres (1) ,.) <= 0 entonces
IsValidemail = falso
Función de salida
Final si
i = len (nombres (1)) - Instrrever (nombres (1) ,.)
Si yo <> 2 y i <> 3 entonces
IsValidemail = falso
Función de salida
Final si
If instrer (correo electrónico, ..)> 0 entonces
IsValidemail = falso
Final si
Función final
'********************************************
'Resaltar las palabras clave
'********************************************
Resaltado de la función (ByVal StrContent, Byref Arraywords)
Dim intcounter, strtemp, intPOS, inttagLength, intkeywordlength, bupdate
Si Len (Arraywords) <1 entonces resalta = strContent: Función de salida
Para intpos = 1 a len (strContent)
bupdate = falso
Si Mid (strContent, intpos, 1) = <entonces
En el currículum de error siguiente
inttagLength = (instr (intPOS, strContent,>, 1) - intPOS)
Si err entonces
destacado = strContent
Err.Clear
final si
strtemp = strtemp & mid (strContent, intpos, inttagLength)
intPOS = intPOS + inttagLength
Final si
Si Arraywords <> entonces
intKeywordLength = Len (Arraywords)
Si lcase (Mid (strContent, intPOS, intKeywordLength)) = lcase (Arraywords) entonces
strtemp = strtemp & <span class = high1> & mid (strContent, intPOS, intKeyWordLength) & </span>
intPOS = intPOS + intKeyWordLength - 1
bupdate = verdadero
Final si
Final si
Si bupdate = falso entonces
strtemp = strtemp & mid (strContent, intpos, 1)
Final si
Próximo
destacado = strtemp
Función final
Compartir: colección útil de funciones en el desarrollo de ASP (3) Una colección de funciones útiles en el desarrollo de ASP es bastante útil, ¡por favor guárdela! '***************************************' Slice Content-Split por línea '*************************************