Selasa, 23 Desember 2025

DHTML - ActiveX - Banner Pada Web

 


banner.html

<html>
<head>
  <OBJECT ID="Content" WIDTH=0 HEIGHT=0
  CLASSID="CLSID:333C7BC4-460F-11D0-BC04-0080C7055A83">
    <PARAM NAME="TextQualifier" VALUE="%">
    <PARAM NAME="FieldDelim" VALUE="|">
    <PARAM NAME="DataURL" VALUE="demo.txt">
    <PARAM NAME="UseHeader" VALUE="true">
  </OBJECT>
</head>
<body style="font-family: verdana;background-color:cyan">

<h3 id=Status></h3>
<div id=TheStory datasrc=#Content datafld="Story"
dataformatas="HTML" style="width: 100%; height: 60%;"></div>

<SCRIPT language=JScript>
var rs;
var tid;
tid = 1;

function goForward() {
  TheStory.style.filter = "revealTrans(duration=2,transition="+tid+")";
  TheStory.filters.revealTrans.Apply();
  if (rs.absolutePosition != rs.recordCount) {
     rs.MoveNext();
   } else {
     rs.MoveFirst();
  }
  TheStory.filters.revealTrans.Play();Status.innerHTML = "Menampilkan Slide ke 

"+rs.absolutePosition+" dari "+rs.recordCount;
  tid++;
  if (tid > 23) tid = 1;
  window.setTimeout("goForward()", 5000);
}

function initialize() {
  rs=Content.recordset;
  Status.innerHTML = "Showing Story "+rs.absolutePosition+"of "+rs.recordCount;
  window.setTimeout("goForward()", 5000);
}

window.onload = initialize;

</SCRIPT>
</body>
</html>
=====================================

demo.txt

%Story%

%Ini adalah Slide Pertama... Menggunakan Efek Transisi <B>Dynamic</B> HTML%

%Slide ini juga dapat juga sebagai <i>Banner</i> dan dapat menampilkan gambar 


<IMG src="apel.PNG">%

%Dapat juga menampilkan Button <input type=Button value="Dynamic HTML"

 onclick="alert('Dynamic HTML')">%


Tidak ada komentar: