<%
'Função da função: a imagem remota é salva automaticamente no servidor local e marcar a imagem usando aspjpeg
'(Nota: crie o diretório de imagens no diretório primeiro para salvar imagens temporárias)
'Este programa precisa instalar o "componente aspjpeg" no servidor, caso contrário, não será usado normalmente
'Você também pode levar apenas as partes acima de '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Como usar, por favor, salveimg.asp
'Salvarimg.asp? url = http: //siyizhu.com/logo.gif Você pode remover a imagem, hoho. Outras funções que precisam ser adicionadas, por favor, expandi -las você mesmo.
'Como obter outros arquivos de sufixo? Claro, está tudo bem
'(jpg | gif | png | bmp) para (mp3) eu entendo? É apenas um nome de arquivo com o sufixo de MP3. E assim por diante. Hehe
Server.scriptTimeout = 99999
ConstSavePath = "Images" 'Imagens salvam o caminho
url = solicitação ("url")
FunctionMyPlace (STR)
Newsstr = str
setObjregex = newRegexp
objregex.ignorecase = true
objregex.global = true
objregex.pattern = "http: // (.+?)/. (jpg | gif | png | bmp)" 'define o sufixo de arquivo
setMatches = objregex.execute (str)
foreachMatchinMatches
Newsstr = Substitua (Newstr, Match.Value, SaveImg (Match.value))
próximo
MyRplace = Newsttr
Função final
Funçõesveimg (URL)
temp = divisão (url, ".")
'O seguinte é renomear o nome do arquivo com tempo e números aleatórios
randomizar
rannum = int (90000*rnd) +10000
FILENAME = Ano (agora) e mês (agora) & Day (agora) & Hour (agora) & Minute (agora) & Second (agora) & Rannum & "." & Temp (Ubund (temp))
'Nome do arquivo renomeando termina
setxmlHttp = server.createObject ("Microsoft.xmlHttp")
xmlhttp.open "get", url, false
xmlHttp.send
img = xmlHttp.ResponseBody
setxmlHttp = nada
setObjadosTream = server.createObject ("adodb.stream")
objadosTream.open ()
objadosTream.type = 1
objadostream.write (img)
objadosTream.Savetofile (Server.mappath (SalvePath & FileName))
objadosTream.seteos
SetoBJadosTream = nada
'' '' '' '' '222222222222' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
salvarimg = salvar e fileName'get salvar caminho
Dimjpeg
Setjpeg = server.createObject ("Persits.jpeg")
Jpeg.openserver.mappath (salvimg) 'Abra o caminho para salvar a imagem
'Adicione a marca d'água de texto
Jpeg.canvas.font.color = & hff0000'red
Jpeg.canvas.font.family = "宋体"
Jpeg.canvas.font.bold = true
Jpeg.canvas.printjpeg.originalwidth-200, jpeg.originHeight-50, "siyizhu.com" 'a distância da marca d'água à esquerda e a distância do topo, que é colocada no pé inferior direito
'Salve o arquivo
Jpeg.saveserver.mappath (salvimg) 'salve a imagem depois de adicionar a marca d'água
'Objeto de login
Setjpeg = nada
Função final
%>
Preste atenção ao suporte ao componente do servidor.