打字机效果的带超链接的新闻标题

<html>
<head>
<title>打字效果的带链接的新闻标题</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<style type="text/css">
body{font-size:14px;font-weight:bold;}
</style>
</head>
<body>
最新内容：<a id="HotNews" href="" target="_blank"></a>
<SCRIPT>
<!--
var NewsTime = 2000;	//每条新闻的停留时间
var TextTime = 50;		//新闻标题文字出现等待时间，越小越快

var newsi = 0;
var txti = 0;
var txttimer;
var newstimer;

var newstitle = new Array();	//新闻标题
var newshref = new Array();		//新闻链接

newstitle[0] = "关于本站的相关说明";
newshref[0] = "http://#?ID=1";

newstitle[1] = "本站控制面板的使用方法介绍";
newshref[1] = "http://#?ID=2";

newstitle[2] = "添加了部分教程文章充实内容";
newshref[2] = "http://#?ID=3";

newstitle[3] = "完成留言板的修改";
newshref[3] = "http://#?ID=4";

newstitle[4] = "上千个精致特效持续添加中";
newshref[4] = "http://#?ID=5";

function shownew(){
	var endstr = "_"
	hwnewstr = newstitle[newsi];
	newslink = newshref[newsi];
	if(txti==(hwnewstr.length-1)){endstr="";}
	if(txti>=hwnewstr.length){
		clearInterval(txttimer);
		clearInterval(newstimer);
		newsi++;
		if(newsi>=newstitle.length){
			newsi = 0
		}
		newstimer = setInterval("shownew()",NewsTime);
		txti = 0;
		return;
	}
	clearInterval(txttimer);
	document.getElementById("HotNews").href=newslink;
	document.getElementById("HotNews").innerHTML = hwnewstr.substring(0,txti+1)+endstr;
	txti++;
	txttimer = setInterval("shownew()",TextTime);
}
shownew();
//-->
</SCRIPT>
</body>
</html>