Dans ASP, en particulier dans les systèmes CMS qui doivent générer des états statiques, certains fichiers doivent souvent être jugés, créés et supprimés. Aujourd'hui, le rédacteur en chef de la chaîne Error New Technology l'a réglé pour vous ici, qui répond essentiellement aux besoins de base.
Fonctions personnalisées couramment utilisées dans ASP pour gérer le téléchargement et la suppression des fichiers
<%
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
'Toutes les fonctions VBS personnalisées
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
fonction deletefile (nom de fichier) 'supprimer le fichier
Si le nom de fichier <> "" alors
Set fso = server.createObject ("scripting.filesystemObject")
Si fso.fileexists (nom de fichier) alors
nom de fichier fso.deletefile
terminer si
Définir FSO = rien
terminer si
fonction finale
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
Fonction Createdir (ByVal LocalPath) 'Le programme qui crée un répertoire. S'il y a plusieurs niveaux de répertoires, le crée un niveau à la fois
sur l'erreur reprendre ensuite
LocalPath = remplacer (localpath, "/", "/")
set fileObject = server.createObject ("scripting.filesystemObject")
patharr = fendre (localpath, "/")
path_level = ubund (patharr)
pour i = 0 à path_level
Si i = 0 alors pathtmp = patharr (0) & "/" else pathtmp = pathtmp & patharr (i) & "/"
cpath = gauche (pathtmp, len (pathtmp) -1)
Si non fileObject.Folderexists (cPath), alors fileObject.createFolder CPATH
suivant
set fileObject = rien
Si err.number <> 0 alors
CreateDir = false
err.Clear
autre
CreateDir = true
terminer si
fonction finale
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
fonction SaverandFileName (byval szfilename) 'générer un nouveau nom de fichier aléatoire basé sur le nom du fichier d'origine
randomiser
'rannum = int (90000 * rnd) +10000
'Si mois (maintenant) <10 alors c_month = "0" et mois (maintenant) else c_month = mois (maintenant)
'Si le jour (maintenant) <10 alors c_day = "0" & jour (maintenant) else c_day = jour (maintenant)
'Si heure (maintenant) <10 alors c_hour = "0" et heure (maintenant) sinon c_hour = heure (maintenant)
'Si minute (maintenant) <10 alors c_Mnute = "0" et minute (maintenant) else c_Minute = Minute (maintenant)
'Si deuxième (maintenant) <10 alors c_second = "0" & second (maintenant) else c_second = minute (maintenant)
FileExt_A = Split (SzFileName, ".")
fileExt = lCase (fileExt_a (ubund (fileExt_a)))
SaverandFileName = remplacer (remplacer (remplacer (maintenant, ":", ""), "-", ""), "", "") & int (10 * rnd) & "." & FileXt
'GeneraterAndoMFileName = Year (Now) & C_Month & C_Day & C_Hour & C_MINUTE & C_SECOND & "_" & RANNUM & "." & FileExt
fonction finale
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
fonction Jaron_Replacer (StrContent, start_string, end_string, rechange_string)
'Fonction de remplacement CMS: chaîne source, première partie, dernière partie, caractères remplacés
'Renvoie la chaîne remplacée
Jaron_Replacer = Remplace (StrContent, Mid (StrContent, instr (strContent, start_string), instr (strContent, end_string) + len (end_string) -1), remplace_string)
fonction finale
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
fonction remplaceplus (strContent, start_string, end_string, replace_string)
'Dans le document, supprimez tous les caractères entre le début et la fin
sur l'erreur reprendre ensuite
MarkCounts = Ubund (Split (StrContent, Start_String))
PRESTRING = STRCONTENT
pour i = 0 à markcounts
Startmark = instr (1, prestring, start_string, 1)
Si startmark = 0 alors sortez pour
Compmark = instr (1, prestring, end_string, 1) + len (end_string)
Verstring = mid (prestring, startmark, compmark - startmark)
Prestring = remphier (prestring, verstring, remplace_string)
suivant
remplaceplus = prestring
Si err.number <> 0 alors err.clear
fonction finale
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
%>
L'article ci-dessus concerne les fonctions de traitement de fichiers couramment utilisées dans ASP. Je crois que tout le monde en connaît la plupart. Le mauvais canal de la nouvelle technologie continuera de collecter des connaissances plus utiles pour vous. J'espère que vous pouvez comprendre les bonnes intentions de l'éditeur. Si vous aimez cet article, continuez à nous suivre!