인터넷에서 썸네일을 생성하는 많은 ASP 구성 요소가 있습니다. 가상 공간이 새로운 구성 요소 등록을 지원하지 않으면 웹 사이트가 색상을 잃어버린 것으로 생각할 수 있습니다. Xinqing은 재능이 없으며 온라인 리소스와 결합하여 참조를 위해 구성 요소가없는 썸네일 프로그램을 작성했습니다.
먼저 기본 사항을 살펴 보겠습니다. 우선, 다음 코드가 페이지에 표시되어 있음을 알고 있습니다.
<imgsrc = "pic.gif"border = "0"width = "300"height = "260">
SRC는 이미지 경로이며, 테두리는 이미지의 가장자리 너비, 너비는 이미지의 길이이며 높이는 이미지의 높이입니다. 썸네일 생성은 실제로 원래 크기로 확장됩니다. 그러나 일반적으로 왜곡을 최소화하기 위해서는 확장으로 확장 할 것입니다. 따라서 그림의 길이와 너비를 얻는 것은 썸네일을 생성하는 데 초점이됩니다.
구성 요소가없는 썸네일을 작성하는 단계는 다음과 같습니다.
1. 구성 요소없이 이미지 크기를 가져옵니다
ASP를 처음 배웠을 때 구성 요소없이 이미지 크기를 얻기 위해 ASCII 코드를 사용하여 기사를 보았습니다. 나중에 나는 그것을 시도했고 JPG와 같은 이미지의 크기를 얻었을 때 온라인에서 그것을 확인하고 많은 웹 사이트 가이 프로그램을 재 인쇄한다는 것을 알았지 만 그중 어느 누구도 결함에 대한 해결책은 물론이 프로그램의 결함을 지적하지 않았습니다. 나중에 나는 Googleg를 가서 마침내 이미지 크기를 얻기 위해 adodb.stream의 사용을 소개하는 기사를 찾았습니다. 소개 된 방법에 따라 내부 코드를 수정하여 시도했습니다. 효과는 정말 좋습니다. 이제 나는 그것을 꺼내서 당신과 공유 할 것입니다.
adodb.stream을 사용하여 공통 클래스를 얻으십시오 <이미지 크기의%
'///////////////////////////////////////////////////4
'/////////////////////////////
'////////// Citedbyleon (Xinqing) 2005 년 8 월 11 일 ////////////////////////////////////////////////4
ClassGps
디마소
privatesubclass_initialize
setaso = createobject ( "adodb.stream")
aso.mode = 3
aso.type = 1
ASO. OPEN
Endsub
privatesubclass_terminate
setaso = 아무것도
Endsub
privateFunctionBin2str (bin)
Dimi, Str
fori = 1tolenb (bin)
clow = midb (bin, i, 1)
ifascb (clow) <128then
str = str & chr (ASCB (clow))
또 다른
i = i+1
ifi <= lenb (bin) thenstr = str & chr (ascw (midb (bin, i, 1) & clow))
endif
다음
bin2str = str
최종 기능 장애
PrivateFunctionNum2str (Num, Base, Lens)
'GPS (2005-8-11)
딤렛
ret = ""
while (num> = base)
ret = (nummodbase) & ret
num = (num-nummodbase)/base
향하게 하다
num2str = right (문자열 (렌즈, "0") 및 Num & ret, 렌즈)
최종 기능 장애
privateftionstr2num (str, base)
'GPS (2005-8-11)
딤렛
ret = 0
fori = 1tolen (str)
ret = ret*base+cint (mid (str, i, 1))
다음
str2num = ret
최종 기능 장애