La copie de code est la suivante:
<%
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
'Tianfeng ASPClassv1.0, intègre des fonctions ASP couramment utilisées
'Tianfeng Copyright http://www.52515.net
'QQ: 76994859email: [email protected]
«Tous les noms de fonction sont les suivants:
'StrLength (str) obtient la longueur de la chaîne
'Cutstr (Str, strlen) Longueur de chaîne
'CheckiSempty (TSTR) vérifie s'il est vide
'IsInteger (para) test entier
«Vérifier le nom (str) Nom de la vérification des caractères
«Vérification de mot de passe de vérification du mot de passe (STR)
«Vérification du format de boîte aux lettres à cocher (e-mail)
'Alert (MSG, Gourl) Invite de la boîte de dialogue pop-up
'GOBACK (STR1, STR2, ISBACK) Message d'erreur
'SUC (STR1, STR2, URL) Invite d'informations de réussite
'Chkpost () détecte s'il faut soumettre un formulaire à l'extérieur du site
'PSQL () empêche l'injection SQL
'FiltrateHtmlcode (Str) empêche la génération HTML
'Htmlcode (str) filtre html
'Remplacehtml (TSTR) Clear HTML
'Getip () obtient le client IP
'GetBrowser reçoit le message du navigateur client
'GetSystem obtient le système d'exploitation client
'GetUrl () obtient l'URL de la page actuelle contient des paramètres
'Curl () obtient l'URL de la page actuelle
'GetExtend obtient l'extension du fichier
'CheckExist (Table, FieldName, FieldContent, ISBLUR) détecte si le contenu d'un champ dans un certain tableau existe
'Getnum (table, nom de champ, résultat, args) détecte le nombre de champs qu'il y a dans un certain tableau, valeur maximale, valeur minimale, etc.
'GetFoldersize (FolderPath) calcule la taille d'un certain dossier
'GetFilesize (nom de fichier) calcule la taille d'un fichier
'IsOBJinStalled (StrClassString) vérifie si le composant est installé
'Sendmailjmail Envoyer un courrier
«Les réponses rédigent des cookies
`` Cleancookies clairs cookies
'GetTimeOver obtient le temps d'exécution de la page du programme
'Formattez la formatage des tailleurs
'Format de temps de forme
'Zodiac OBTAINS ZODIAC
'Constellation pour obtenir la constellation
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Classcls_fun
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ �
'*********************************************************
'Nom de la fonction: strLength
'Fonction: obtenez la longueur de la chaîne (les caractères chinois sont 2)
'Arguments: STR ----- Contenu de la chaîne
'Valeur de retour: longueur de chaîne
'*********************************************************
PublicFunctionstrLength (STR)
Dimrep, Lens, I