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

[xDanilax]

Добрый день!
Помогите, пожалуйста, разобраться, как сделать увеличение картинки по нажатию на нее на 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]

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

Итак, в 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 - глупость несусветная.