<٪
وظيفة الوظيفة: يتم حفظ الصورة عن بُعد تلقائيًا على الخادم المحلي ، والعلام المائي الصورة باستخدام ASPJPEG
'(ملاحظة: يرجى إنشاء دليل الصور في الدليل أولاً لحفظ الصور المؤقتة)
"يحتاج هذا البرنامج إلى تثبيت" مكون ASPJPEG "على الخادم ، وإلا فلن يتم استخدامه بشكل طبيعي
يمكنك أيضًا أخذ الأجزاء المذكورة أعلاه فقط '' '' 222222 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'كيفية الاستخدام ، يرجى saveimg.asp
'saveimg.asp؟ url = http: //siyizhu.com/logo.gif يمكنك إزالة الصورة ، hoho. وظائف أخرى تحتاج إلى إضافتها ، يرجى توسيعها بنفسك.
كيف تحصل على ملفات لاحقة أخرى؟ بالطبع ، لا بأس
'(jpg | gif | png | bmp) إلى (mp3) أفهم؟ إنه مجرد اسم ملف مع لاحقة MP3. وهلم جرا. هيه
server.scriptTimeout = 99999
constsavepath = "الصور" 'الصور حفظ المسار
url = request ("url")
FunctionMyreplace (Str)
newsstr = str
setObJregex = NewRegexp
objregex.ignorecase = صحيح
objregex.global = صحيح
objregex.pattern = "http: // (.+؟)/. (jpg | gif | png | bmp)"
setMatches = objregex.execute (str)
foreachMatchinMatches
NewsStr = استبدال (NewsTr ، Match.value ، SaveImg (match.value))
التالي
myreplace = newstr
الوظيفية
FunctionSaveimg (url)
temp = split (url ، ".")
ما يلي هو إعادة تسمية اسم الملف مع مرور الوقت والأرقام العشوائية
عشوائي
rannum = int (90000*rnd) +10000
FILENAME = YEAR (الآن) وشهر (الآن) و DAY (الآن) وساعة (الآن) و Minute (الآن) والثاني (الآن) و RANNUM & ".
'اسم الملف ينتهي إعادة تسمية
setxmlhttp = server.createBject ("microsoft.xmlhttp")
XMLHTTP.Open "GET" ، url ، false
XMLHTTP.SEND
IMG = XMLHTTP.ResponseBody
setXMLHTTP = لا شيء
setObjadoStream = server.createBject ("adodb.stream")
objadostream.open ()
ObjadoStream.type = 1
ObjadoStream.write (IMG)
objadostream.savetofile (server.mappath (SavePath & Filename))
objadostream.seteos
setobjadoStream = لا شيء
'' '' '' 2222222222 '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
SaveImg = SavePath & Filename'get Save Path
dimjpeg
setjpeg = server.createBject ("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.originalheight-50 ، "siyizhu.com" "المسافة من العلامة المائية إلى اليس
"حفظ الملف
jpeg.saveserver.mappath (SaveImg) "حفظ الصورة بعد إضافة العلامة المائية
كائن تسجيل الدخول
setjpeg = لا شيء
الوظيفية
٪>
انتبه إلى دعم مكون الخادم الخاص بك.