可以文本显示的公告栏的js代码

2019-06-03 02:42:49于海丽


teletype(); 


// Gets and displays character from rollMessage() . 
// Variable Speed controls length of timeout and thus the speed of typing. 
function teletype() 

if (TimerSet) 

Text=rollMessage(); 
TimerId = setTimeout("teletype()", Speed); 
document.forms[0].elements[0].value=Text; 


// Pulls one character at a time from string and returns (as Text) to function teletype() for displaying. 
function rollMessage () 

i++; 
var CheckSpace = HelpText.substring(i-1, i); 
CheckSpace = "" + CheckSpace; 
if (CheckSpace == " ") 
{i++;} 
if (i >= HelpText.length+1) 

TimerSet=false; 
Text = HelpText.substring(0, i); 
i=0; 
return (Text); 

Text = HelpText.substring(0, i); 
return (Text); 

// Initially called by onLoad in BODY tag to load title. 
function initTeleType() 

Text="rn Manual Tele-Type Display"; 
document.forms[0].elements[0].value=Text; 

// Called by <<< button (get previous message). 
function lastMessage() 

if (!TimerSet && TextNumber!=-1) 

TimerSet=true; 
clearTimeout (TimerId); 
if (TextNumber<=0) 

alert("This is the beginning of the list!"); 
TimerSet=false; 

else 

TextNumber-=1; 
message=TextNumber+1; 
document.forms[0].elements[2].value= message; 
Text = TextInput[TextNumber]; 
HelpText = Text; 

teletype(); 


// Deactivate Cloaking --></script> 
第二步:在<body>区域中加入如下代码: 
<form> 
<table CELLSPACING="0" CELLPADDING="0" WIDTH="17%"> 
<tr> 
<td width="100%" colspan="3" valign="top"><div align="center"><p><textarea NAME="teletype" ROWS="3" COLS="28" wrap="yes"></textarea> </td> 
</tr> 
<tr align="center"> 
<td width="40%" valign="top" bgcolor="#0000A0"><input TYPE="button" VALUE="公告栏" onClick="lastMessage()"></td>