<%
'Función de función: la imagen remota se guarda automáticamente en el servidor local y marca la imagen de agua usando AspJPEG
'(Nota: crea primero el directorio de imágenes en el directorio para guardar imágenes temporales)
'Este programa necesita instalar "componente ASPJPEG" en el servidor, de lo contrario no se usará normalmente
'También solo puedes tomar las partes anteriores de '' '2222222'''''' .'''''' .'''''' .''''''' .''''''' .'''''' .'''''' .'''''' .'''''. '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'Cómo usar, por favor saveImg.asp
'saveimg.asp? url = http: //siyizhu.com/logo.gif puede eliminar la imagen, hoho. Otras funciones que deben agregarse, expandelas usted mismo.
'¿Cómo obtener otros archivos de sufijo? Por supuesto, está bien
'(jpg | gif | png | bmp) a (mp3) ¿Entiendo? Es solo un nombre de archivo con el sufijo de MP3. Etcétera. Jeje
Server.scripttimeout = 99999
constsavePath = "Imágenes" 'Imágenes Guardar ruta
url = request ("url")
functionMyreplace (STR)
Newsstr = Str
setobjregex = newregexp
objregex.ignorecase = True
objregex.global = verdadero
objregex.pattern = "http: // (.+?)/. (jpg | gif | png | bmp)" 'Definir sufijo de archivo
setmatches = objregex.execute (str)
foreachmatchinmatches
Newsstr = Reemplazar (Newstr, Match.Value, SaveImg (Match.Value))
próximo
MyReplace = Newstr
Función final
functionsaveimg (URL)
temp = Split (URL, ".")
'Lo siguiente es cambiar el nombre del nombre del archivo con el tiempo y los números aleatorios
aleatorizar
rannum = int (90000*rnd) +10000
FileName = año (ahora) y mes (ahora) y día (ahora) & Hour (ahora) y minuto (ahora) y segundo (ahora) & rannum & "." & Temp (Ubund (temp))
'Nombre del archivo Renaming termina
setxmlhttp = server.createObject ("Microsoft.xmlhttp")
xmlhttp.open "Get", URL, falso
xmlhttp.send
img = xmlhttp.ResponseBody
setxmlhttp = nada
setobjadostream = server.createObject ("ADODB.Stream")
objadostream.open ()
objadostream.type = 1
objadostream.write (img)
objadostream.savetofile (server.mappath (SavePath & FileName)))
objadostream.seteos
setobjadostream = nada
'' '' '' '' '22222222222' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
saveImg = savePath & filename'get save ruta
Dimjpeg
SetJpeg = server.createObject ("Persits.jpeg")
Jpeg.openserver.mappath (saveImg) 'Abra la ruta para guardar la imagen
'Agregar texto de agua
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 distancia desde la marca de agua a la izquierda y la distancia desde la parte superior, esto se coloca en el pie derecho derecho
'Guarde el archivo
Jpeg.saveserver.mappath (saveImg) 'Guardar la imagen después de agregar la marca de agua
'Objeto de inicio de sesión
SetJpeg = nada
Función final
%>
Preste atención al soporte de componentes de su servidor.