זוהי פונקציה אשר יודעת לומר מה אורך ורוחב של תמונות ללא שימוש באובייקטים!
היא יודעת לקרוא בעזרת אובייקט מערכת הקבצים (FSO) את התווים הראשונים בקובץ התמונה שם יש נתונים על מידות התמונה, והיא כותבת אותם למסך
כמובן שאם תשתמשו בה תרצו שהיא תעשה דברים אחרים או אפילו תחזיר את המידות...
קוד הפונקציה<![CDATA[<%
function getPicSize(fn)
set objFile = createObject("Scripting.FileSystemObject") יצירת אובייקט קבצים
if objFile.fileExists(server.mapPath(fn)) = false then exit function
יציאה מהפונקציה אם הקובץ לא קיים
pn = server.mapPath(fn) קבלת הנתיב המלא של הקובץ
tstr = ""
set objFileOpen = objFile.openTextFile(pn) פתיחת הקובץ
select case lCase(right(fn,4)) בדיקת סיומת הקובץ
case ".gif",".jpg"
if NOT objFileOpen.atEndOfStream then אם זהו לא סוף הקובץ
if lCase(right(fn,4))=".gif" then GIF בדיקה האם זה
chars = objFileOpen.read(10) קריאת 10 התווים הראשונים מהקובץ
width = asc(mid(chars,8,1))*256 + asc(mid(chars,7,1)) חישוב הרוחב
height = asc(mid(chars,10,1))*256 + asc(mid(chars,9,1))חישוב האורך
else Jpeg אם התמונה היא
chars = objFileOpen.read(200) קריאת 200 התווים הראשונים מהקובץ
width = asc(mid(chars,166,1))*256 + asc(mid(chars,167,1)) חישוב הרוחב
height = asc(mid(chars,164,1))*256 + asc(mid(chars,165,1)) חישוב האורך
end if
end if
getPicSize = "width= " & width & " height=" & height החזרת המחרזות של מידות האורך והרוחב
end select
סגירת האובייקטים ומחיקתם
objFileOpen.close
set objFileOpen = nothing
set objFile = nothing
end function
%>
<%=getPicSize ("images/1024.jpg")%>
]]>
|
.png)
