Cet article partage principalement le code de fonction pour le remplacement d'ASP et la sauvegarde des images distantes.
ASP utilise des fonctions pour remplacer et enregistrer des images distantes, remplir les fonctions de la collecte et de l'extraction automatiquement des images, jugez automatiquement les images répétitives dans la fonction, analysez intelligemment le chemin de liaison et convertissez-la en une adresse d'image relative et enregistrez-la dans le répertoire du site Web vous spécifié. Nous pouvons utiliser cette fonction dans l'éditeur d'arrière-plan. En même temps, ce code est également une fonction de traitement importante dans le programme de collecte.
- FunctionReplaceSavelemotefile (CONSTR, strinstalldir, strChanneldir, Savetf, Tisturl)
- IfConstr = $ false $ oronstr = orstrinstalldir = orstrChanneldir = puis
- ReplaceSeemotefile = CONSTRAL
- Sortie
- Endire
- Dimtemptr, Temptr2, Temptr3, Re, Matches, Match, Temppi, Temparray, Temparray2
- SetRe = newRegexp
- Re.ignorecase = true
- Re.global = true
- Re.Pattern =]>
- Setmatches = re.execute (hent)
- Foreachmatchinmatches
- IfTemptr <> puis
- TEMPSTR = TEMPSTR & $ Array $ & Match.Value
- Autre
- Temptr = Match.Value
- Endire
- Suivant
- IfTemptr <> puis
- Temparray = Split (temptr, $ array $)
- Temptr =
- Fortempi = 0Toubound (temparray)
- Re.Pattern = src / s * = / s *. +? /. (Gif | jpg | bmp | jpeg | psd | png | svg | dxf | wmf | tiff)
- Setmatches = re.execute (temparray (tempi))
- Foreachmatchinmatches
- IfTemptr <> alors
- TEMPSTR = TEMPSTR & $ Array $ & Match.Value
- Autre
- Temptr = Match.Value
- Endire
- Suivant
- Suivant
- Endire
- IfTemptr <> alors
- Re.Pattern = src / s * = / s *
- Temptr = re.replace (TEMPSTR,)
- Endire
- Setmatches = rien
- Setdre = rien
- IfTemptr = orisnull (Temptr) = truethen
- ReplaceSeemotefile = CONSTRAL
- Sortie
- Endire
- Temptr = remplacer (temptr ,,)
- Temptr = remplacer (temptr, ',)
- Temptr = remplacer (temptr ,,)
- DimRemoteFileUrl, SavePath, PathTemp, Dtnow, StrFilename, StrFileType, ArrsaveFilename, Rannum, Arr_Path
- DtNow = maintenant ()
- Ifsavetf = truethen
- SavePath = strChanneldir & / & Year (dtnow) & droite (0 & mois (dtnow), 2) & / /
- Response.Write Link Path: & SavePath &
- Arr_path = split (sauvegarde, /)
- Pathtemp =
- Fortempi = 0Toubound (arr_path)
- IfTempi = 0Then
- PathTemp = arr_path (0) & /
- Elseitempi = ubound (ar_path) puis
- Sortie
- Autre
- PathTemp = pathTemp & ar_path (tempi) & /
- Endire
- IFCHECKDIR (PathTemp) = falsethhen
- IfMakenewsdir (pathtemp) = falsethhen
- SaveTf = false
- Sortie
- Endire
- Endire
- Suivant
- Endire
- 'Supprimer les images en double
- Temparray = Split (temptr, $ array $)
- Temptr =
- Fortempi = 0Toubound (temparray)
- IFinstr (lcase (temptr), lcase (temparray (temppi))) <1 the
- TEMPSTR = TEMPSTR & $ Array $ & temparray (Temppi)
- Endire
- Suivant
- Temptr = à droite (Temptr, Len (Temptr) -7)
- Temparray = Split (temptr, $ array $)
- 'Convertir l'adresse d'image relative
- Temptr =
- Fortempi = 0Toubound (temparray)
- TEMPSTR = TEMPSTR & $ Array $ & DefiteUrl (Temparray (Temppi), Tisturl)
- Suivant
- Temptr = à droite (Temptr, Len (Temptr) -7)
- TEMPSTR = remplacer (Temptr, Chr (0),)
- Temparray2 = Split (temptr, $ array $)
- Temptr =
- 'Remplacement d'image / sauvegarde
- SetRe = newRegexp
- Re.ignorecase = true
- Re.global = true
- Fortempi = 0Toubound (temparray2)
- RemoteFileUrl = temparray2 (tempi)
- IfremotefileUrl <> $ false $ andsavetf = TrueThen'save Image
- ArrsaveFileName = Split (RemoteFileUrl ,.)
- strFileType = lCase (ArrsaveFileName (UBound (ArrsaveFileName))) 'Type de fichier
- IfStrfileType = aspostrFileType = asaorstrFileType = ASPXORSTRFILETYPE = CERORSTRFILETYPE = CDXORSTRFILETYPE = EXEORSTRFILETYPE = RAROSTRFILETYPE = ZIPTHEN
- Uploadfiles =
- ReplaceSeemotefile = CONSTRAL
- Sortie
- Endire
- Randomiser
- Rannum = int (900 * rnd) +100
- strFileName = Year (dtnow) & right (0 & mois (dtnow), 2) & droite (0 & day (dtnow), 2) & droite (0 & hour (dtnow), 2) & droite (0 & minute (dtnow), 2) & droite (0 & second (dtnow), 2 ) & à droite (0 & second (dtnow), 2) & rannum &. & strfiletype
- Re.Pattern = temparray (tempi)
- Ifsavelemotefile (SavePath & StrFilename, RemoteFileUrl) = truethen
- '************************************
- PathTemp = SavePath & strfilename
- Contr = Re.replace (CONSTR, PATHTEMP)
- Re.Pattern = strinstalldir & strChanneldir & /
- UploadFiles = uploadFiles & | & re.replace (SavePath & StrFileName,)
- Autre
- PathTemp = RemoteFileUrl
- Contr = Re.replace (CONSTR, PATHTEMP)
- 'UploadFiles = uploadFiles & | & RemoteFileUrl
- Endire
- ElseifremotefileUrl <> $ false $ andsavetf = falshehen 'n'économise pas l'image
- Re.Pattern = temparray (tempi)
- Contr = Re.replace (CONSTR, RemoteFileUrl)
- UploadFiles = uploadFiles & | & RemoteFileUrl
- Endire
- Suivant
- Setdre = rien
- Ifuploadfiles <> puis
- UploadFiles = Right (uploadFiles, Len (uploadFiles) -1)
- Endire
- ReplaceSeemotefile = CONSTRAL
- Finition de fin
Description du paramètre de fonction:
CONSTR: La chaîne à remplacer
Paramètres: SAVETF: Que ce soit pour enregistrer le fichier, False ne sauve pas, vrai sauvegarde
Paramètres: TISTURL: Adresse actuelle de la page Web
Ce qui précède est le code pour le remplacement ASP et l'enregistrement de la fonction d'image distante, j'espère que cela sera utile à l'apprentissage de tout le monde.