Приглашаем посетить
Пушкин (pushkin-lit.ru)

Scripts

Скрипты

В любой поисковой системе в сети вы сможете найти огромное количество информации по созданию скриптов и апплетов.(скрипты входят в состав HTML документа являясь частью его кода, в то время как апплеты являются отдельными файлами, на которые ссылается WEB страница) Я дам вам несколько адресов в internet с большим количеством примеров скриптов для самостоятельного изучения:
http://www.gamelan.com
http://www.javaworld.com
http://ibm.com/java/
http://www.javasoft.com
http://javaboutique.com

Самый короткий из известных мне скриптов выглядит так:
<a href="javascript:history.back(1)">Назад.</a>
он работает как стрелочка браузера "Назад"

В качестве наиболее простого из "накрученных" приведу вам пример часов, написанный на JavaScript (Текст данного примера скопированный мышью может послужить основой для создания вашего html документа)

Текущее время: 
<html><head><meta http-equiv="Content-Type"
content="09.html; charset=windows-1251">
<title>Clock</title>
<script language="JavaScript"><!--
function JSClock() {var time = new Date() 
var hour = time.getHours()
var minute = time.getMinutes() 
var second = time.getSeconds()
var temp = "" + hour
temp += ((minute < 10) ? ":0" : ":") + minute
temp += ((second < 10) ? ":0" : ":") + second
document.clockForm.digits.value = temp
id = setTimeout("JSClock()",1000) }
--></script>
</head><body onLoad="JSClock()">
<form name="clockForm">
<center>Текущее время: <input type="text" name="digits" 
size="8" value=""></center>
</form>
Место для остального кода страницы
</body></html>

Для примера VBScript, от меня лично, вам в подарок простейшая программа- калькулятор.

Программа калькулятор на VBScript

Страничка автора: http://rafick.euro.ru 
<script type="text/vbscript">
<!--
Dim a,b,c,d,e,f

sub n0_onclick
	a=a+"0"
	document.calk.ind.value=a
	f=0
end sub

sub n1_onclick
	a=a+"1"
	document.calk.ind.value=a
	f=0
end sub

sub n2_onclick
	a=a+"2"
	document.calk.ind.value=a
	f=0
end sub

sub n3_onclick
	a=a+"3"
	document.calk.ind.value=a
	f=0
end sub

sub n4_onclick
	a=a+"4"
	document.calk.ind.value=a
	f=0
end sub

sub n5_onclick
	a=a+"5"
	document.calk.ind.value=a
	f=0
end sub

sub n6_onclick
	a=a+"6"
	document.calk.ind.value=a
	f=0
end sub

sub n7_onclick
	a=a+"7"
	document.calk.ind.value=a
	f=0
end sub

sub n8_onclick
	a=a+"8"
	document.calk.ind.value=a
	f=0
end sub

sub n9_onclick
	a=a+"9"
	document.calk.ind.value=a
	f=0
end sub

sub point_onclick
	if e = 0 then
		e=1
		a=a+","
		document.calk.ind.value=a
	end if
end sub

sub plus_onclick
	if f=0 then
		if c<>0 then
			select case c
			case 1
				d=b-(-a)
			case 2
				d=b-a
			case 3
				d=b*a
			case 4
				d=b/a
			end select
			document.calk.ind.value=d
			a=document.calk.ind.value
			c=1
			e=0
			f=1
		end if
		b=document.calk.ind.value
		a=""
		c=1' сложение
		e=0
		f=1
	else
		c=1
		f=1
	end if
end sub

sub minus_onclick
	if f=0 then
		if c<>0 then
			select case c
			case 1
				d=b-(-a)
			case 2
				d=b-a
			case 3
				d=b*a
			case 4
				d=b/a
			end select
			document.calk.ind.value=d
			a=document.calk.ind.value
			c=2
			e=0
			f=1
		end if
		b=document.calk.ind.value
		a=""
		c=2' вычитание
		e=0
		f=1
	else
		c=2
		f=1
	end if
end sub

sub umnog_onclick
	if f=0 then
		if c<>0 then
			select case c
			case 1
				d=b-(-a)
			case 2
				d=b-a
			case 3
				d=b*a
			case 4
				d=b/a
			end select
			document.calk.ind.value=d
			a=document.calk.ind.value
			c=3
			e=0
			f=1
		end if
		b=document.calk.ind.value
		a=""
		c=3' умножение
		e=0
		f=1
	else
		c=3
		f=1
	end if
end sub

sub delen_onclick
	if f=0 then
		if c<>0 then
			select case c
			case 1
				d=b-(-a)
			case 2
				d=b-a
			case 3
				d=b*a
			case 4
				d=b/a
			end select
			document.calk.ind.value=d
			a=document.calk.ind.value
			c=4
			e=0
			f=1
		end if
		b=document.calk.ind.value
		a=""
		c=4' деление
		e=0
		f=1
	else
		c=4
		f=1
	end if
end sub

sub result_onclick
	select case c
	case 1
		d=b-(-a)
	case 2
		d=b-a
	case 3
		d=b*a
	case 4
		d=b/a
	end select
	document.calk.ind.value=d
	a=document.calk.ind.value
	c=0
	d=""
	e=0
end sub

Sub reset_onclick
	a=""
	b=0
	c=0
	e=0
	document.calk.ind.value=0
	d=document.calk.ind.value
End sub

'--></script>
<center>

<h4><font color="blue">Программа калькулятор на VBScript</font></h4>

<table border=2><tr><td>
<form name="calk">
<table border bordercolor="white">
<tr>
<th colspan="4"><input type="text" name="ind" size="9" value="0">
<tr>
<td><input type="button" name="n8" value="8">
<td><input type="button" name="n9" value="9">
<td><input type="button" name="n0" value="0">
<td><input type="button" name="reset" value="с">
<tr>
<td><input type="button" name="n4" value="4">
<td><input type="button" name="n5" value="5">
<td><input type="button" name="n6" value="6">
<td><input type="button" name="n7" value="7">
<tr>
<td><input type="button" name="point" value=" , ">
<td><input type="button" name="n1" value="1">
<td><input type="button" name="n2" value="2">
<td><input type="button" name="n3" value="3">
<tr>
<td><input type="button" name="plus" value="+">
<td><input type="button" name="minus" value="- ">
<td><input type="button" name="delen" value="/ ">
<td><input type="button" name="umnog" value="* ">
<tr>
<td colspan="4"><input type="button" name="result" value="        =        ">
</tr></form></table>
</table></center>

Учтите также, что все эти чудеса сильно тормозят медленные машины, поэтому не стоит пихать в одну страницу неимоверное количество скриптов. Также не советую использовать на одной странице JavaScript и VBScript одновременно- может конкретно заглючить.
Остается добавить, что в последнее время в сети появилось новое "чудо" -Flash -симбиоз графики, звука и сценариев в одном флаконе. Целесообразность их использования при отечественной связи весьма сомнительна потому, что по крайней мере дома, имея модемную связь около 2,5 кб в сек я никогда не жду их загрузки. Хотя нет! Один раз я все-же пытался, но через 20 минут скачивания мой комп почему-то завис. Если вы можете позволить себе выделенную линию ... то Вам меня не понять. Хотя изучением данной технологии заняться уже пора. На будущее.

Назад | Содержание | Вперед