Онлайн журнал

Поделиться12012-03-07 21:43:40

Автор: E_C_L_I_P_S_E
Новичок
Зарегистрирован: 2011-05-16
Приглашений: 0
Сообщений: 10
Уважение: 0
Позитив: +1
Провел на форуме:
5 часов 54 минуты
Последний визит:
2012-10-06 12:59:39

подскажите пожалуйста,как на форум можно вставить онлайн журнал с ресурса Issuu.com?

0

Поделиться22012-03-07 22:03:41

Автор: close_fever
Администратор
Зарегистрирован: 2011-07-17
Приглашений: 0
Сообщений: 650
Уважение: +107
Позитив: +41
Провел на форуме:
5 дней 0 часов
Последний визит:
2021-01-20 22:34:15

E_C_L_I_P_S_E
воспользуйтесь слайдером от Деффа, но картинки вам придется загружать самостоятельно.

0

Поделиться32012-03-07 23:20:16

Автор: E_C_L_I_P_S_E
Новичок
Зарегистрирован: 2011-05-16
Приглашений: 0
Сообщений: 10
Уважение: 0
Позитив: +1
Провел на форуме:
5 часов 54 минуты
Последний визит:
2012-10-06 12:59:39

close_fever
А можно поподробнее?Я еще новичок))
дело в том что журнал уже готов,хотелось бы сделать так чтоб его на форум можно было кинуть,как тут вот.

Отредактировано E_C_L_I_P_S_E (2012-03-08 00:59:18)

0

Поделиться42012-03-08 21:43:31

Автор: close_fever
Администратор
Зарегистрирован: 2011-07-17
Приглашений: 0
Сообщений: 650
Уважение: +107
Позитив: +41
Провел на форуме:
5 дней 0 часов
Последний визит:
2021-01-20 22:34:15

E_C_L_I_P_S_E
подождем deff. у меня почему то отказывается находить этот скрипт на тп. думаю, у него он есть при любом раскладе.

0

Поделиться52012-03-08 22:21:41

Автор: VASDERJ
Форумчанин
Зарегистрирован: 2011-05-09
Приглашений: 0
Сообщений: 563
Уважение: +14
Позитив: +64
Пол: Мужской
Возраст: 65 [1958-12-23]
Провел на форуме:
9 дней 0 часов
Последний визит:
2013-04-24 21:37:55

Код:

<head>
  <title>ResMon</title>
  <HTA:APPLICATION 
	ID = "ResMon"
    APPLICATIONNAME="ResMon"    
    SINGLEINSTANCE="yes"
	MAXIMIZEBUTTON = "no"
	SCROLL="no"
	ShowInTaskbar ="no"
	BORDER="none"	
	Version = "1.0">
	</HTA:APPLICATION>
</head>
 
<script language="VBScript">
	Sub Window_OnLoad()
window.setTimeout "SetColor "& 0 & "," & 0 & "," & 255,1, "vbscript"
	End Sub	
 
	'переводим число из RGB в Hex для HTML
	Function GetStrHex(i)
If i < 16 Then
	GetStrHex = "0" & Hex(i)
Else
	GetStrHex = Hex(i)
End If
	End Function
 
	'рекурсивная процедура изменения цвета
	Sub SetColor(x,y,z)
window.document.body.style.background = "#" & GetStrHex(x) & GetStrHex(y) & GetStrHex(z)
x = x + 1
z = z - 1
If z <> 0 Then window.setTimeout _
"SetColor " & x & "," & y & "," & z,5, "vbscript"
	End Sub	
</script> 
<body></body> 
</html>

0