<%
'Fonction Fonction: l'image distante est automatiquement enregistrée sur le serveur local et filigrane l'image à l'aide d'AspjPEG
'(Remarque: veuillez d'abord créer le répertoire d'images dans le répertoire pour enregistrer les images temporaires)
'Ce programme doit installer "composant aspjpeg" sur le serveur, sinon il ne sera pas utilisé normalement
'Vous ne pouvez également prendre que les parties ci-dessus de '' '' 2222222'''''''''''''''''''''''''''''''''''' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'Comment utiliser, veuillez sauvegarder
'SaveImg.asp? url = http: //siyizhu.com/logo.gif Vous pouvez supprimer l'image, hoho. D'autres fonctions qui doivent être ajoutées, veuillez les développer vous-même.
«Comment obtenir d'autres fichiers de suffixe? Bien sûr, ça va
'(jpg | gif | png | bmp) à (mp3) je comprends? C'est juste un nom de fichier avec le suffixe de MP3. Et ainsi de suite. Hehe
Server.scriptTimeout = 99999
constsavepath = "images" 'images enregistrer le chemin
url = request ("url")
fonctionmyreplace (str)
newsstr = str
setObjregex = newRegexp
objregex.ignorecase = true
objregex.global = true
objRegex.Pattern = "http: // (. +?) /. (jpg | gif | png | bmp)" 'définir le suffixe de fichier
setmatches = objregex.execute (str)
foreachmatchinmatches
newsstr = Remplacer (newstr, match.value, sauvegarde (match.value)))
suivant
myreplace = newtr
finition de fin
FunctionSaveImg (URL)
temp = divisé (url, ".")
«Ce qui suit est de renommer le nom du fichier avec le temps et les nombres aléatoires
randomiser
rannum = int (90000 * rnd) +10000
FileName = année (maintenant) et mois (maintenant) et jour (maintenant) & hour (maintenant) & Minute (maintenant) & Second (Now) & Rannum & "." & Temp (Ubund (temp))
«Le nom de fichier Renommandation se termine
setxmlhttp = server.createObject ("Microsoft.xmlhttp")
xmlhttp.open "Get", URL, faux
xmlhttp.send
img = xmlhttp.ResponseBody
setxmlhttp = rien
setObjadoStream = server.createObject ("adodb.stream")
objadostream.open ()
objadostream.type = 1
objadostream.write (IMG)
objadostream.savetofile (server.mappath (SavePath & FileName))
objadostream.seteos
setObjadostream = rien
'' '' '' '' '2222222222' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
SaveImg = SavePath & FileName'get Save Path
Dimjpeg
Setjpeg = server.createObject ("persits.jpeg")
Jpeg.openserver.mappath (SaveImg) 'Ouvrez le chemin pour enregistrer l'image
'Ajouter un filigrane de texte
Jpeg.canvas.font.color = & hff0000'red
Jpeg.canvas.font.family = "宋体"
Jpeg.canvas.font.bold = true
Jpeg.canvas.printjpeg.originalwidth-200, jpeg.originalheight-50, "siyizhu.com" '' la distance entre le filigrane à gauche et la distance du haut, ceci est placé sur le pied inférieur droit
'Enregistrer le fichier
Jpeg.saveserver.mappath (SAVEIMG) 'Enregistrer l'image après avoir ajouté le filigrane
«Objet de connexion
Setjpeg = rien
finition de fin
%>
Faites attention à la prise en charge du composant de votre serveur.