สร้างภาพขนาดย่อโดยไม่มีส่วนประกอบ

มีองค์ประกอบ ASP มากมายที่สร้างภาพขนาดย่อบนอินเทอร์เน็ต หากพื้นที่เสมือนของคุณไม่สนับสนุนการลงทะเบียนส่วนประกอบใหม่คุณอาจรู้สึกว่าเว็บไซต์ของคุณสูญเสียสี Xinqing ไม่ได้มีความสามารถและรวมกับแหล่งข้อมูลออนไลน์เธอเขียนโปรแกรมภาพย่อที่ปราศจากองค์ประกอบเพื่ออ้างอิงเท่านั้น

มาดูพื้นฐานก่อน ก่อนอื่นเรารู้ว่ารหัสต่อไปนี้จะปรากฏบนหน้า:

<imgsrc = "pic.gif" border = "0" width = "300" ความสูง = "260">

SRC เป็นเส้นทางของภาพเส้นขอบควบคุมความกว้างของขอบของภาพความกว้างคือความยาวของภาพและความสูงคือความสูงของภาพ การสร้างรูปขนาดย่อนั้นปรับขนาดตามขนาดดั้งเดิม แต่โดยทั่วไปเพื่อลดการบิดเบือนเราจะขยายขนาด ดังนั้นการได้รับความยาวและความกว้างของภาพจึงกลายเป็นจุดสนใจของการสร้างภาพขนาดย่อ

นี่คือขั้นตอนในการเขียนภาพขนาดย่อที่ปราศจากองค์ประกอบ:

1. รับขนาดภาพโดยไม่มีส่วนประกอบ

ฉันเห็นบทความที่ใช้รหัส ASCII เพื่อรับขนาดภาพโดยไม่มีส่วนประกอบเมื่อฉันเรียนรู้ ASP เป็นครั้งแรก ต่อมาฉันลองและพบว่าเมื่อฉันมีขนาดของภาพเหมือน JPG ฉันตรวจสอบออนไลน์และพบว่าเว็บไซต์หลายแห่งพิมพ์โปรแกรมนี้ แต่ไม่มีใครชี้ให้เห็นข้อบกพร่องของโปรแกรมนี้ ต่อมาฉันไป googled และในที่สุดก็พบบทความที่แนะนำการใช้ ADODB.stream เพื่อรับขนาดภาพ ฉันลองโดยการแก้ไขรหัสภายในตามวิธีที่แนะนำ เอฟเฟกต์ดีจริงๆ ตอนนี้ฉันจะนำมันออกมาและแบ่งปันกับคุณ:

ใช้ adoDB.stream เพื่อรับคลาสทั่วไป <% ของขนาดภาพ

'////////////////////////////////////if

-

'///////////// CitedByleon (Xinqing) 11 สิงหาคม 2548 /////////////////////////////////////////////////////////////////////////////////

ชั้นเรียน

dimaso

Privatesubclass_initialize

setaso = createObject ("adodb.stream")

aso.mode = 3

aso.type = 1

aso.open

enddub

privateSubclass_terminate

setaso = ไม่มีอะไร

enddub

PrivateFunctionBin2str (bin)

Dimi, Str

fori = 1tolenb (bin)

clow = midb (bin, i, 1)

IFASCB (Clow) <128 จากนั้น

str = str & chr (ascb (clow))

อื่น

i = i+1

ifi <= lenb (bin) thenstr = str & chr (ascw (midb (bin, i, 1) & clow))

endif

ต่อไป

bin2str = str

endfunction

PrivateFunctionNum2str (NUM, BASE, LENS)

'GPS (2005-8-11)

ลดทอนลง

ret = ""

ในขณะที่ (num> = base)

ret = (nummodbase) & ret

num = (num-nummodbase)/ฐาน

ใช้

num2str = ขวา (สตริง (เลนส์, "0") & num & ret, เลนส์)

endfunction

PrivateFunctionstr2num (STR, BASE)

'GPS (2005-8-11)

ลดทอนลง

ret = 0

fori = 1tolen (str)

ret = ret*base+cint (mid (str, i, 1))

ต่อไป

str2num = ret

endfunction