Les amis qui utilisent ASP pour développer des sites Web peuvent apprendre de ses fonctions ASP pour faciliter l'apprentissage et améliorer l'efficacité du développement . Copiez le Code comme suit :
<%
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
'Tianfeng ASP classe v1.0, intégrant les fonctions asp communes en une seule
'Tianfeng Tous droits réservés
'QQ : 76994859 EMAIL : [email protected]
'Tous les noms de fonctions sont les suivants :
' StrLength(str) obtient la longueur de la chaîne
' CutStr(str,strlen) coupe de longueur de chaîne
' CheckIsEmpty(tstr) vérifie s'il est vide
' isInteger(para) test entier
' CheckName(str) vérification du caractère du nom
' CheckPassword(str) vérification du mot de passe
' CheckEmail(email) Vérification du format de l'e-mail
'Alert(msg,goUrl) affiche une invite de boîte de dialogue
' Message d'erreur GoBack(Str1,Str2,isback)
' Invite de message de réussite de l'opération Suc(str1,str2,url)
' ChkPost() détecte si le formulaire est soumis en dehors du site
' PSql() empêche l'injection SQL
' FiltrateHtmlCode(Str) empêche la génération de HTML
' HtmlCode(str) filtre HTML
'Remplacehtml(tstr) Nettoyer le HTML
'GetIP() Obtenez l'adresse IP du client
'GetBrowser Récupère les informations du navigateur client
' GetSystem obtient le système d'exploitation client
'GetUrl() Obtient l'URL de la page actuelle, y compris les paramètres
'CUrl() Récupère 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 une table existe
' GetNum(table,fieldname,resulttype,args) détecte le nombre de champs dans une table, la valeur maximale, la valeur minimale, etc.
' GetFolderSize(Folderpath) calcule la taille d'un dossier
' GetFileSize(Filename) calcule la taille d'un fichier
' IsObjInstalled(strClassString) détecte si le composant est installé
'EnvoyerMail JMAILEnvoyer un courrier
'ResponseCookies écrit des cookies
' CleanCookies Supprimer les cookies
' GetTimeover obtient le temps d'exécution de la page du programme
'Formatage de la taille FormatSize
'Formatage de l'heure FormatTime
' Le zodiaque obtient le signe du zodiaque
' Constellation obtient la constellation
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Classe Cls_fun
'－－－－－－－－Traitement des caractères－－－－－－－－－－－－－－－－－－－－－－－－－
'************************************************ * **
'Nom de la fonction : StrLength
'Fonction : Obtient la longueur de la chaîne (les caractères chinois sont 2)
'Paramètre : str ---- contenu de la chaîne
'Valeur de retour : longueur de la chaîne
'************************************************ * **
Fonction publique StrLength(str)
Dim Rep, lentille, je
Définir rep = nouvelle expression rationnelle
rep.Global=true
rep.IgnoreCase=true
rep.Pattern=[/u4E00-/u9FA5/uF900-/uFA2D]
Pour chaque i dans rep.Execute(str)
objectif=objectif+1
Suivant
Définir Rep = Rien
objectif=objectif + len(str)
strLength=lentille
Fonction de fin
'************************************************ * **
'Nom de la fonction : CutStr
'Fonction : Couper la longueur de la chaîne et afficher des ellipses si elle dépasse la longueur
'Paramètre : str ---- contenu de la chaîne
' strlen ------La longueur à afficher
'Valeur de retour : contenu de la chaîne après la coupe
'************************************************ * **
Fonction publique CutStr(str,strlen)
Dim l,t,i,c
Si str= Alors
cutstr=
Fonction de sortie
Fin si
str=Remplacer(Remplacer(Remplacer(Remplacer(Remplacer(str, , ),,Chr(34)),>,>),<,<),|,|)
l=Len(chaîne)
t=0
Pour i=1 À l
c=Abs(Asc(Mid(str,i,1)))
Si c>255 Alors
t=t+2
Autre
t=t+1
Fin si
Si t>=strlen Alors
cutstr=Gauche(str,i) & ...
Quitter pour
Autre
cutstr=str
Fin si
Suivant
cutstr=Remplacer(Remplacer(Remplacer(Remplacer(remplacer(cutstr, , ),Chr(34),),>,>),<,<),|,|)
Fonction de fin
'－－－－－－－－－－－－－－Vérification des séries－－－－－－－－－－－－－－－－－－－－－－－－－ －－
'************************************************ * **
'Nom de la fonction : CheckIsEmpty
'Fonction : Vérifier s'il est vide
'Paramètre : tstr ---- chaîne
'Valeur de retour : vrai n'est pas vide, faux est vide
'************************************************ * **
Fonction publique CheckIsEmpty (tstr)
CheckIsEmpty=faux
Si IsNull(tstr) ou Tstr= Alors quittez la fonction
Dim Str,ré
Str=Tstr
Définir re=new RegExp
re.IgnoreCase = Vrai
re.Global=Vrai
str= Remplacer(str, vbNewLine, )
str = Remplacer (str, Chr (9), )
str = Remplacer (str, , )
str = Remplacer (str, , )
re.Pattern=<img(.[^>]*)>
str =re.Replace(Str,94kk)
re.Pattern=<(.[^>]*)>
Str=re.Replace(Str,)
Définir Re=Rien
Si Str<> Alors CheckIsEmpty=true
Fonction de fin
'************************************************ * **
'Nom de la fonction : isInteger
'Fonction : Test d'entier
'Paramètre : tstr ---- caractère
'Valeur de retour : true est un entier, false n'est pas un entier
'************************************************ * **
Fonction publique isInteger(para)
en cas d'erreur reprendre Suivant
Dimstr
Faible je, je
Si isNUll(para) alors
estInteger=false
fonction de sortie
Terminer si
str=cstr(para)
Si trim(str)= alors
estInteger=false
fonction de sortie
Terminer si
l=len(chaîne)
Pour i=1 à l
Si mid(str,i,1)>9 ou mid(str,i,1)<0 alors
estInteger=false
fonction de sortie
Terminer si
Suivant
estInteger=true
Si err.number<>0 alors err.clear
Fonction de fin
'************************************************ * **
'Nom de la fonction : CheckName
'Fonction : Vérification des caractères du nom
'Paramètre : str ---- chaîne
'Valeur de retour : vrai est correct, faux est incorrect
'************************************************ * **
Fonction publique CheckName (Str)
Nom de contrôle = vrai
Dim Rep, passe
Définir Rep = Nouvelle RegExp
Rep.Global=Vrai
Rep.IgnoreCase=True
'Faire correspondre les lettres, les chiffres, les traits de soulignement et les caractères chinois et doit commencer par des lettres, des traits de soulignement ou des caractères chinois.
Modèle de représentant = ^[a-zA-Z_u4e00-/u9fa5][/w/u4e00-/u9fa5]+$
Définir pass=Rep.Execute(Str)
Si pass.count=0 Alors CheckName=false
Définir Rep = Rien
Fonction de fin
'************************************************ * **
'Nom de la fonction : CheckPassword
'Fonction : Vérification du mot de passe
'Paramètre : str ---- chaîne
'Valeur de retour : vrai est correct, faux est incorrect
'************************************************ * **
Fonction publique CheckPassword (Str)
Passage faible
CheckPassword = vrai
Si Str <> Alors
Rép. faible
Définir Rep = Nouvelle RegExp
Rep.Global = Vrai
Rep.IgnoreCase = True
'Faire correspondre les lettres, les chiffres, les traits de soulignement et les points
Modèle de représentation=[a-zA-Z0-9_/.]+$
Pass=rep.Test(Str)
Définir Rep = rien
Si ce n'est pas le cas, alors CheckPassword=false
Fin si
Fonction de fin
'************************************************ * **
'Nom de la fonction : CheckEmail
'Fonction : Détection du format d'e-mail
'Paramètre : str ----Adresse e-mail
'Valeur de retour : vrai est correct, faux est incorrect
'************************************************ * **
Fonction publique CheckEmail(email)
CheckEmail = vrai
Rép. faible
Définir Rep = nouveau RegExp
rep.pattern=([/.a-zA-Z0-9_-]){2,10}@([a-zA-Z0-9_-]){2,10}(/.([a-zA- Z0-9]){2,}){1,4}$
pass=rep.Test(e-mail)
Définir Rep = Rien
Si ce n'est pas réussi, alors CheckEmail=false
Fin de fonction
'－－－－－－－－－－－－－－Invite d'informations－－－－－－－－－－－－－－－－－－－－－－－－－ －－
'************************************************ * **
'Nom de la fonction : Alerte
'Fonction : Afficher une invite de boîte de dialogue
'Paramètre : msg ---- informations sur la boîte de dialogue
' gourl ---- où se tourner après une invite
'Valeur de retour : Aucune
'************************************************ * **
Alerte de fonction publique (msg, goUrl)
msg = remplacer(msg,',/')
Si goUrl= Alors
goUrl=histoire.go(-1);
Autre
goUrl=window.location.href='&goUrl&'
Fin SI
Response.Write (<script langage=JavaScript type=text/javascript>&vbNewLine&alert(' & msg & ');&goUrl&vbNewLine&</script>)
Réponse.Fin
Fonction de fin
'************************************************ * **
'Nom de la fonction : GoBack
'Fonction : message d'erreur
'Paramètre : str1 ---- titre de l'invite d'information
' str2 ---- contenu de l'invite d'information
'isback ---- Afficher ou non le retour
'Valeur de retour : Aucune
'************************************************ * **
Fonction publique GoBack(Str1,Str2,isback)
Si Str1= Alors Str1=Message d'erreur
Si Str2= Alors Str2=Veuillez remplir tous les champs obligatoires
Si isback= Alors
Str2=Str2& <a href=javascript:history.go(-1)>Retour pour recharger</a></li>
autre
Fil2 = Fil2
finir si
Response.Write<div style=margin-left:5px;border:1px solid #0066cc;width:98%><div style=height:22px;font-weight:bold;color : blanc; taille de police: 14 px; arrière-plan: #799AE1; arrière-plan: url (images/th.gif);; alignement du texte: gauche; hauteur de ligne: 20 px; remplissage: 3 px;>&Str1& </div><div style=line-height:50px;background:#F7F7F7;vertical-align:middle;font-size:14px;width:100%><div style=color:red;font:50px/50px 宋体;float:left;width :5%>×</div><div style=margin-top:8px;float:right;width:90%;text-align:left;padding-left:3px;>&str2&</div></div></div>
réponse.end
Fonction de fin
'************************************************ * **
'Nom de la fonction : Suc
'Fonction : informations d'invite de réussite
'Paramètre : str1 ---- titre de l'invite d'information
' str2 ---- contenu de l'invite d'information
' url ---- adresse de retour
'Valeur de retour : Aucune
'************************************************ * **
Fonction publique Suc(str1,str2,url)
Si str1= Alors Str1=Opération réussie
Si str2= Alors Str2=Cette opération a été complétée avec succès !
Si url= Alors url=javascript:history.go(-1)
str2=str2& <a href=&url& >Retour pour continuer la gestion</a>
Response.Write<div style=margin-left:5px;border:1px solid #0066cc;width:98%><div style=height:22px;font-weight:bold;color : blanc; taille de police: 14 px; arrière-plan: #799AE1; arrière-plan: url (images/th.gif);; alignement du texte: gauche; hauteur de ligne: 20 px; remplissage: 3 px;>&Str1& </div><div style=line-height:50px;background:#F7F7F7;vertical-align:middle;font-size:14px;width:100%><div style=color:red;font:50px/50px 宋体;float:left;width :5%>√</div><div style=margin-top:8px;float:right;width:90%;text-align:left;padding-left:3px;>&str2&</div></div></div>
Fonction de fin
'－－－－－－－－－－－－－－Manipulation sûre－－－－－－－－－－－－－－－－－－－－－－－－－ －－
'************************************************ * **
'Nom de la fonction : ChkPost
'Fonction : interdire l'envoi de formulaire en dehors du site
'Valeur de retour : vrai pour une soumission sur site, faux pour une soumission hors site
'************************************************ * **
Fonction publique ChkPost()
Faible URL1, URL2
chkpost = vrai
url1=Cstr(Request.ServerVariables(HTTP_REFERER))
url2=Cstr(Request.ServerVariables(SERVER_NAME))
Si Mid(url1,8,Len(url2))<>url2 Alors
chkpost = faux
fonction de sortie
Fin si
Fin de fonction
'************************************************ * **
'Nom de la fonction : PSql
'Fonction : Empêcher l'injection SQL
'Valeur de retour : S'il est vide, il n'y aura pas d'injection. S'il n'est pas vide, il sera injecté et le caractère injecté sera renvoyé.
'************************************************ * **
Fonction publique PSql()
Psql=
badwords= 'anti' anti; anti et anti exec anti insert anti select anti update anti delete anti count anti * anti % anti chr anti mid anti master anti truncate anti char anti declare anti |
mauvais mot = split (mauvais mots, défense)
Si Request.Form<> Alors
Pour chaque TF_Post dans Request.Form
Pour i = 0 vers Ubound (mauvais mot)
Si Instr(LCase(Request.Form(TF_Post)),badword(i))>0 Alors
Psql=mauvais mot(i)
fonction de sortie
Fin si
Suivant
Suivant
Fin si
Si Request.QueryString<> Alors
Pour chaque TF_Get dans Request.QueryString
Pour i = 0 vers Ubound (mauvais mot)
Si Instr(LCase(Request.QueryString(TF_Get)),badword(i))>0 Alors
Psql=mauvais mot(i)
fonction de sortie
Fin si
Suivant
Suivant
Fin si
Fonction de fin
'************************************************ * **
'Nom de la fonction : FiltrateHtmlCode
'Fonction : Empêcher la génération de code HTML
'Paramètre : str ---- chaîne
'************************************************ * **
Fonction publique FiltrateHtmlCode(Str)
Si Not isnull(str) Et str<> alors
Str=Remplacer(Str,Chr(9),)
Str=remplacer(Str,|,|)
Str=remplacer(Str,chr(39),')
Str=remplacer(Str,<,<)
Str=remplacer(Str,>,>)
Str = Remplacer (str, CHR (13),)
Str = Remplacer (str, CHR (10),)
FiltrateHtmlCode=Str
Fin si
Fonction de fin
'************************************************ * **
'Nom de la fonction : HtmlCode
'Fonction : filtrer les balises HTML
'Paramètre : str ---- chaîne
'************************************************ * **
Fonction publique HtmlCode(str)
Si Not isnull(str) Et str<> alors
str = remplacer (str, >, >)
str = remplacer (str, <, <)
str = Remplacer (str, CHR (32), )
str = Remplacer (str, CHR (9), )
str = Remplacer (str, CHR (34), )
str = Remplacer(str, CHR(39), ')
str = Remplacer (str, CHR (13), )
str = Remplacer (str, CHR (10), )
str = Remplacer (str, script, script)
Code HTML = chaîne
Fin si
Fonction de fin
'************************************************ * **
'Nom de la fonction : Remplacerhtml
'Fonction : nettoyer le HTML
'Paramètre : tstr ---- chaîne
'************************************************ * **
Fonction publique Replacehtml(tstr)
Dim Str,ré
Str=Tstr
Définir re=new RegExp
re.IgnoreCase = Vrai
re.Global=Vrai
re.Pattern=<(p|//p|br)>
Str=re.Replace(Str,vbNewLine)
re.Pattern=<img.[^>]*src(=| )(.[^>]*)>
str=re.replace(str,[img]$2[/img])
re.Pattern=<(.[^>]*)>
Str=re.Replace(Str,)
Définir Re=Rien
Remplacerhtml=Str
Fonction de fin
'------------Obtenir des informations sur le client et le serveur------------------
'************************************************ * **
'Nom de la fonction : GetIP
'Fonction : Obtenir l'adresse IP du client
'Valeur de retour : adresse IP du client
'************************************************ * **
Fonction publique GetIP()
Faible température
Temp = Request.ServerVariables (HTTP_X_FORWARDED_FOR)
Si Temp = ou isnull(Temp) ou isEmpty(Temp) Alors Temp = Request.ServerVariables(REMOTE_ADDR)
Si Instr(Temp,')>0 Alors Temp=0.0.0.0
GetIP=Temp
Fonction de fin
'************************************************ * **
'Nom de la fonction : GetBrowser
'Fonction : Obtenir des informations sur le navigateur client
'Valeur de retour : informations sur le navigateur client
'************************************************ * **
Fonction publique GetBrowser()
info=Request.ServerVariables(HTTP_USER_AGENT)
si Instr(info,NetCaptor 6.5.0)>0 alors
navigateur=NetCaptor 6.5.0
elseif Instr(info,MyIe 3.1)>0 alors
navigateur=MonIe 3.1
elseif Instr(info,NetCaptor 6.5.0RC1)>0 alors
navigateur=NetCaptor 6.5.0RC1
elseif Instr(info,NetCaptor 6.5.PB1)>0 alors
navigateur=NetCaptor 6.5.PB1
elseif Instr(info,MSIE 5.5)>0 alors
navigateur=Internet Explorer 5.5
elseif Instr(info,MSIE 6.0)>0 alors
navigateur=Internet Explorer 6.0
elseif Instr(info,MSIE 6.0b)>0 alors
navigateur=Internet Explorer 6.0b
elseif Instr(info,MSIE 5.01)>0 alors
navigateur=Internet Explorer 5.01
elseif Instr(info,MSIE 5.0)>0 alors
navigateur=Internet Explorer 5.00
elseif Instr(info,MSIE 4.0)>0 alors
navigateur=Internet Explorer 4.01
autre
navigateur = autre
finir si
Fonction de fin
'************************************************ * **
'Nom de la fonction : GetSystem
'Fonction : Obtenir le système d'exploitation client
'Valeur de retour : système d'exploitation client
'************************************************ * **
Fonction GetSystem()
info=Request.ServerVariables(HTTP_USER_AGENT)
si Instr(info,NT 5.1)>0 alors
système = Windows XP
sinon si Instr(info,Tel)>0 alors
système = Téléport
elseif Instr(info,webzip)>0 alors
système = webzip
sinon si Instr(info,flashget)>0 alors
système = flashget
elseif Instr(info,hors ligne)>0 alors
système = hors ligne
sinon si Instr(info,NT 5)>0 alors
système = Windows 2000
sinon si Instr(info,NT 4)>0 alors
système = Windows NT4
sinon si Instr(info,98)>0 alors
système = Windows 98
sinon si Instr(info,95)>0 alors
système = Windows 95
sinon si instr(info,unix) ou instr(info,linux) ou instr(info,SunOS) ou instr(info,BSD) alors
système = de type Unix
elseif instr(lesoft,Mac) alors
système = Mac
autre
système = autre
finir si
Fonction de fin
'************************************************ * **
'Nom de la fonction : GetUrl
'Fonction : Obtenir l'URL incluant les paramètres
'Valeur de retour : Obtenez l'URL incluant les paramètres
'************************************************ * **
Fonction publique GetUrl()
Dim strTemp
strTemp=Request.ServerVariables(Script_Name)
Si Trim(Request.QueryString)<> Alors
strTemp=strTemp&?
Pour chaque M_item dans Request.QueryString
strTemp=strTemp&M_item&=&Server.UrlEncode(Trim(Request.QueryString(&M_item&)))
suivant
finir si
GetUrl=strTemp
Fonction de fin
'************************************************ * **
'Nom de la fonction : CUrl
'Fonction : fonction pour obtenir l'URL de la page courante
'Valeur de retour : fonction de l'URL de la page actuelle
'************************************************ * **
FonctionCUrl()
Nom_de_domaine = LCase(Request.ServerVariables(Nom_du_serveur))
Nom_page = LCase(Request.ServerVariables(Script_Name))
Quary_Name = LCase(Request.ServerVariables(Quary_String))
Si Quary_Name = Alors
CUrl = http://&Nom_du_domaine&Nom_de la page
Autre
CUrl = http://&Nom_domaine&Nom_page&?&Nom_quaire
Fin si
Fonction de fin
'************************************************ * **
'Nom de la fonction : GetExtend
'Fonction : Obtenir l'extension du fichier
'Paramètre : nom de fichier ---- nom de fichier
'************************************************ * **
Fonction publique GetExtend (nom de fichier)
faible tmp
si nom de fichier<> alors
tmp=mid(nom de fichier,instrrev(nom de fichier,.)+1,len(nom de fichier)-instrrev(nom de fichier,.))
tmp=LCase(tmp)
si instr(1,tmp,asp)>0 ou instr(1,tmp,php)>0 ou instr(1,tmp,php3)>0 ou instr(1,tmp,aspx)>0 alors
getextend=txt
autre
getextend=tmp
finir si
autre
getextend=
finir si
Fonction de fin
'－－－－－－－－－－－－－－－－－－Opération de base de données－－－－－－－－－－－－－－－－－－－－－ －
'************************************************ * **
'Nom de la fonction : CheckExist
'Fonction : Détecter si un certain contenu existe dans un certain champ d'une certaine table
'Paramètre : table ---- nom de la table
'nom du champ ----nom du champ
'fieldcontent ----Contenu du champ
' isblur ---- s'il faut une correspondance floue
'Valeur de retour : false n'existe pas, true existe
'************************************************ * **
Fonction CheckExist(table,fieldname,fieldcontent,isblur)
CheckExist = faux
Si isblur=1 Alors
set rsCheckExist=conn.execute(select * from &table& où &fieldname& comme '%&fieldcontent&%')
autre
set rsCheckExist=conn.execute(select * from &table& où &fieldname&= '&fieldcontent&')
Terminer si
sinon (rsCheckExist.eof et rsCheckExist.bof) alors CheckExist=true
rsCheckExist.close
définir rsCheckExist = rien
Fonction de fin
'************************************************ * **
'Nom de la fonction : GetNum
'Fonction : Détecter le nombre, la valeur maximale ou minimale d'un certain champ dans une table
'Paramètre : table ---- nom de la table
'nom du champ ----nom du champ
'resulttype ----Renvoyer les résultats (nombre/max/min)
' arguments ---- participation supplémentaire (commander par...)
'Valeur de retour : valeur numérique
'************************************************ * **
Fonction GetNum (table, nom du champ, type de résultat, arguments)
GetFieldContentNum=0
si nom de champ= alors nom de champ=*
sqlGetFieldContentNum=sélectionner &resulttype&(&fieldname&) à partir de &table& arguments
définir rsGetFieldContentNum=conn.execute(sqlGetFieldContentNum)
sinon (rsGetFieldContentNum.eof et rsGetFieldContentNum.bof) alors GetFieldContentNum=rsGetFieldContentNum(0)
rsGetFieldContentNum.close
définir rsGetFieldContentNum=rien
Fonction de fin
'************************************************ * **
'Nom de la fonction : UpdateValue
'Fonction : Mettre à jour la valeur d'un certain champ dans la table
'Paramètre : table ---- nom de la table
'nom du champ ----nom du champ
'fieldvalue ---- valeur mise à jour
'je l'ai fait
' url -------adresse redirigée après la mise à jour
'Valeur de retour : Aucune
'************************************************ * **
Fonction publique UpdateValue (table, nom du champ, valeur du champ, id, url)
conn.Execute(mettre à jour &table& définir &fieldname&=&fieldvalue& où id=&CLng(trim(id)))
si url<> alors URL de réponse.redirection
Fonction de fin
'－－－－－－－－－－－－－Informations et opérations sur le serveur－－－－－－－－－－－－－－－－－－－－－
'************************************************ * **
'Nom de la fonction : GetFolderSize
'Fonction : Calculer la taille d'un dossier
'Paramètres : FileName ----Chemin du dossier et nom du dossier
'Valeur de retour : valeur numérique
'************************************************ * **
Fonction publique GetFolderSize (chemin du dossier)
dim fso, d, taille, taille d'affichage
définir fso=server.createobject (scripting.filesystemobject)
drvpath=server.mappath (chemin du dossier)
si fso.FolderExists (drvpath) Alors
définir d=fso.getfolder(drvpath)
taille = d.taille
GetFolderSize=FormatSize(taille)
Autre
GetFolderSize=Chemin du dossier et le dossier n'existe pas
Fin si
Fonction de fin
'************************************************ * **
'Nom de la fonction : GetFileSize
'Fonction : Calculer la taille d'un fichier
'Paramètre : FileName ----Chemin et nom du fichier
'Valeur de retour : valeur numérique
'************************************************ * **
Fonction publique GetFileSize(FileName)
Dim fso, drvpath, d, taille, showsize
définir fso=server.createobject (scripting.filesystemobject)
filepath=server.mappath(FileName)
si fso.FileExists (chemin du fichier) alors
set d=fso.getfile(chemin du fichier)
taille = d.taille
GetFileSize=FormatSize(taille)
Autre
GetFileSize=FileName&File n'existe pas
Fin si
définir fso = rien
Fonction de fin
'************************************************ * **
'Nom de la fonction : IsObjInstalled
'Fonction : Vérifier si le composant est installé
'Paramètre : strClassString ---- nom du composant
'Valeur de retour : false n'existe pas, true existe
'************************************************ * **
Fonction publique IsObjInstalled(strClassString)
En cas d'erreur, reprendre ensuite
IsObjInstalled=Faux
Err=0
DimxTestObj
Définir xTestObj=Server.CreateObject(strClassString)
Si 0=Err Alors IsObjInstalled=True
Définir xTestObj=Rien
Err=0
Fonction de fin
'************************************************ * **
'Nom de la fonction : SendMail
'Fonction : Utiliser le composant Jmail pour envoyer des emails
'Paramètre : ServerAddress ---- adresse du serveur
'AddRecipient----adresse du destinataire
' Sujet ---- sujet
'Corps ---- contenu de la lettre
'Expéditeur ---- adresse de l'expéditeur
'************************************************ * **
Fonction publique SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom)
en cas d'erreur, reprendre ensuite
Faible JMail
Définir JMail=Server.CreateObject(JMail.SMTPMail)
si c'est une erreur, alors
SendMail= Le composant JMail n'est pas installé
err.clear
fonction de sortie
finir si
JMail.Logging=True
JMail.Charset=gb2312
JMail.ContentType = texte/html
JMail.ServerAddress=MailServerAddress
JMail.AddRecipient=AddRecipient
JMail.Sujet=Sujet
JMail.Body=MailBody
JMail.Sender=Expéditeur
JMail.From = MailFrom
JMail.Priority=1
JMail.Execute
Définir JMail = rien
si c'est une erreur, alors
SendMail=err.description
err.clear
autre
EnvoyerMail=OK
finir si
fonction de fin
'************************************************ * **
'Nom de la fonction : ResponseCookies
'Fonction : écrire des COOKIES
'Paramètre : Clé ---- nom du cookie
'valeur ----valeur du cookie
' expire ---- délai d'expiration du cookie
'************************************************ * **
Fonction publique ResponseCookies (Clé, Valeur, Expire)
DomainPath=Left(Request.ServerVariables(script_name),inStrRev(Request.ServerVariables(script_name),/))
Réponse.Cookies(Clé)=&Valeur&
si Expire<>0 alors Response.Cookies(Key).Expires=date+Expires
Response.Cookies(Key).Path=DomainPath
Fonction de fin
'************************************************ * **
'Nom de la fonction : CleanCookies
'Fonction : Effacer les COOKIES
'************************************************ * **
Fonction publique CleanCookies()
DomainPath=Left(Request.ServerVariables(script_name),inStrRev(Request.ServerVariables(script_name),/))
Pour chaque objCookie dans Request.Cookies
Réponse.Cookies(objCookie)=
Response.Cookies(objCookie).Path=DomainPath
Suivant
Fonction de fin
'************************************************ * **
'Nom de la fonction : GetTimeOver
'Fonction : Effacer les COOKIES
'Paramètre : flag ---Afficher l'unité de temps 1=secondes, sinon millisecondes
'************************************************ * **
Fonction publique GetTimeOver (drapeau)
DimEndTime
Si drapeau = 1 Alors
EndTime=FormatNumber(Timer() - StartTime, 6, vrai)
getTimeOver = Temps d'exécution de cette page : & EndTime & secondes
Autre
EndTime=FormatNumber((Timer() - StartTime) * 1000, 3, vrai)
getTimeOver = Temps d'exécution de cette page : & EndTime & millisecondes
Fin si
Fin de fonction
'－－－－－－－－－－－－－－－－－Format de la série－－－－－－－－－－－－－－－－－－－－－－ －－
'************************************************ * **
'Nom de la fonction : FormatTaille
'Fonction : formatage de la taille
'Paramètre : taille ----La taille à formater
'************************************************ * **
Fonction publique FormatSize(dsize)
si dsize>=1073741824 alors
FormatSize=Formatnumber(dsize/1073741824,2) & Go
sinon si dsize>=1048576 alors
FormatSize = Numéro de format (dsize/1048576,2) et Mo
sinon si dsize>=1024 alors
FormatSize=Formatnumber(dsize/1024,2) & Ko
autre
FormatSize=dsize & Octet
finir si
Fonction de fin
'************************************************ * **
'Nom de la fonction : FormatHeure
'Fonction : formatage de l'heure
'Paramètre : DateTime ---- heure à formater
'Format ----Formater le formulaire
'************************************************ * **
Fonction publique FormatTime(DateTime,Format)
sélectionner la casse Format
cas 1
FormatTime=&année(DateTime)&année&mois(DateTime)&mois&jour(DateTime)&日
cas 2
FormatTime=&mois(DateTime)&mois&jour(DateTime)&日
cas 3
FormatTime=&année(DateTime)&/&mois(DateTime)&/&jour(DateTime)&
cas 4
FormatTime=&mois(DateHeure)&/&jour(DateHeure)&
cas 5
FormatTime=&mois(DateTime)&mois&jour(DateTime)&日&FormatDateTime(DateTime,4)&
cas 6
temp=Dimanche, Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi
temp=split(temp,,)
FormatTime=temp(Jour de la semaine(DateTime)-1)
cas Sinon
FormatHeure=DateHeure
fin de la sélection
Fonction de fin
'--------------------Divers--------------------
'************************************************ * **
'Nom de la fonction : Zodiaque
'Fonction : obtenir la vie et la mort
'Paramètre : anniversaire ---- anniversaire
'************************************************ * **
Fonction publique Zodiaque (anniversaire)
si IsDate (anniversaire) alors
année de naissance = année (anniversaire)
ZodiacList=array(singe, poulet, chien, cochon, rat, bœuf, tigre, lapin, dragon, serpent, cheval, mouton)
Zodiac=ZodiacList (année de naissance mod 12)
finir si
Fonction de fin
'************************************************ * **
'Nom de la fonction : Constellation
'Fonction : Obtenir la constellation
'Paramètre : anniversaire ---- anniversaire
'************************************************ * **
Constellation de fonction publique (anniversaire)
si IsDate (anniversaire) alors
ConstellationMon=mois (anniversaire)
ConstellationDay=jour (anniversaire)
si Len(ConstellationMon)<2 alors ConstellationMon=0&ConstellationMon
si Len(ConstellationDay)<2 alors ConstellationDay=0&ConstellationDay
MaConstellation=ConstellationLun&ConstellationDay
si MaConstellation < 0120 alors
constellation=<img src=images/Constellation/g.gif />elseif MaConstellation < 0219 alors
constellation=<img src=images/Constellation/h.gif />elseif MaConstellation < 0321 alors
constellation=<img src=images/Constellation/i.gif />elseif MyConstellation < 0420 alors
constellation=<img src=images/Constellation/^.gif />elseif MaConstellation < 0521 alors
constellation=<img src=images/Constellation/_.gif />elseif MaConstellation < 0622 alors
constellation=<img src=images/Constellation/`.gif />elseif MaConstellation < 0723 alors
constellation=<img src=images/Constellation/a.gif />elseif MyConstellation < 0823 alors
constellation=<img src=images/Constellation/b.gif />elseif MyConstellation < 0923 alors
constellation=<img src=images/Constellation/c.gif />elseif MaConstellation < 1024 alors
constellation=<img src=images/Constellation/d.gif />elseif MaConstellation < 1122 alors
constellation=<img src=images/Constellation/e.gif />elseif MaConstellation < 1222 alors
constellation=<img src=images/Constellation/f.gif />elseif MyConstellation > 1221 alors
constellation=<img src=images/Constellation/g.gif />end if
finir si
Fonction de fin
'================================================== =
'Nom de la fonction : page automatique
'Fonction : pagination automatique des articles longs
'Paramètres : identifiant, contenu, urlact
'================================================== =
Fonction AutoPage (contenu, paramètre, pagevar)
contentStr=split(content,pagevar)
pagesize=ubound(contentStr)
si taille de page>0 alors
Si Int(Request(page))= ou Int(Request(page))=0 Alors
numéro de page = 1
Autre
pageNum = Demande (page)
Terminer si
si pageNum-1<=pagesize alors
AutoPage=AutoPage&contentStr(pageNum-1)
AutoPage=AutoPage&<div style=margin-top:10px;text-align:right;padding-right:15px;><font color=blue>Numéro de page :</font><font color=red>
Pour i=0 à la taille de la page
si je = numéropage-1 alors
AutoPage=AutoPage&[<font color=red>&i+1&</font>]
autre
si instr(paramater,?)>0 alors
AutoPage=AutoPage&<a href=¶mater&&page=&i+1&>[&(i+1)&]</a>
autre
AutoPage=AutoPage&<a href=¶mater&?page=&i+1&>[&(i+1)&]</a>
finir si
finir si
Suivant
AutoPage=AutoPage&</font></div>
autre
AutoPage=AutoPage&Opération illégale ! Numéro de page dépassé ! <a href=javascript:history.back(-1)><u>Retour</u></a>
finir si
Autre
Page automatique = contenu
finir si
Fonction de fin
Fin du cours
%>