<%
'Fungsi fungsi: gambar jarak jauh secara otomatis disimpan ke server lokal, dan watermark gambar menggunakan ASPJPEG
'(Catatan: Harap buat direktori gambar di direktori terlebih dahulu untuk menyimpan gambar sementara)
'Program ini perlu menginstal "komponen aspjpeg" di server, jika tidak, itu tidak akan digunakan secara normal
'Anda juga hanya dapat mengambil bagian di atas '' '' 2222222'''''''''''''''''''''''''''''''''''''''''''''''''A '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang ”yang” ”yang”' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang ”yang” ”yang”' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang ”yang” ”yang”' '' '' '' '
'Bagaimana cara menggunakannya, tolong saveImg.asp
'saveimg.asp? url = http: //siyizhu.com/logo.gif Anda dapat menghapus gambar, hoho. Fungsi lain yang perlu ditambahkan, tolong kembangkan sendiri.
'Bagaimana cara mendapatkan file sufiks lainnya? Tentu saja, tidak apa -apa
'(jpg | gif | png | bmp) ke (mp3) saya mengerti? Itu hanya nama file dengan akhiran mp3. Dan sebagainya. Hehe
Server.ScriptTimeout = 99999
constsavePath = "gambar" '' gambar menyimpan jalur
url = permintaan ("url")
functionMyreplace (str)
newsstr = str
setobjregex = newregexp
objregex.ignorecase = true
objregex.global = true
objregex.pattern = "http: // (.+?)/. (jpg | gif | png | bmp)" 'define file sufiks
setMatches = objregex.execute (str)
ForeachMatchInmatches
newsstr = ganti (newstr, match.value, saveImg (match.value))
Berikutnya
MyReplace = Newstr
fungsi endfungsi
FunctionsAveImg (URL)
temp = split (url, ".")
'Berikut ini adalah mengganti nama nama file dengan waktu dan nomor acak
mengacak
rannum = int (90000*rnd) +10000
FileName = Tahun (Sekarang) & Bulan (Sekarang) & Hari (Sekarang) & Jam (Sekarang) & Menit (Sekarang) & Kedua (Sekarang) & Rannum & "." & Temp (Ubund (Temp))
'File nama penggantian nama
setxmlhttp = server.createObject ("microsoft.xmlhttp")
xmlhttp.open "get", url, false
xmlhttp.send
img = xmlhttp.ResponseBody
setxmlhttp = tidak ada
setobjadoStream = server.createObject ("adodb.stream")
objadostream.open ()
objadostream.type = 1
Objadostream.write (IMG)
Objadostream.Savetofile (Server.Mappath (SavePath & FileName))
objadostream.seteos
setobjadostream = tidak ada
'' '' '' '' 2222222222 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' yang
saveImg = savePath & filename'get save path
DIMJPEG
Setjpeg = server.createObject ("persits.jpeg")
Jpeg.openserver.mappath (saveImg) 'Buka jalur untuk menyimpan gambar
'Tambahkan tanda air teks
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" 'Jarak dari tanda air ke kiri dan jarak dari atas, ini ditempatkan di kaki kanan bawah
'Simpan file
Jpeg.saveserver.mappath (saveimg) 'Simpan gambar setelah menambahkan tanda air
'Objek login
Setjpeg = tidak ada
fungsi endfungsi
%>
Perhatikan dukungan komponen server Anda.