网站首页 | 文章中心 | 源码中心 | 虚拟主机 | 域名注册 |  贺卡源码 | Java特效 |
您现在的位置: 人文中国 >> 文章中心 >> javascript >> 文章正文

  没有公告

阅读式的公告栏程序代码       ★★★★★ 【字体:
阅读式的公告栏程序代码
作者:renwen    文章来源:本站原创    点击数:    更新时间:2003-10-30

<script language="javascript">
<!-- Activate Cloaking Device

//请保留以下版权信息**************************
// 人文在线真诚制作
// renwen@renwen.net
// http;//www.renwen.net. 
//******************************************

// used to track position in message
var i = 0; 
// used to cycle thru messages 
var TextNumber = -1;
// array of messages 
var TextInput = new Object();
// used to load manipulate message 
var HelpText=""; 
// used to load message
var Text = ""; 
// length of timeout (smaller is faster) 
var Speed=50;
// used to display message number
var message=0;
// used to position text in ver 2.0
var addPadding="\r\n";

// Each element of TextInput represents a single message.
TextInput[0] = "信息1"; 
TextInput[1] = "信息2";
TextInput[2] = "信息3";
TextInput[3] = "信息4";
TextInput[4] = "信息5";
TextInput[5] = "信息6";
TextInput[6] = "信息7";
TextInput[7] = "信息8";

TotalTextInput = 7; // (0, 1, 2, 3, 4, 5, 6, 7)

// Positioning and speed vary between versions.
var Version = navigator.appVersion; 
if (Version.substring(0, 1)==3)
{
Speed=200;
addPadding="";
}

for (var addPause = 0; addPause <= TotalTextInput; addPause++) 
{TextInput[addPause]=addPadding+TextInput[addPause];}
var TimerId
var TimerSet=false;

// Called by >>> button (display next message) .
function nextMessage() 
{
if (!TimerSet)
{
TimerSet=true;
clearTimeout (TimerId);
if (TextNumber>=TotalTextInput)

alert("This is the end of the list!");
TimerSet=false;
}
else
{
TextNumber+=1;
message=TextNumber+1;
document.forms[0].elements[2].value= message;
Text = TextInput[TextNumber];
HelpText = Text;
}
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="\r\n 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>


<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>
<td width="30%" bgcolor="#0000A0" valign="top"><input TYPE="text" value="共8条" SIZE="5" name="1"></td>
<td width="30%" bgcolor="#0000A0" valign="top"><input TYPE="button" VALUE="阅 读" onClick="nextMessage()"></td>
</tr>
</table>
</form>


文章录入:renwen    责任编辑:renwen 
  • 上一篇文章:

  • 下一篇文章:
  • 发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    最新热点 最新推荐 相关文章
    没有相关文章
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)