<%
Функция функции: удаленное изображение автоматически сохраняется на локальном сервере, и водяной знак изображения с помощью ASPJPEG
'(Примечание: сначала создайте каталог изображений в каталоге, чтобы сохранить временные картинки)
«Эта программа должна установить« компонент ASPJPEG »на сервер, в противном случае она не будет использоваться нормально
'Вы также можете взять только вышеупомянутые части '' '' 2222222 '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
'Как использовать, пожалуйста, SaveImg.asp
'saveImg.asp? url = http: //siyizhu.com/logo.gif Вы можете удалить картинку, hoho. Другие функции, которые необходимо добавить, пожалуйста, разверните их сами.
«Как получить другие файлы суффиксов? Конечно, это нормально
'(JPG | GIF | PNG | BMP) TO (MP3) я понимаю? Это просто имя файла с суффиксом mp3. И так далее. Хе -хе
Server.ScriptTimeout = 99999
constsavepath = "Images" изображения Сохранить путь
url = запрос ("url")
functionmyreplace (str)
Newsstr = str
setobjregex = newRegexp
objregex.ignorecase = true
objregex.global = true
objregex.pattern = "http: // (.+?)/. (jpg | gif | png | bmp)" 'define file суффикс
setmatches = objregex.execute (str)
foreachmatchinmatches
newsstr = reply (newstr, match.value, saveimg (match.value))
следующий
myreplace = Newstr
конечная функция
functionsaveimg (url)
temp = split (url, ".")
'Следующее - переименовать имя файла со временем и случайными числами
рандомизировать
rannum = int (90000*rnd) +10000
Имя файла = год (сейчас) и месяц (сейчас) и день (сейчас) и час (сейчас) и минута (сейчас) и второй (сейчас) и Rannum & "." & temp (Ubund (Temp))
'Имя файла переименование заканчивается
setxmlhttp = server.createObject ("microsoft.xmlhttp")
xmlhttp.open "get", url, false
xmlhttp.send
img = xmlhttp.responsebody
setxmlhttp = ничего
setobjadoStream = server.createObject ("adodb.stream")
objadostream.open ()
objadoStream.type = 1
objadoStream.write (IMG)
objadoStream.savetofile (server.mappath (savePath & filename))
objadostream.seteos
setobjadostream = ничего
'' '' '' '' '22222222222' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
SaveImg = SavePath & FileName'get Save Path
Dimjpeg
Setjpeg = server.createObject ("persits.jpeg")
Jpeg.openserver.mappath (saveimg) 'Откройте путь, чтобы сохранить картинку
'Добавить текстовый водяной знак
Jpeg.canvas.font.color = & hff0000'red
Jpeg.canvas.font.family = "宋体"
Jpeg.canvas.font.bold = true
Jpeg.canvas.printjpeg.originalwidth-200
'Сохраните файл
Jpeg.saveserver.mappath (saveimg) 'Сохраните изображение после добавления водяного знака
'Объект входа в систему
Setjpeg = ничего
конечная функция
%>
Обратите внимание на поддержку компонентов вашего сервера.