1. Téléchargez le fichier texte suivant et modifiez .txt en distance.asp, il existe des méthodes de paramètres spécifiques.
La copie de code est la suivante:
<%
«Que ce soit pour enregistrer des images distantes lors de l'ajout de ressources
ConstssAveFileSelect = true
'Répertoire de sauvegarde d'image distante, veuillez ne pas ajouter "/" à la fin
Constssavefilepath = "/ images / news"
'Type d'enregistrement d'image à distance
Constsfileext = "jpg | gif | bmp | png"
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////DEBLE
'Fonction: remplacez le fichier distant dans la chaîne en tant que fichier local et enregistrez le fichier distant
'paramètre:
'shtml: chaîne à remplacer
'ssavepath: le chemin pour enregistrer le fichier
'Sext: Exécutez l'extension de remplacement
FunctionReplacemOterl (shtml, ssavefilepath, sfileext)
Dims_content
s_content = shtml
IfisoBjinStalled ("Microsoft.xmlhttp") = falsethhen
RemplacemOreurl = s_content
Sortie
Endire
Dimre, Remotefile, RemoteFileUrl, SaveFilename, SaveFileType, ArrsaveFilenames, ArrsaveFilename, SsaveFilePaths
SetRe = newRegexp
re.ignorecase = true
re.global = true
re.Pattern = "((http | https | ftp | rtsp | mms): (/////////) {1} ((/ w) + [.]) {1,} (n et | com | cn | org | cc | tv | [0-9] {1,3}) (/ s * //) ((/ s) + [.] {1} ("& sfileExt &")) "
SetRemotefile = re.execute (s_content)
ForeachremotefileurlinRemotefile
SaveFileType = remplacer (remplacer (RemoteFileUrl, "/", "A"), ":", "A")
ArrsaveFileName = Right (SaveFileType, 12)
ssavefilepaths = ssavefilepath & "/"
SAVEFILENAME = SSAVEFILEPATHS ET ARRSAVEFILENAME
CALLAREMOTEFILE (SAVEFILENAME, RemoteFileUrl)
S_Content = remplacer (S_Content, RemoteFileUrl, SaveFileName)
Suivant
RemplacemOreurl = s_content
Finition de fin
»////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /
'Fonction: enregistrez les fichiers distants vers local
'Paramètre: LocalFileName ------ Nom du fichier local