Есть много компонентов ASP, которые генерируют миниатюры в Интернете. Если ваше виртуальное пространство не поддерживает регистрацию новых компонентов, вы можете почувствовать, что ваш веб -сайт теряет свой цвет. Синьцин не талантлив, и в сочетании с онлайн-ресурсами она написала не без компонентов миниатюр только для справки.
Давайте сначала посмотрим на основы. Прежде всего, мы знаем, что на странице отображается следующий код:
<imgsrc = "pic.gif" border = "0" width = "300" высота = "260">
SRC - это путь изображения, граница управляет шириной края изображения, ширина - длина изображения, а высота - высота изображения. Генерация миниатюр на самом деле масштабирует исходный размер. Но, как правило, чтобы минимизировать искажение, мы будем масштабироваться. Следовательно, получение длины и ширины изображения становится центром генерации миниатюр.
Вот шаги, чтобы написать миниатюру без компонентов:
1. Получите размер изображения без компонентов
Я видел статью, использующую код ASCII для получения размеров изображений без компонентов, когда я впервые выучил ASP. Позже я попробовал это и обнаружил, что когда я получил размер изображений, похожих на JPG, я проверил его онлайн и обнаружил, что многие веб-сайты перепечатали эту программу, но ни один из них не указал на недостатки этой программы, не говоря уже о решении недостатков. Позже я пошел Googled и, наконец, нашел статью, в которой представлена использование Adodb.stream для получения размеров изображений. Я попробовал его, изменив код внутри в соответствии с введенным методом. Эффект действительно хорош. Теперь я возьму его и поделюсь с вами:
Используйте adodb.stream для получения общего класса <% размера изображения
'///////////////// GPS: GetPictureSize/////////////
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'/////////////CitedByLeon (Xinqing) August 11, 2005 //////////////////
Classgps
Димасо
Privatesubclass_initialize
Setaso = createObject ("adodb.stream")
aso.mode = 3
aso.type = 1
aso.open
Заканчивая
PrivateBclass_terminate
setaso = ничего
Заканчивая
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)))
эндиф
Следующий
Bin2str = str
Конечная функция
Privatefunctionnum2str (num, base, lens)
'GPS (2005-8-11)
димрет
ret = ""
While (num> = base)
ret = (nummodbase) и ret
num = (num-nummodbase)/base
Венд
Num2str = right (string (lens, "0") & num & ret, lens)
Конечная функция
Privatefunctionstr2num (str, base)
'GPS (2005-8-11)
димрет
ret = 0
fori = 1tolen (str)
ret = ret*base+cint (mid (str, i, 1))
следующий
Str2num = ret
Конечная функция