Recommandé: collection utile de fonctions dans le développement ASP (2) Une collection de fonctions utiles dans le développement ASP est très utile, veuillez le garder! '******************************************' Filtrage Hyperlien '********************************* Fonction vérification (Byval Chkstr) Dim Str: Str = chktr Str = Trim (str) If isNull (str)
Une collection de fonctions utiles dans le développement ASP est très utile! J'espère que tout le monde le garde!
<%
'******************************************
'Empêcher les soumissions externes
'******************************************
fonction chkpost ()
dim server_v1, server_v2
chkpost = false
server_v1 = cstr (request.servervariables (http_referer)))
server_v2 = cstr (request.servervariables (server_name))
Si mid (server_v1,8, Len (server_v2)) <> server_v2 alors
chkpost = false
autre
chkpost = true
terminer si
fonction finale
'******************************************
'Filtrage IP
'******************************************
Fonction MatchIp (IP)
sur l'erreur reprendre ensuite
MatchIp = False
Sombre sombre, divisé
pour chaque gorgée dans Filterip
Sip = remplacer (sip, *, / d *)
SplipIP = Split (SIP ,.)
Dim re, strmatchs, bande
Définir Re = nouveau regexp
re.ignorecase = true
re.global = true
re.Pattern = (& SpripIP (0) |). (& SPISTIP (1) |). (& SPISTIP (2) |). (& SPTIPIP (3) |)
Définir StrMatchs = Re.Execute (IP)
strip = strmatchs (0). submatches (0) &. & Strmatchs (0) .Submatches (1) &. & Strmatchs (0) .Submatches (2) &. & Strmatchs (0) .Submatchs (3)
Si strip = ip alors matchIp = true: fonction de sortie
Définir les strmatchs = rien
Définir RE = rien
suivant
fonction finale
'******************************************
'Obtenez le code d'enregistrement
'******************************************
Fonction getcode ()
getCode = <img src = commun / getcode.asp alt = style = margin-droite: 40px; />
Fonction finale
'******************************************
'Limiter les types de fichiers
'******************************************
Fonction isValidFile (file_type)
IsValidFile = false
Déchaîner
Pour chaque gname dans up_filetype
Si file_type = gname alors
IsValidFile = true
Sortir pour
Terminer si
Suivant
Fonction finale
'******************************************
«Détection si seuls l'anglais et les chiffres sont inclus
'******************************************
Fonction isvalidchars (str)
Dim RE, chkstr
Définir Re = nouveau regexp
re.ignorecase = true
re.global = true
re.Pattern = [^ _ /. A-za-z / d]
IsvalidChars = True
chkstr = re.replace (str,)
Si chkstr <> str alors isvalidchars = false
Définir RE = rien
Fonction finale
'******************************************
«Détection si seuls l'anglais et les chiffres sont inclus
'******************************************
Fonction isvalidvalue (arrayn, str)
IsValidValue = false
Déchaîner
Pour chaque gname dans Arrayn
Si str = gname alors
IsValidValue = true
Sortir pour
Terminer si
Suivant
Fonction finale
'******************************************
'Détecter si le nombre est valide
'******************************************
Fonction est IntInteger (para)
IsInteger = false
Sinon (isNull (para) ou Trim (para) = ou non ISNUMERIC (PARA)) puis
IsInteger = true
Terminer si
Fonction finale
'******************************************
'Détection du nom d'utilisateur
'******************************************
Fonction isValidUsername (nom d'utilisateur byVal)
sur l'erreur reprendre ensuite
Dim i, c
DIM VUsername
IsvalidUsername = true
Pour i = 1 à Len (nom d'utilisateur)
c = lCase (mid (nom d'utilisateur, i, 1))
Si instr (! <>? # ^% @ ~ `& * () ;: + = ', c)> 0 alors
IsvalidUsername = false
Fonction de sortie
Terminer si
Suivant
Pour chaque vusername dans registre_username
Si username = vusername alors
IsvalidUsername = false
Sortir pour
Terminer si
Suivant
Fonction finale
'******************************************
'Vérifiez si l'adresse e-mail est valide
'******************************************
Fonction isvalidemail (e-mail)
Noms sombres, nom, i, c
Isvalidemail = true
Noms = Split (e-mail, @)
Si ubound (noms) <> 1 alors
Isvalidemail = false
Fonction de sortie
Terminer si
Pour chaque nom en noms
Si Len (nom) <= 0 alors
Isvalidemail = false
Fonction de sortie
Terminer si
Pour i = 1 à Len (nom)
c = lCase (mid (nom, i, 1))
Si instr (abcdefghijklmnopqrstuvwxyz_-., C) <= 0 et non isnutérique (c) alors
Isvalidemail = false
Fonction de sortie
Terminer si
Suivant
Si vous êtes laissé (nom, 1) =. ou à droite (nom, 1) =. Alors
Isvalidemail = false
Fonction de sortie
Terminer si
Suivant
Si instr (noms (1),.) <= 0 alors
Isvalidemail = false
Fonction de sortie
Terminer si
i = len (noms (1)) - instrrev (noms (1),.)
Si je <> 2 et je <> 3 alors
Isvalidemail = false
Fonction de sortie
Terminer si
Si instr (e-mail, ..)> 0 alors
Isvalidemail = false
Terminer si
Fonction finale
'******************************************
'Mettez en surbrillance les mots clés
'******************************************
Fonction Highlight (ByVal StrContent, ByRef Arraywords)
Dim intCounter, StrTemp, Intpos, InttagLength, IntkeyWordLength, Bupdate
Si Len (Arraywords) <1 alors highlight = strContent: Fonction de sortie
Pour Intpos = 1 à Len (strContent)
bupdate = false
Si mid (strContent, intpos, 1) = <alors
Sur l'erreur reprendre ensuite
inttagLength = (instant (intpos, strContent,>, 1) - Intpos)
Si err alors
Highlight = StrContent
err.Clear
terminer si
StrTemp = StrTemp & Mid (StrContent, Intpos, InttagLength)
intpos = intpos + inttagLength
Terminer si
Si Arraywords <> alors
intKeyWordLength = len (arraywords)
Si LCase (Mid (StrContent, Intpos, intkeyWordLength)) = LCase (Arraywords) alors
strTemp = strTemp & <span class = high1> & mid (strContent, intpos, intkekewordLength) & </span>
intpos = intpos + intKeyWordLength - 1
bupdate = true
Terminer si
Terminer si
Si bupdate = false alors
StrTemp = StrTemp & Mid (StrContent, Intpos, 1)
Terminer si
Suivant
Highlight = StrTemp
Fonction finale
Partager: collection utile de fonctions dans le développement ASP (3) Une collection de fonctions utiles dans le développement ASP est très utile, veuillez le garder! '*****************************************' Slice Content-Split by Line '******************************** Fonction Splitlines (contenu ByVal, Byval ContentNums) Dim Ts, i, l ContentNums = int (