Mas,
Silahkan amati source code di bawah ini..
<html>
<head>
<title>Untitled Document</title>
<LNK REL="Stylesheet" TYPE="text/css" TITLE="WalubiStyle"
HREF="javajscss/walubibawahstyle.css">
<meta name="author" content="Created by Andi Zain,mail me at
[EMAIL PROTECTED]" >
<script LANGUAGE="JavaScript">
<!--
var total=1;
var db = new Array();
// -- Enter Values Here --
// Format: dbAdd(parent[true|false] , description, URL [blank for nohref],
level , TARGET [blank for "content"], new? [1=yes])
dbAdd( true , "Tentang Walubi" , "" , 0 , "", 0)
dbAdd( false , "Pembukaan" , "pendahuluan.htm" , 1 , "main" , 0)
dbAdd( false , "Anggaran Dasar" , "ad.htm" , 1 , "main" , 0)
dbAdd( false , "ART" , "art.htm" , 1 , "main" , 0)
dbAdd( false , "Program Umum" , "pu.htm" , 1 , "main" , 0)
dbAdd( false , "Ikrar Walubi" , "ikrar.htm" , 1 , "main" , 0)
dbAdd( false , "Lambang Walubi" , "lambang.htm" , 1 , "main" , 0)
dbAdd( false , "Hymne Walubi" , "hymne.htm" , 1 , "main" , 0)
dbAdd( false , "Struktur Organisasi" , "struktur.htm" , 1 , "main" , 0)
dbAdd( false , "DPP Walubi" , "dpp.htm" , 1 , "main" , 0)
dbAdd( false , "DPD Walubi" , "dpd.htm" , 1 , "main" , 0)
dbAdd( true , "Dewan Sangha <br>
Walubi" , "" , 0 , "main", 0)
dbAdd( false , "DTTSW" , "dttsw.htm" , 1 , "main" , 0)
dbAdd( false , "SSDSW" , "ssdsw.htm" , 1 , "main" , 0)
dbAdd( true , "Majelis Agama <br>
&nbs
p;Buddha" , "" , 0 , "main", 0)
dbAdd( false , "MAJABUMI" , "majabumi.htm" , 1 , "main" , 0)
dbAdd( false , "MAPANBUMI" , "mapanbumi.htm" , 1 , "main" , 0)
dbAdd( false , "KASOGATAN" , "kasogatan.htm" , 1 , "main" , 0)
dbAdd( false , "PSBDI" , "psbdi.htm" , 1 , "main" , 0)
dbAdd( false , "MATRISIA" , "matrisia.htm" , 1 , "main" , 0)
dbAdd( false , "MAGABUDHI" , "magabudhi.htm" , 1 , "main" , 0)
dbAdd( false , "LKBI" , "lkbi.htm" , 1 , "main" , 0)
dbAdd( true , "Situs Buddhis" , "" , 0 , "main", 0)
dbAdd( false , "Lokal" , "situslokal.htm" , 1 , "main" , 0)
dbAdd( false , "Internasional" , "situsluar.htm" , 1 , "main" , 0)
dbAdd( false , "E-Mail Directory" , "edirectory.htm" , 0 , "main" , 0)
dbAdd( false , "Bursa Umat" , "bursa.htm" , 0 , "main" , 0)
dbAdd( false , "Warta Walubi" , "warta.htm" , 0 , "main" , 0)
dbAdd( false , "Multi Media" , "multimedia.htm" , 0 , "main" , 0)
dbAdd( false , "Mailing List" , "milis.htm" , 0 , "main" , 0)
// dbAdd( false , "" , "" , 0 , "main" , 0)
// -- End modifications --
// Get current cookie setting
var current=getCurrState()
function getCurrState() {
var label = "currState="
var labelLen = label.length
var cLen = document.cookie.length
var i = 0
while (i < cLen) {
var j = i + labelLen
if (document.cookie.substring(i,j) == label) {
var cEnd = document.cookie.indexOf(";",j)
if (cEnd == -1) { cEnd = document.cookie.length }
return unescape(document.cookie.substring(j,cEnd))
}
i++
}
return ""
}
// Add an entry to the database
function dbAdd(mother,display,URL,indent,top,newitem) {
db[total] = new Object;
db[total].mother = mother
db[total].display = display
db[total].URL = URL
db[total].indent = indent
db[total].top = top
db[total].newitem = newitem
total++
}
// Record current settings in cookie
function setCurrState(setting) {
var expire = new Date();
expire.setTime(expire.getTime() + ( 7*24*60*60*1000 ) ); // expire in 1
week
document.cookie = "currState=" + escape(setting) + "; expires=" +
expire.toGMTString();
}
// toggles an outline mother entry, storing new value in the cookie
function toggle(n) {
if (n != 0) {
var newString = ""
var expanded = current.substring(n-1,n) // of clicked item
newString += current.substring(0,n-1)
newString += expanded ^ 1 // Bitwise XOR clicked item
newString += current.substring(n,current.length)
setCurrState(newString) // write new state back to cookie
}
}
// returns padded spaces (in mulTIPles of 2) for indenting
function pad(n) {
var result = ""
for (var i = 1; i <= n; i++) { result += " " }
return result
}
// Expand everything
function explode() {
current = "";
initState="";
for (var i = 1; i < db.length; i++) {
initState += "1"
current += "1"
}
setCurrState(initState);
history.go(0);
}
// Collapse everything
function contract() {
current = "";
initState="";
for (var i = 1; i < db.length; i++) {
initState += "0"
current += "0"
}
setCurrState(initState);
history.go(0);
}
// end -->
</script>
<script language="JavaScript">
function MM_validateForm() { //v2.0
var i,objStr,field,theCheck,atPos,theNum,colonPos,min,max,errors='';
for (i=0; i<(MM_validateForm.arguments.length-2); i+=3) {
objStr = MM_validateForm.arguments[(navigator.appName ==
'Netscape')?i:i+1];
if ((objStr.indexOf('document.layers[')==0 && document.layers==null) ||
(objStr.indexOf('document.all[') ==0 && document.all ==null))
objStr =
'document'+objStr.substring(objStr.substring(0,objStr.lastIndexOf('.')).
lastIndexOf('.'),objStr.length); //fix layer ref if not
supp
field = eval(objStr);
field.name = (field.name)?field.name:objStr;
theCheck = MM_validateForm.arguments[i+2];
if (field.value) { //IF NOT EMPTY FIELD
if (theCheck.indexOf('isEmail') != -1) { //CHECK EMAIL
atPos = field.value.indexOf('@');
if (atPos < 1 || atPos == (field.value.length - 1))
errors += '- '+field.name+' must contain an e-mail address.\n';
} else if (theCheck != 'R') { //START NUM CHECKS
theNum = parseFloat(field.value);
if (field.value != ''+theNum) errors += '- '+field.name+' must
contain a number.\n';
if (theCheck.indexOf('inRange') != -1) { //CHECK RANGE
colonPos = theCheck.indexOf(':');
min = theCheck.substring(8,colonPos);
max = theCheck.substring(colonPos+1,theCheck.length);
if (theNum < min || max < theNum) //bad range
errors += '- '+field.name+' must contain a number between
'+min+' and '+max+'.\n';
} } }
else if (theCheck.charAt(0) == 'R') errors += '- '+field.name+' is
required.\n';
}
if (errors) alert('The following error(s) occurred:\n'+
errors);
document.MM_returnValue = (errors == '')
}
function MM_swapImgRestore() { //v2.0
if (document.MM_swapImgData != null)
for (var i=0; i<(document.MM_swapImgData.length-1); i+=2)
document.MM_swapImgData[i].src = document.MM_swapImgData[i+1];
}
function MM_preloadImages() { //v2.0
if (document.images) {
var imgFiles = MM_preloadImages.arguments;
if (document.preloadArray==null) document.preloadArray = new Array();
var i = document.preloadArray.length;
with (document) for (var j=0; j<imgFiles.length; j++) if
(imgFiles[j].charAt(0)!="#"){
preloadArray[i] = new Image;
preloadArray[i++].src = imgFiles[j];
} }
}
function MM_swapImage() { //v2.0
var i,j=0,objStr,obj,swapArray=new Array,oldArray=document.MM_swapImgData;
for (i=0; i < (MM_swapImage.arguments.length-2); i+=3) {
objStr = MM_swapImage.arguments[(navigator.appName ==
'Netscape')?i:i+1];
if ((objStr.indexOf('document.layers[')==0 && document.layers==null) ||
(objStr.indexOf('document.all[') ==0 && document.all ==null))
objStr =
'document'+objStr.substring(objStr.lastIndexOf('.'),objStr.length);
obj = eval(objStr);
if (obj != null) {
swapArray[j++] = obj;
swapArray[j++] = (oldArray==null ||
oldArray[j-1]!=obj)?obj.src:oldArray[j];
obj.src = MM_swapImage.arguments[i+2];
} }
document.MM_swapImgData = swapArray; //used for restore
}
//-->
</script>
<style type="text/css">
<!--
body { background-image: url(IMAGES/Stripe1.gif); color: #0000CE}
-->
</style>
<body onLoad="window.Status='May all beings be well and
happy';MM_preloadImages('IMAGES/bursaon.gif','#931835820880');MM_preloadImag
es('IMAGES/homeon.gif','#931766151070')" bgcolor="#FFFFFF">
<p><a href="main.asp" onMouseOut="MM_swapImgRestore()"
onMouseOver="MM_swapImage('document.home','document.home','IMAGES/homeon.gif
','#931766151070')" target="main">
<img name="home" border="0" src="IMAGES/home.gif" width="139" height="22"
alt="Click disini untuk menuju halaman muka" target="main"
vspace="5"></a></p>
<table width="98%" cellspacing=0 cellpadding=3 border=0>
<tr>
<td align=left bgcolor="#006666" width=100%><font color="#fffffe"
face="arial"><b>Contents</b></font></td>
<td align=right bgcolor="#006666"><a href="javascript:contract();"><IMG
SRC="images/minimize.gif" WIDTH=16 HEIGHT=14 BORDER=0></a><a
href="javascript:explode();"><IMG SRC="images/maximize.gif" WIDTH=16
HEIGHT=14 BORDER=0 ></a></td>
</tr>
</table><br>
<table border=0 width="98%">
<tr><td>
<font size="-1">
<script LANGUAGE="JavaScript">
<!--
// Set the initial state if no current state or length changed
if (current == "" || current.length != (db.length-1)) {
current = ""
initState = ""
for (i = 1; i < db.length; i++) {
initState += "0"
current += "0"
}
setCurrState(initState)
}
var prevIndentDisplayed = 0
var showMyDaughter = 0
// end -->
<!--
var Outline=""
// cycle through each entry in the outline array
for (var i = 1; i < db.length; i++) {
var currIndent = db[i].indent // get the indent level
var expanded = current.substring(i-1,i) // current state
var top = db[i].top
if (top == "") { top="content" }
// display entry only if it meets one of three criteria
if ((currIndent == 0 || currIndent <= prevIndentDisplayed ||
(showMyDaughter == 1 && (currIndent - prevIndentDisplayed == 1)))) {
Outline += pad(currIndent)
// Insert the appropriate GIF and HREF
newitem = "";
if (db[i].newitem) { newitem="_new"; }
if (!(db[i].mother)) {
Outline += ""
}
else {
if (current.substring(i-1,i) == 1) {
Outline += "<A HREF=\"javascript:history.go(0)\"
onMouseOver=\"window.parent.status=\'Click to collapse\';return true;\"
onClick=\"toggle(" + i + ")\">"
Outline += "<IMG SRC=\"images/minus.gif\" WIDTH=16 HEIGHT=16
BORDER=0><IMG SRC=\"images/open" + newitem + ".gif\" WIDTH=16 HEIGHT=16
BORDER=0>"
Outline += "</A>"
}
else {
Outline += "<A HREF=\"javascript:history.go(0)\"
onMouseOver=\"window.parent.status=\'Click to expand\';return true;\"
onClick=\"toggle(" + i + ")\">"
Outline += "<IMG SRC=\"images/plus.gif\" WIDTH=16 HEIGHT=16
BORDER=0><IMG SRC=\"images/closed" + newitem + ".gif\" WIDTH=16 HEIGHT=16
BORDER=0>"
Outline += "</A>"
}
}
Outline += " ";
if (db[i].URL == "" || db[i].URL == null) {
Outline += " " + db[i].display // no link, just a listed item
}
else {
Outline += " <A HREF=\"" + db[i].URL + "\" TARGET=\"" + top + "\">" +
db[i].display + "</A>"
}
// Bold if at level 0
if (currIndent == 0) {
Outline = "" + Outline + ""
}
Outline += "<BR>"
prevIndentDisplayed = currIndent
showMyDaughter = expanded
// if (i == 1) { Outline = ""}
if (db.length > 25) {
document.write(Outline)
Outline = ""
}
}
}
document.write(Outline)
// end -->
</script>
</font>
<center>
<p>
<hr width="95%">
</center>
</td></tr>
</table>
<center>
<table width="95%">
<tr>
<td>
<form method="post" action="mailus.asp" name="Suggestion">
<br>
<p><font face="Times New Roman, Times, serif"
size="2"><b>Feedback.</b></font><br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">Your
feedback
helps us improve our site. Please take a moment to fill out the
form
below. </font></p>
<p><font size="1" face="Verdana, Arial, Helvetica,
sans-serif">Name:</font><br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="Name" size="12">
</font> <br>
<br>
<font size="1" face="Verdana, Arial, Helvetica,
sans-serif">E-mail:
</font><br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="Email" size="12">
</font> <br>
<br>
<font size="1" face="Verdana, Arial, Helvetica,
sans-serif">Feedback:
</font><br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<textarea name="FeedBack" wrap="VIRTUAL" cols="12"
rows="5"></textarea>
</font> <br>
<font face="Arial, Helvetica, sans-serif" size="1">
<input type="submit" value="Send" name="submit"
onClick="MM_validateForm('document.Suggestion.Name','document.Suggestion.Nam
e','R');MM_validateForm('document.Suggestion.Email','document.Suggestion.Ema
il','RisEmail');MM_validateForm('document.Suggestion.FeedBack','document.Sug
gestion.FeedBack','R');return document.MM_returnValue">
</font> <!-- SCRIPT CONFIGURATION SECTION --> </p>
</form>
</td>
</tr>
</table>
</center>
<p><a href="#top"> <img src="images/gotop1.gif" width="100" height="22"
align="left" border="0" hspace="0"></a></p>
</body></html>
Regards,
Andi Zain
http://www.tekmetrics.com/transcript.jsp?pid=39112
-----Original Message-----
From: Michael Pranolo [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, October 20, 1999 8:31 AM
To: [EMAIL PROTECTED]
Subject: [webauthor] Tree
Hallo...saya ingin tanya..bagaimana cara membuat tree seperti yang ada di
www.cbn.net.id , sewaktu kita click "account management"? (keluar seperti
directrory di windows explorer)juga bagaimana cara membuat sekat
(frame-nya)? karena saya masih baru dalam membuat homepage...thanks
Layanan Pertukaran Banner - http://www.indobanner.co.id
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
To unsubscribe, e-mail : [EMAIL PROTECTED]
To subscribe, e-mail : [EMAIL PROTECTED]
Netika BerInternet : [EMAIL PROTECTED]
Layanan Pertukaran Banner - http://www.indobanner.co.id
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
To unsubscribe, e-mail : [EMAIL PROTECTED]
To subscribe, e-mail : [EMAIL PROTECTED]
Netika BerInternet : [EMAIL PROTECTED]
