Изменение размера картинки по клику на ней

Программирование на Active Server Pages и VBScript.
xDanilax
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 30.01.2009 (Пт) 17:19

Изменение размера картинки по клику на ней

Сообщение xDanilax » 30.01.2009 (Пт) 17:26

Добрый день!
Помогите, пожалуйста, разобраться, как сделать увеличение картинки по нажатию на нее на VBScript.
В теле передается ссылка на картинку, имя картинки каждый раз разное. При нажатии на картинку, она должна увеличиваться.
Код: Выделить всё
if Ncol = 1 thentt=tt & "<TD><img src=""" &fl.value & """ height=240 width=320 alt='Для увеличения фотографии нажмите' name='pic'></TD>"       else     tt=tt & "<TD>" &  fl.value &  "</TD>"     end if


Процедура

Код: Выделить всё
Sub pic_OnClick ()     
select case me.width     
case 480         
me.width=240         
me.height=320     
case 640         
me.width=320         
me.height=240   
case 240         
me.width=480         
me.height=640     
case 320         
me.width=640         
me.height=480     
end select
End Sub
:?:

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Re: Изменение размера картинки по клику на ней

Сообщение RayShade » 02.02.2009 (Пн) 15:25

Кажется мне у автора топика в голове полная мешанина. Попробуем ее несколько прояснить.

Итак, в HTML коде страницы, нам надо определить картинку, при клике которой она будет увеличиваться. Допустим, увеличиваться она будет прямо в том же месте, где и показывается. Это конечно, криво и тупо, но для начала сделаем так.

Код: Выделить всё
<img src="myimage.png" width="320" height="240" alt="Click to view a larger copy" onclick="mySetImageScale2x(this)"/>


Тогда в скрипте на этой странице нам потребуется простая функция:
Код: Выделить всё
<script language="JavaScript">
function mySetImageScale2x(p) {
    if (p) {
        if (p.attributes) {
            if (p.attributes.getNamedItem("tagName")) {
                if (p.tagName.toLowerCase() == "img") {
                    p.width = 2 * p.width;
                    p.height = 2 * p.height;
                }
            }
        }

    }
}
</script>


Да, это JavaScript, потому что писать клиентские скрипты на VBS - глупость несусветная.
I don't understand. Sorry.


Вернуться в ASP и VBScript

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 13

    TopList