[无忧经典旧帖] == 众多高手的心血集合 - 经典代码、教程资源库 - 无忧脚本 -//体验编写HTML代码的乐趣

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#41

大中小

使用道具

发表于 2003-3-15 21:50 资料个人空间主页短消息加为好友

测试指定页面是否存在

<html><head><title>本程序用于测试指定页面是否存在</title><script language=javascript>function translateHttpHeader(header) {var meaning = "没有关于HTTP 标头：http-"+header + "  的中文信息"switch(header) {case 400: meaning = "请求无效" ;break;case 401: meaning = "要求密码";break ;case 401.1: meaning = "无权查看网页,未授权：登录失败" ;break;case 403: meaning = "拒绝访问" ;break;case 403.7: meaning = "要求客户证书" ;break;case 404: meaning = "文件没找到" ;break;case 405: meaning = "禁止访问资源";break;case 406: meaning = "无法显示资源,无法接受";break;case 407: meaning = "要求代理身份验证";break;case 410: meaning = "网页不存在,永久不可用";break;case 412: meaning = "先决条件失败" ;break;case 414: meaning = "请求无效,URI 太长" ;break;case 500: meaning = "内部服务器错误" ;break;case 500.11: meaning = "网站关闭" ;break;case 500.12: meaning = "应用程序重新启动" ;break;case 500.13: meaning = "服务器太忙" ;break;  }return meaning}function postRequest(postTo,Method) {  //尝试用XMLHTTP测试服务器。 try {var xhttp= new ActiveXObject("Microsoft.XMLHTTP")  }catch (e) { longinfo.innerHTML="无法创建对象Microsoft.XMLHTTP" } try {xhttp.open(Method,postTo,false,"myschool.net","myschool.net")xhttp.send()  if (xhttp.status!=200) { meaning = translateHttpHeader(xhttp.status);  hideFrame.document.clear(); hideFrame.document.write(xhttp.responseText) longinfo.innerHTML="在测试服务器时<br>服务器送回以下HTTP标头!<br>" longinfo.innerHTML+="<br><font color=red>HTTP "+xhttp.status+"  "+xhttp.statusText+"</font> " longinfo.innerHTML+="<font color=red><br>"+meaning+"</font> " longinfo.innerHTML+="<br><br>此头表示当前请求的页面"+postTo+"可能有问题"  xhttp=null  window.status="错误" return false; }else { longinfo.innerHTML="指定的页面存在而且工作正常."   } }catch (e) { longinfo.innerHTML="无法连接到指定的服务器:"+postTo+",或发生DNS错误" longinfo.innerHTML+="<br>"+e.message+"<br><br>请确认您的网络连接。" xhttp=null  window.status="错误" return false;}window.status = "完毕"}function go() {postTo = URL.value;Method = sendMethod.value;postTo.replace("\\","/") if (postTo.indexOf("http://")==-1) {postTo = "http://"+postTo}if (postTo.length >225) {longinfo.innerHTML = "URL过长，可能会造成错误。";URL.value="";return false}window.status="正在使用"+Method+"方法测试：" + postTo +"   稍等..."postRequest(postTo,Method)}</script></head><body>请输入测试信息：<br>URL:http://<input type=text id=URL size=100><br>方法：<select id=sendMethod><option value="GET">GET</option><option value="POST">POST</option></select><Br><input type=button onclick=go() value=开始测试><hr><div id=longinfo>请输入需要测试的地址。</div><iframe id=hideFrame style="display:none"></iframe></body></html>

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#42

大中小

使用道具

发表于 2003-3-15 21:51 资料个人空间主页短消息加为好友

YBB代码编辑器

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><TITLE>YBB代码编辑器</TITLE><META content="text/html; charset=gb2312" http-equiv=Content-Type><STYLE type=text/css>A:link {	TEXT-DECORATION: none}A:visited {	TEXT-DECORATION: none}A:hover {	TEXT-DECORATION: underline}A:link {	}A:hover {	COLOR: red}.c {	FONT: 9pt/12pt 宋体; TEXT-DECORATION: none}.d {	FONT: 13.5pt/15.5pt 宋体; TEXT-DECORATION: none}BODY {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt}TABLE {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt}TextBox {	BACKGROUND-COLOR: #f7f7f7; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt}PasswordBox {	BACKGROUND-COLOR: #f7f7f7; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt}TEXTAREA {	BACKGROUND-COLOR: #f7f7f7; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt}Checkbox {	BACKGROUND-COLOR: #f7f7f7; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt}Radio {	BACKGROUND-COLOR: #f7f7f7; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt}SELECT {	BACKGROUND-COLOR: #f7f7f7; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt}INPUT {	BACKGROUND-COLOR: #f7f7f7; COLOR: #000000; FONT-SIZE: 9pt; PADDING-TOP: 3px}</STYLE><SCRIPT language=JavaScript> function openwin(url){  splashWin = window.open(url, 'tip', 'fullscreen=1,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0' );  splashWin.resizeTo (580,400);  splashWin.moveTo(100,50); }</SCRIPT><SCRIPT language=JavaScript src=""></SCRIPT><META content="MSHTML 5.00.3315.2870" name=GENERATOR></HEAD><BODY bgColor=#008080 leftMargin=0 onload=begin() text=#000000 topMargin=0><CENTER><BR>你是否发现很多论坛上都可以插入HTML代码的，但你直接插入时又无法显示，因为这种论坛使用的是YBB代码。看看下面吧。 <FORM name=tool><TABLE align=center bgColor=silver border=1 borderColorDark=white borderColorLight=black cellPadding=0 cellSpacing=0 width=420>  <TBODY>  <TR>    <TD align=middle height=20>YBB代码编辑器</TD></TR>  <TR>    <TD>      <TABLE border=0 cellPadding=1 cellSpacing=1>        <TBODY>        <TR>          <TD noWrap><IMG alt=加粗 border=0 height=22 onclick=bold()             src="F:\资料3\JavaScript\文章\YBB代码编辑器.files\mht8(1).tmp" width=23><IMG             alt=倾斜 border=0 height=22 onclick=italicize()             src="F:\资料3\JavaScript\文章\YBB代码编辑器.files\mhtA(1).tmp" width=23><IMG             alt=下划线 border=0 height=22 onclick=underline()             src="F:\资料3\JavaScript\文章\YBB代码编辑器.files\mhtC(1).tmp" width=23> <IMG             alt=居中 border=0 height=22 onclick=center()             src="F:\资料3\JavaScript\文章\YBB代码编辑器.files\mhtE(1).tmp" width=23><IMG             alt=移动文字 border=0 height=22 onclick=marquee()             src="F:\资料3\JavaScript\文章\YBB代码编辑器.files\mht10(1).tmp" width=23>             <IMG alt=保持格式 border=0 height=22 onclick=bao()             src="F:\资料3\JavaScript\文章\YBB代码编辑器.files\mht12(1).tmp" width=23><IMG             alt=引用其它信息 border=0 height=22 onclick=yin()             src="F:\资料3\JavaScript\文章\YBB代码编辑器.files\mht14(1).tmp" width=23>             <IMG alt=链接 border=0 height=22 onclick=hyperlink()             src="F:\资料3\JavaScript\文章\YBB代码编辑器.files\mht16(1).tmp" width=23><IMG             alt=插入Email border=0 height=22 onclick=email()             src="F:\资料3\JavaScript\文章\YBB代码编辑器.files\mht18(1).tmp" width=23><IMG             alt=插入图像 border=0 height=22 onclick=img()             src="F:\资料3\JavaScript\文章\YBB代码编辑器.files\mht1A(1).tmp" width=23><IMG             alt=插入FLASH动画 border=0 height=22 onclick=flash()             src="F:\资料3\JavaScript\文章\YBB代码编辑器.files\mht1C(1).tmp" width=23></TD>          <TD align=right width="100%"><SELECT name=size             onchange=showsize(this.options[this.selectedIndex].value) size=1>               <OPTION selected value=1>8pt</OPTION> <OPTION               value=2>10pt</OPTION> <OPTION value=3>12pt</OPTION> <OPTION               value=4>14pt</OPTION> <OPTION value=5>16pt</OPTION> <OPTION               value=7>18pt</OPTION></SELECT><SELECT name=color             onchange=showcolor(this.options[this.selectedIndex].value)>               <OPTION selected style="COLOR: black" value=Black>黑色</OPTION>               <OPTION style="COLOR: silver" value=Silver>银色</OPTION> <OPTION               style="COLOR: gray" value=Gray>灰色</OPTION> <OPTION               style="COLOR: maroon" value=Maroon>茶色</OPTION> <OPTION               style="COLOR: red" value=Red>红色</OPTION> <OPTION               style="COLOR: purple" value=Purple>紫色</OPTION> <OPTION               style="COLOR: fuchsia" value=Fuchsia>紫红</OPTION> <OPTION               style="COLOR: green" value=Green>绿色</OPTION> <OPTION               style="COLOR: lime" value=Lime>亮绿</OPTION> <OPTION               style="COLOR: olive" value=Olive>橄榄</OPTION> <OPTION               style="COLOR: yellow" value=Yellow>黄色</OPTION> <OPTION               style="COLOR: teal" value=Teal>深蓝</OPTION> <OPTION               style="COLOR: blue" value=Blue>蓝色</OPTION> <OPTION               style="COLOR: teal" value=Teal>青色</OPTION> <OPTION               style="COLOR: aqua" value=Aqua>浅绿</OPTION> <OPTION               style="COLOR: pink" value=Pink>粉红</OPTION> <OPTION               style="COLOR: orange" value=Orange>橙色</OPTION> <OPTION               style="COLOR: brown" value=Brown>褐色</OPTION> <OPTION               style="COLOR: navy" value=Navy>海蓝</OPTION></SELECT>       </TD></TR></TBODY></TABLE></TD></TR>  <TR>    <TD align=right>      <TABLE border=0 cellPadding=1 cellSpacing=1 width=390>        <TBODY>        <TR>          <TD align=right width=32><FONT class=c size=1>文本</FONT><FONT class=c             face=Tahoma size=1>: </FONT></TD>          <CENTER></CENTER>          <TD width=344>            <P align=right><TEXTAREA cols=54 name=sample onchange=sampleupdate(this.value) style="OVERFLOW: auto"></TEXTAREA></P></TD></TR></TBODY></TABLE></TD></TR>  <CENTER>  <TR>    <TD align=right>      <TABLE border=0 cellPadding=1 cellSpacing=1 width=390>        <TBODY>        <TR>          <TD align=right vAlign=top width=35><FONT class=c             size=1>演示</FONT><FONT class=c face=Tahoma size=1>: </FONT></TD>          <TD>            <TABLE border=1 borderColorDark=white borderColorLight=black             cellPadding=0 cellSpacing=0 height=50 width="100%">              <TBODY>              <TR>                <TD bgColor=white>                  <DIV     id=eOutput></DIV></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>  <TR>    <TD align=right>      <TABLE border=0 cellPadding=1 cellSpacing=1>        <TBODY>        <TR>          <TD align=right vAlign=top width=35>代码:</TD>          <TD><TEXTAREA cols=54 name=ubbcode rows=5 style="OVERFLOW: auto"></TEXTAREA></TD></TR></TBODY></TABLE></TD></TR>  <TR>    <TD>      <TABLE border=0 cellPadding=1 cellSpacing=1 width="100%">        <TBODY>        <TR>          <TD>&nbsp;<INPUT onclick=window.close() style="BACKGROUND-COLOR: #008080; COLOR: #ffffff; FONT-SIZE: 9pt" type=button value=关闭> <INPUT onclick=begin() style="BACKGROUND-COLOR: #008080; COLOR: #ffffff; FONT-SIZE: 9pt" type=reset value=清除> <INPUT onclick=javascript:this.form.ubbcode.focus();this.form.ubbcode.select(); style="BACKGROUND-COLOR: #008080; COLOR: #ffffff; FONT-SIZE: 9pt" type=button value=选择全部> <INPUT onclick="openwin('ybb/help.htm')" style="BACKGROUND-COLOR: #008080; COLOR: #ffffff; FONT-SIZE: 9pt" type=button value=关于YBB></TD>          <TD align=right vAlign=bottom>程序改编：<A href="http://campo.3322.net/"             target=_blank>草原孤星</A>. </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></FORM></CENTER></CENTER></BODY></HTML>

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#43

大中小

使用道具

发表于 2003-3-15 21:52 资料个人空间主页短消息加为好友

在网页上画出竖线

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#44

大中小

使用道具

发表于 2003-3-15 21:53 资料个人空间主页短消息加为好友

页面内的超级酷浮动窗口

<html><head><title>_xWin</title><style type='text/css'></style><script language=JScript></script><script language='JScript'></script></head><body onselectstart='return false' oncontextmenu='return false' scroll='no'></body></html>

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#45

大中小

使用道具

发表于 2003-3-15 21:54 资料个人空间主页短消息加为好友

全面禁止鼠标右键、FX、Alt、Ctrl、Shift等

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#46

大中小

使用道具

发表于 2003-3-15 21:55 资料个人空间主页短消息加为好友

色带（选择颜色）

<input id=kkk1 style=position:absolute;left:0;top:0><input id=kkk2 style=position:absolute;left:200;top:0><input id=kkk3 style=position:absolute;left:400;top:0><input id=kkk4 style=position:absolute;left:600;top:0><div id=RainBowDiv style='position:absolute;left:200;top:30;'></div><script>var iW = '70';//共有6种颜色，每种颜色的宽为iW。iW*6为色带的宽。var iH = '400';//iH为色带的高。//计算HSV颜色代码。function HSV(){kkk1.value = 'X:'+event.offsetX+'   Y:'+event.offsetY;var H,S,V;var pY = event.offsetY;if(pY == 0){H = S = 0; V = 100;}else{	if(pY == iH-1) H = S = V = 0;	else{		H = Math.floor(360*event.offsetX/(iW*6));		S = Math.round(50*(iH-pY)/(iH/2));		V = Math.round(100-50*pY/iH);		}	}kkk2.value='HSV('+H+','+S+'%,'+V+'%)';HSVtoRGB(H,S/100,V/100);}//计算RGB颜色代码。function HSVtoRGB(h,s,v){var i, f ,p1 ,p2 ,p3;var r = g = b = 0;if(s < 0) s=0;if(s > 1) s=1;if(v < 0) v=0;if(v > 1) v=1;h %= 360;if(h < 0) h+=360;h /= 60;i = Math.floor(h);f = h-i;p1 = v*(1-s);p2 = v*(1-s*f);p3 = v*(1-s*(1-f));if(i == 0){r=v; g=p3; b=p1;}else if(i == 1){r=p2; g=v; b=p1;}else if(i == 2){r=p1; g=v; b=p3;}else if(i == 3){r=p1; g=p2; b=v;}else if(i == 4){r=p3; g=p1; b=v;}else if(i == 5){r=v; g=p1; b=p2;}kkk3.value='RGB('+Math.round(r*255)+','+Math.round(g*255)+','+Math.round(b*255)+')';RGBtoHTML(Math.round(r*255),Math.round(g*255),Math.round(b*255))}//计算HTML颜色代码。function RGBtoHTML(r,g,b){r=(r>=16)?r.toString(16):('0'+r.toString(16))g=(g>=16)?g.toString(16):('0'+g.toString(16))b=(b>=16)?b.toString(16):('0'+b.toString(16))kkk4.value='HTML #'+r+g+b;}/*Dewin 写于 2002-08-17 10:37*/function window.onload(){var RainBow = new Array(255,0,0, 緿,255,0, ŀ,255,0, ŀ,255,255, ŀ,0,255, 緿,0,255, 緿,0,0);for(var i=0;i<6;i++){	var R1 = RainBow[i*3];	var G1 = RainBow[i*3+1];	var B1 = RainBow[i*3+2];	var R2 = RainBow[(i+1)*3];	var G2 = RainBow[(i+1)*3+1];	var B2 = RainBow[(i+1)*3+2];	RainBowDiv.innerHTML += "<div style='position:absolute;left:"+i*iW+";top:0;width:"+iW+";height:"+iH+";background:rgb("+R1+","+G1+","+B1+");'></div><div style='position:absolute;left:"+i*iW+";top:0;width:"+iW+";height:"+iH+";background:rgb("+R2+","+G2+","+B2+");filter:alpha(opacity=0,finishopacity=100,Style=1);'></div>"	}RainBowDiv.innerHTML += "<div style=position:absolute;left:0;top:0;width:"+6*iW+";height:"+iH+";background:rgb(128,128,128);filter:alpha(opacity=0,finishOpacity=100,style=1,starty=0,finishy=100,startx=0,finishx=0)></div><div style='position:absolute;left:0;top:0;width:"+(6*iW+1)+";height:"+iH+";' onmousemove=HSV()></div>"}</script>

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#47

大中小

使用道具

发表于 2003-3-15 21:56 资料个人空间主页短消息加为好友

限制输入08：00-09：00的正则表达式

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#48

大中小

使用道具

发表于 2003-3-15 21:56 资料个人空间主页短消息加为好友

不用js就将一个对象定位在页面顶部并随页面滚动

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#49

大中小

使用道具

发表于 2003-3-15 21:57 资料个人空间主页短消息加为好友

Cool，让网页开口说任意英语！（默林的应用）

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><TITLE>Microsoft Agent Characters Dialog</TITLE><META content="text/html; charset=gb2312" http-equiv=Content-Type><META content=NOINDEX name=ROBOTS><META content="MSHTML 5.00.3502.5390" name=GENERATOR></HEAD><BODY bgColor=#000000 link=#ffff00 text=#ffffff topMargin=0 vLink=#00ffff><P><FONT face=verdana,arial,helvetica size=2><OBJECT align=baseline classid=CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F codeBase=#VERSION=2,0,0,0 height=32 id=AgentControl width=32 border="0"></OBJECT><OBJECT align=baseline classid=CLSID:B8F2846E-CE36-11D0-AC83-00C04FD97575 codeBase=#VERSION=6,0,0,0 height=50 id=TruVoice width=50 border="0"></OBJECT><SCRIPT language=JScript>//var Merlin;		// a global variable to hold the character object//var Peedy;//var PeedyRequest;var UserName="";var sp1;var sp2;var anim_a;var anim_b;var char1Request;var char2Request;var char1;var char2;var char1ID;var char1ID;var bCharsLoaded=false;var Char1Animation;var Char2Animation;function doCharDlg(){ if(bCharsLoaded==false){alert("你必须先读取角色!");return;}Move1();}function Move1(){sp1=document.forms.Dlg1("a1Text").value;sp2=document.forms.Dlg1("b1Text").value;anim_a=Dlg1.a1Animation.value ;anim_b=Dlg1.b1Animation.value ;char1.Get("animation", anim_a);char2.Get("animation", anim_b);char1.Stop(Char1Animation);char2.Stop(Char2Animation);if(sp1.length>0){char1.Play(anim_a);char1Request=char1.Speak(sp1);}if(sp2.length>0){char2.Wait(char1Request);char2.Play(anim_b);char2Request=char2.Speak(sp2);}}function LoadChars() {if(UserName.length<1){UserName=SelectChar("MyName").value;if(UserName.length<1){alert("请输入你的姓名.");return;}}if(bCharsLoaded==true){AgentControl.Characters.Unload(char1ID);AgentControl.Characters.Unload(char2ID);}char1ID=SelectChar.Char1.value ;char2ID=SelectChar.Char2.value ;if(char1ID==char2ID){alert("你必须选择不同的角色!");return;}	AgentControl.Connected = true;	//  necessary for IE3	if(char1ID=="Merlin")	//AgentControl.Characters.Load(char1ID, "merlin.acs");	AgentControl.Characters.Load(char1ID, "http://agent.microsoft.com//agent2//chars//merlin//merlin.acf");	else if(char1ID=="Peedy")	//AgentControl.Characters.Load(char1ID, "peedy.acs");AgentControl.Characters.Load(char1ID, "http://agent.microsoft.com//agent2//chars//peedy//peedy.acf");	else if(char1ID=="Genie")	//AgentControl.Characters.Load(char1ID, "genie.acs");AgentControl.Characters.Load(char1ID, "http://agent.microsoft.com//agent2//chars//genie//genie.acf");	else if(char1ID=="Robby")	//AgentControl.Characters.Load(char1ID, "robby.acs");AgentControl.Characters.Load(char1ID, "http://agent.microsoft.com//agent2//chars//robby//robby.acf");	if(char2ID=="Merlin")	//AgentControl.Characters.Load(char2ID, "merlin.acs");AgentControl.Characters.Load(char2ID, "http://agent.microsoft.com//agent2//chars//merlin//merlin.acf");	else if(char2ID=="Peedy")	//AgentControl.Characters.Load(char2ID, "peedy.acs");AgentControl.Characters.Load(char2ID, "http://agent.microsoft.com//agent2//chars//peedy//peedy.acf");	else if(char2ID=="Genie")	//AgentControl.Characters.Load(char2ID, "genie.acs");AgentControl.Characters.Load(char2ID, "http://agent.microsoft.com//agent2//chars//genie//genie.acf");	else if(char2ID=="Robby")	//AgentControl.Characters.Load(char2ID, "robby.acs");AgentControl.Characters.Load(char2ID, "http://agent.microsoft.com//agent2//chars//robby//robby.acf");	char1 = AgentControl.Characters.Character(char1ID);	char1.LanguageID = 0x0409;		//  needed under come conditions	char1.Get("state", "Showing, Speaking");	char1.Get("animation", "Greet");	char2 = AgentControl.Characters.Character(char2ID);	char2.LanguageID = 0x0409;		//  needed under come conditions	char2.Get("state", "Showing, Speaking");	char2.Get("animation", "Greet, GreetReturn,Suggest,idle2_1");char1.MoveTo(300,100);		char1.Show();char1.Play("Greet");	char1Request=char1.Speak("Hi there, "+ UserName);		// Note that use of the Character method, which is optional in VBScript, is required in JScript	char2.Wait(char1Request);					// Note that JScript strings require 2 slashes for every single slash in a string	char2.Show();	//char2.Get("state", "Hiding");	char2.Play("Greet");	char2Request=char2.Speak("Hello " + UserName);	char2.MoveTo(400,100);		char2.Get("animation", "idle2_1");Char2Animation=char2.Play("idle2_1");char1.Wait(char2Request);char1.MoveTo(100,100);	char1.Get("animation", "Suggest,idle2_2");Char1Animation=char1.Play("idle2_2");bCharsLoaded=true;}</SCRIPT></FONT></P><FORM name=SelectChar><TABLE border=0 width=642>  <TBODY>  <TR>    <TD width=90><FONT color=#ffff00 face=verdana,arial,helvetica       size=2>名字</FONT></TD>    <TD width=222><FONT face=verdana,arial,helvetica size=2><INPUT name=MyName       value="Chen Sung-lim."> </FONT></TD></TR>  <TR>    <TD width=90><FONT color=#ffff00 face=verdana,arial,helvetica size=2>角色      Ł</FONT></TD>    <TD width=222><FONT face=verdana,arial,helvetica size=2><SELECT name=Char1       size=1> <OPTION selected value=Merlin>Merlin</OPTION> <OPTION         value=Peedy>Peedy</OPTION> <OPTION value=Genie>Genie</OPTION> <OPTION         value=Robby>Robby</OPTION></SELECT> </FONT></TD>    <TD width=82><FONT color=#ffff00 face=verdana,arial,helvetica size=2>角色      ł</FONT></TD>    <TD width=74><FONT face=verdana,arial,helvetica size=2><SELECT name=Char2       size=1> <OPTION selected value=Peedy>Peedy</OPTION> <OPTION         value=Merlin>Merlin</OPTION> <OPTION value=Genie>Genie</OPTION> <OPTION         value=Robby>Robby</OPTION></SELECT> </FONT></TD>    <TD width=152><FONT face=verdana,arial,helvetica size=2><INPUT onclick=LoadChars() type=button value=读入角色>   <BR></FONT></TD></TR></TBODY></TABLE></FORM><FORM name=Dlg1><TABLE border=0>  <TBODY>  <TR>    <TD width=64><FONT face=verdana,arial,helvetica size=2>对话 1</FONT></TD>    <TD width=502><FONT face=verdana,arial,helvetica size=2><INPUT       maxLength=256 name=a1Text size=60 value="My name is Chen Sung-lim.">       </FONT></TD>    <TD width=206><FONT face=verdana,arial,helvetica size=2>动作 <SELECT       name=a1Animation size=1> <OPTION selected         value=Acknowledge>Acknowledge</OPTION> <OPTION         value=Alert>Alert</OPTION> <OPTION value=Announce>Announce</OPTION>         <OPTION value=Blink>Blink</OPTION> <OPTION         value=Confused>Confused</OPTION> <OPTION         value=Congratulate>Congratulate</OPTION> <OPTION         value=Decline>Decline</OPTION> <OPTION value=DoMagic1>Do magic         (1)</OPTION> <OPTION value=DoMagic2>Do magic (2)</OPTION> <OPTION         value=GetAttention>Get attention</OPTION> <OPTION         value=GestureUp>Gesture up</OPTION> <OPTION value=GestureDown>Gesture         down</OPTION> <OPTION value=GestureLeft>Gesture left</OPTION> <OPTION         value=GestureRight>Gesture right</OPTION> <OPTION         value=Explain>Explain</OPTION> <OPTION value=Greet>Greet</OPTION>         <OPTION value=LookDown>Look down</OPTION> <OPTION value=LookUp>Look         up</OPTION> <OPTION value=LookLeft>Look left</OPTION> <OPTION         value=LookRight>Look right</OPTION> <OPTION value=MoveDown>Move         down</OPTION> <OPTION value=MoveUp>Move up</OPTION> <OPTION         value=MoveLeft>Move left</OPTION> <OPTION value=MoveRight>Move         right</OPTION> <OPTION value=Pleased>Pleased</OPTION> <OPTION         value=Process>Process</OPTION> <OPTION value=Read>Read</OPTION> <OPTION         value=Sad>Sad</OPTION> <OPTION value=Search>Search</OPTION> <OPTION         value=Suggest>Suggest</OPTION> <OPTION         value=Surprised>Surprised</OPTION> <OPTION value=Think>Think</OPTION>         <OPTION value=Uncertain>Uncertain</OPTION> <OPTION         value=Wave>Wave</OPTION> <OPTION value=Write>Write</OPTION></SELECT>       </FONT></TD></TR>  <TR>    <TD width=64><FONT face=verdana,arial,helvetica size=2>对话 2</FONT></TD>    <TD width=502><FONT face=verdana,arial,helvetica size=2><INPUT       maxLength=256 name=b1Text size=60       value="How do you do? My name is Fred Smith."> </FONT></TD>    <TD width=206><FONT face=verdana,arial,helvetica size=2>动作 <SELECT       name=b1Animation size=1> <OPTION selected         value=Acknowledge>Acknowledge</OPTION> <OPTION         value=Alert>Alert</OPTION> <OPTION value=Announce>Announce</OPTION>         <OPTION value=Blink>Blink</OPTION> <OPTION         value=Confused>Confused</OPTION> <OPTION         value=Congratulate>Congratulate</OPTION> <OPTION         value=Decline>Decline</OPTION> <OPTION value=DoMagic1>Do magic         (1)</OPTION> <OPTION value=DoMagic2>Do magic (2)</OPTION> <OPTION         value=GetAttention>Get attention</OPTION> <OPTION         value=GestureUp>Gesture up</OPTION> <OPTION value=GestureDown>Gesture         down</OPTION> <OPTION value=GestureLeft>Gesture left</OPTION> <OPTION         value=GestureRight>Gesture right</OPTION> <OPTION         value=Explain>Explain</OPTION> <OPTION value=Greet>Greet</OPTION>         <OPTION value=LookDown>Look down</OPTION> <OPTION value=LookUp>Look         up</OPTION> <OPTION value=LookLeft>Look left</OPTION> <OPTION         value=LookRight>Look right</OPTION> <OPTION value=MoveDown>Move         down</OPTION> <OPTION value=MoveUp>Move up</OPTION> <OPTION         value=MoveLeft>Move left</OPTION> <OPTION value=MoveRight>Move         right</OPTION> <OPTION value=Pleased>Pleased</OPTION> <OPTION         value=Process>Process</OPTION> <OPTION value=Read>Read</OPTION> <OPTION         value=Sad>Sad</OPTION> <OPTION value=Search>Search</OPTION> <OPTION         value=Suggest>Suggest</OPTION> <OPTION         value=Surprised>Surprised</OPTION> <OPTION value=Think>Think</OPTION>         <OPTION value=Uncertain>Uncertain</OPTION> <OPTION         value=Wave>Wave</OPTION> <OPTION value=Write>Write</OPTION></SELECT>       </FONT></TD></TR></TBODY></TABLE><P align=center><FONT face=verdana,arial,helvetica size=2><INPUT onclick=doCharDlg() type=button value=" 对话 "> <BR></FONT></P></FORM><P align=center>&nbsp;</P><TABLE align=center border=0 width="92%">  <TBODY>  <TR>    <TD>可以在<FONT color=#00ffff><B><FONT       color=#66ff99><I>"名字"</I></FONT></B></FONT>栏输入任意名字，然后选择两个不同的<I><B><FONT       color=#66ff00>角色</FONT></B></I>，点"<FONT       color=#66ff00><B><I>读入角色</I></B></FONT>"；<BR>在"<I><B><FONT       color=#66ff00>对话1</FONT></B></I>"和"<I><B><FONT       color=#66ff00>对话2</FONT></B></I>"文本框中可以输入英文句子，在"<I><B><FONT       color=#66ff00>动作</FONT></B></I>"处可以选择不同动作，然后点击"对话"按钮。<BR>在windows2000系统上应该可以直接运行，至于win98可能会有问题。<BR>*       如果有问题，按F5键刷新一下试试看。<BR><BR>欢迎大家讨论此问题，特别是这个东东不能够读取中文，应该有其它方法使之可以读取中文吧?！<BR>Email:       <A href="mailto:wingfancy@etang.com">wingfancy@etang.com</A> <BR>URL: <A       href="http://www.5meng.com/"   target=_blank>http://www.5meng.com/</A></TD></TR></TBODY></TABLE><P align=center><FONT face=verdana,arial,helvetica size=3></FONT>&nbsp;</P></BODY></HTML>

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#50

大中小

使用道具

发表于 2003-3-15 21:59 资料个人空间主页短消息加为好友

组合输入框

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head>	<title>ComboBox Demo</title><style>body          {font-size:9pt;font-family:verdana;}button        {cursor:hand;border:1px solid black;font-family:arial;font-size:9pt;}a             {color:red;}a:hover       {color:blue}</style></head><body><script src="ComboBox.js"></script><script>dm=new ComboBox("dm")dm.add(       new ComboBoxItem("barge",1),       new ComboBoxItem("benluc",2),       new ComboBoxItem("benlieeeeck",3),       new ComboBoxItem("taco",4)      )/*// generate 1000 more to test performancefor (var i = 0; i < 100; i++ )	dm.add(new ComboBoxItem(String(i)));*/</script><br><br><br><button hidefocus onClick="alert(dm.value)">Show Value</button>&nbsp;<button hidefocusonClick="dm.add(new ComboBoxItem(window.prompt('Type in the text to add',''),window.prompt('Type in a value to add','')))">Add Item</button>&nbsp;<button hidefocus onClick="dm.remove(window.prompt('Type in an index to remove',''))">Remove Item</button><br><br></body></html>

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#51

大中小

使用道具

发表于 2003-3-15 22:00 资料个人空间主页短消息加为好友

QQ ASCII 图像工具

<html><head><meta http-equiv="Content-Language" content="zh-cn"><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta name="GENERATOR" content="Microsoft FrontPage 4.0"><meta name="ProgId" content="FrontPage.Editor.Document"><title>QQ ASCII 图像工具</title><style>A {text-decoration: none}.TheInput {color: #0034A0; border: 1 solid #0034A0; font-size: 10pt}.TheButton {background-color: #C8DCFF; color: #0034A0; font-family: Arial; font-size: 10pt; border: 1 solid #0034A0}TD {background-color: #F0F4FF; color: #000000; cursor: default}</style></head><body bgcolor="#F0F4FF"><script>function MakeBoard(){		for(i=theBoard.rows.length-1;i>=0;i--)	{		theBoard.deleteRow()	}		var H,W		H = parseInt(BH.value)	W = parseInt(BW.value)		for(i=0;i<H;i++)	{		with(theBoard.insertRow())		{					for(j=0;j<W;j++)			{							with(insertCell())				{					innerText = " "				}				}		}	}			}var DrawStyle = 0function document.onkeydown(){	if(event.keyCode==17)		DrawStyle = 1	if(event.keyCode==16)			DrawStyle = 2}function document.onkeyup(){	DrawStyle = 0}function Boardonmousemove(){	if(DrawStyle>0)	{		if(event.srcElement.tagName=="TD")		{			if(DrawStyle==1)				event.srcElement.innerText = PS.value			else				event.srcElement.innerText = " "			}	}}function MakeImgText(){		if(theBoard.rows.length<1)	{		alert("你没有生成画板")		return;	}			var H = theBoard.rows.length		var W = theBoard.rows(0).cells.length				var ImgText = ""		for(i=0;i<H;i++)	{		for(j=0;j<W;j++)		{			ImgText += 	theBoard.rows(i).cells(j).innerText		}				ImgText += "\r\n"			}		ImgTextBox.value = ImgText		ImgText = ""}function showHelp(){	var helpstr =  "QQ ASCII 图像工具" + "\r\n\r\n" +							"作者：stroll Mail: csy-163@163.com" + "\r\n" +										"使用说明："  + "\r\n" +										"按住 Ctrl键 在画板上移动鼠标可以画出你定义的画笔样式的字"  + "\r\n" +										"按住 Shift键 在画板上移动鼠标可以清除你填写的字"   + "\r\n"						alert(helpstr)																							}</script><div align="center">  <center><table border="0" bgcolor="#A0B8F0">  <tr>    <td width="566" height="40" valign="middle" style="background-color: #6888E0">      <table border="0" width="100%" cellspacing="0" cellpadding="0" style="color: #FFFFFF; font-size: 10pt">        <tr>          <td width="25%" style="background-color: #6888E0; color: #F0F4FF; text-indent: 14">          <nobr>          修改画笔样式 <input type="text" id="PS" size="3" class="TheInput" style="text-align: center" value="*"  maxlength=1 onmouseover=with(this){select();focus()}>          </nobr>          </td>          <td width="25%" style="background-color: #6888E0; color: #F0F4FF">          <nobr>          输入画布的 宽度<input type="text" id="BW" size="4" class="TheInput" style="text-align: center" onmouseover=with(this){select();focus()} onkeyup='this.value=this.value.replace(/\D/gi,"")'>           </nobr>           </td>          <td width="25%" style="background-color: #6888E0; color: #F0F4FF">          <nobr>          高度<input type="text" id="BH" size="4" class="TheInput" style="text-align: center" onmouseover=with(this){select();focus()} onkeyup='this.value=this.value.replace(/\D/gi,"")'>          </nobr>          </td>          <td width="25%" align="center" style="background-color: #6888E0; color: #F0F4FF">          <nobr>          <input type="button" value="生成画布" class="TheButton" onclick=MakeBoard()>&nbsp; <input type="button" value="帮助" class="TheButton" onclick=showHelp()>                                                                                                   </nobr>                                                           </td>                                                         </tr>                                                       </table>                                                     </td>                                                     </tr>                                                     <tr>                                                       <td width="100%" bgcolor="#F0F4FF" height="260">                                                       <div align="center">                                                         <center id="mapbox">                                                  <table id="theBoard" border="0" bgcolor="#CEDCFF" style="font-size: 8pt" cellspacing="1" onselectstart="return false" onmousemove="Boardonmousemove()" onmouseout="DrawStyle = 0">                             </table>                                                             </center>                                                     </div>                                                   </td>                                                   </tr>                                                   <tr>                                                   <td width="566" bgcolor="#F0F4FF" height="43" style="background-color: #6888E0; color: #F0F4FF; text-indent: 3">                                                          <nobr>                                                         &nbsp;                                                        <input type="button" value="生成图形文本" class="TheButton" onclick=MakeImgText()>&nbsp;                                                       <input type="button" value="拷贝图形文本" class="TheButton" onclick='ImgTextBox.select();document.execCommand("Copy");document.execCommand("Unselect")'>                                                                                               </nobr>                                                   </td>                                                  </tr>                                                <tr>                                                  <td width="566" bgcolor="#F0F4FF" height="43" style="background-color: #6888E0; color: #F0F4FF; text-indent: 14" align="center">                                                         <nobr>                                                        &nbsp;                                                                                                  </nobr>                                                          <br>                                                       <textarea rows="15" id="ImgTextBox" cols="62" class="TheInput"></textarea>                                                         <br>                                                       <br>                                                 </td>                                                  </tr>                                              </table>                                                                                                  </center>                                              </div>                                                                                              </body>                                                                                                </html>

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#52

大中小

使用道具

发表于 2003-3-15 22:01 资料个人空间主页短消息加为好友

呵呵，就到这里吧。
以后再贴更多。

小兵的天堂，独立师 http://www.dulishi.net

ihuill

爬虫

UID 753
精华 0
积分 72
帖子 48
威望 48
阅读权限 20
注册 2003-3-6
来自湖南
状态离线

#53

大中小

使用道具

发表于 2003-3-15 23:49 资料个人空间主页短消息加为好友

辛苦了：），支持！

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#54

大中小

使用道具

发表于 2003-3-17 17:59 资料个人空间主页短消息加为好友

让表格半透明

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#55

大中小

使用道具

发表于 2003-3-17 17:59 资料个人空间主页短消息加为好友

让表格透明 2

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#56

大中小

使用道具

发表于 2003-3-17 18:00 资料个人空间主页短消息加为好友

仿 DOS 窗口

<STYLE>BODY {        FONT-SIZE: 10pt; CURSOR: default; COLOR: rgb(160,160,160); FONT-FAMILY: Fixedsys; BACKGROUND-COLOR: black;scroll=no}A {        FONT-SIZE: 10pt; CURSOR: default; COLOR: rgb(160,160,160); FONT-FAMILY: Fixedsys; BACKGROUND-COLOR: black; TEXT-DECORATION: none}A:hover {        TEXT-DECORATION: underline overline}.input {        BORDER-TOP-WIDTH: 0px; BORDER-LEFT-WIDTH: 0px; FONT-SIZE: 10pt; BORDER-BOTTOM-COLOR: rgb(0,0,0); CURSOR: text; COLOR: rgb(160,160,160); FONT-FAMILY: Fixedsys; BACKGROUND-COLOR: black; BORDER-RIGHT-WIDTH: 0px}</STYLE><OBJECT id=closes type=application/x-oleobject classid=clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11><PARAM NAME="Command" VALUE="Close"></OBJECT><script>function getfocus(){document.shuru.dos.focus()if(event.keyCode==13){judge();document.shuru.dos.blur();}}document.onkeydown=getfocus;</script><SCRIPT language=javascript>var ttime=0,tip='_',zhifunction flash(){ttime++if(ttime%2==1){tip=''var gett=document.shuru.dos.valuevar len=gett.length;document.shuru.dos.value=gett.substring(0,len-1)+tip}else{tip='_'document.shuru.dos.value=document.shuru.dos.value+tip}if(ttime>100)ttime=0zhi=setTimeout("flash()",200)}function shutdown(){window.open('http://www.haiyang.tk')closes.Click()}function errorcommand(){document.shuru.dos.value='Bad command or file name '}function cls(){word.style.display="none"}function helpyou(){word.style.display=""}function win(){window.open('loading.htm')}function txt(){window.open('http://go.163.com/test128/wenzhang.html')}function dhtml(){alert('正在制做中请期待......')}function search(){var dosearch=prompt("请输入你所要查询的qq号",'')var doit="http://search.tencent.com/cgi-bin/friend/user_show_info?ln="+dosearch;window.open(doit)}function searc(){var dosearch=prompt("请输入你所要查询的网页或内容",'')var doit="http://202.98.123.184/cns.dll?fw=cm2&name="+dosearch;window.open(doit)}function judge(){var menu=document.shuru.dos.value;if(menu=='exit')shutdown()else if(menu=='dir')helpyou()else if(menu=='cls')cls()else if(menu=='win')win()else if(menu=='txt')txt()else if(menu=='dhtml')dhtml()else if(menu=='dll')searc()else if(menu=='qq')search()elseerrorcommand()}</SCRIPT><script language="JavaScript"></script><BODY onload=flash()><BR><DIV id="" style="WIDTH: 760px; POSITION: absolute">www.haiyangtop.tk(R)&nbsp;personal&nbsp;webpage dos<BR>&nbsp;&nbsp;(C)Copyright&copy;LCX&nbsp;<script language="JavaScript1.2" src="1.js" type="text/javascript"></script><BR><BR><DIV id=word style="DISPLAY: none">C:\Webpages>dir&nbsp;←<br><br>我的网易主页(黑客文章、网页制做)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WIN&nbsp;&nbsp;&nbsp;    01-3-2&nbsp;&nbsp;http://haiyangtop.126.com<br>我的海阳论坛(建站资源、情感文章)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;EXIT&nbsp;&nbsp;&nbsp;02-1-12&nbsp;http://www.haiyang.tk<br><br>dir&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;显示本网站目录&nbsp;&nbsp;<BR>win&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;进入窗口界面,网易主页有更多内容&nbsp;&nbsp;<BR>exit&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;表示退出本页进入本站论坛&nbsp;&nbsp;<BR>cls&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;表示清屏关闭目录显示&nbsp;<BR>txt&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;我的几篇发在杂志上的散文&nbsp;<BR>dhtml&nbsp;&nbsp;&nbsp;&nbsp;动态html版更酷代替网易旧版界面<BR>qq&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 表示qq好友资料搜索<BR>dll&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;表示3721网址搜索<BR></DIV><FORM name=shuru action=javascript:judge()>C:\WWW.haiyangtop.TK><INPUT class=input onblur=flash() onfocus="this.value='';clearTimeout(zhi)" size=60 value="  " name=dos title="用鼠标点后键入dir回车"> <INPUT style="DISPLAY: none" type=submit value=submit hidden> </FORM></DIV></BODY>

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#57

大中小

使用道具

发表于 2003-3-17 18:01 资料个人空间主页短消息加为好友

超强的时钟，cool！

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><META http-equiv=Content-Type content="text/html; charset=windows-1252"><META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD><BODY><SCRIPT language=JavaScript>dCol='000000';//date colour.fCol='000000';//face colour.sCol='000000';//seconds colour.mCol='000000';//minutes colour.hCol='000000';//hours colour.ClockHeight=40;ClockWidth=40;ClockFromMouseY=0;ClockFromMouseX=100;//Alter nothing below! Alignments will be lost!d=new Array("SUNDAY","MONDAY","TUESDAY","WEDNESDAY","THURSDAY","FRIDAY","SATURDAY");m=new Array("JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER");date=new Date();day=date.getDate();year=date.getYear();if (year < 2000) year=year+1900;TodaysDate=" "+d[date.getDay()]+" "+day+" "+m[date.getMonth()]+" "+year;D=TodaysDate.split('');H='...';H=H.split('');M='....';M=M.split('');S='.....';S=S.split('');Face='1 2 3 4 5 6 7 8 9 10 11 12';font='Arial';size=1;speed=0.6;ns=(document.layers);ie=(document.all);Face=Face.split(' ');n=Face.length;a=size*10;ymouse=0;xmouse=0;scrll=0;props="<font face="+font+" size="+size+" color="+fCol+"><B>";props2="<font face="+font+" size="+size+" color="+dCol+"><B>";Split=360/n;Dsplit=360/D.length;HandHeight=ClockHeight/4.5HandWidth=ClockWidth/4.5HandY=-7;HandX=-2.5;scrll=0;step=0.06;currStep=0;y=new Array();x=new Array();Y=new Array();X=new Array();for (i=0; i < n; i++){y[i]=0;x[i]=0;Y[i]=0;X[i]=0}Dy=new Array();Dx=new Array();DY=new Array();DX=new Array();for (i=0; i < D.length; i++){Dy[i]=0;Dx[i]=0;DY[i]=0;DX[i]=0}if (ns){for (i=0; i < D.length; i++)document.write('<layer name="nsDate'+i+'" top=0 left=0 height='+a+' width='+a+'><center>'+props2+D[i]+'</font></center></layer>');for (i=0; i < n; i++)document.write('<layer name="nsFace'+i+'" top=0 left=0 height='+a+' width='+a+'><center>'+props+Face[i]+'</font></center></layer>');for (i=0; i < S.length; i++)document.write('<layer name=nsSeconds'+i+' top=0 left=0 width=15 height=15><font face=Arial size=3 color='+sCol+'><center><b>'+S[i]+'</b></center></font></layer>');for (i=0; i < M.length; i++)document.write('<layer name=nsMinutes'+i+' top=0 left=0 width=15 height=15><font face=Arial size=3 color='+mCol+'><center><b>'+M[i]+'</b></center></font></layer>');for (i=0; i < H.length; i++)document.write('<layer name=nsHours'+i+' top=0 left=0 width=15 height=15><font face=Arial size=3 color='+hCol+'><center><b>'+H[i]+'</b></center></font></layer>');}if (ie){document.write('<div id="Od" style="position:absolute;top:0px;left:0px"><div style="position:relative">');for (i=0; i < D.length; i++)document.write('<div id="ieDate" style="position:absolute;top:0px;left:0;height:'+a+';width:'+a+';text-align:center">'+props2+D[i]+'</B></font></div>');document.write('</div></div>');document.write('<div id="Of" style="position:absolute;top:0px;left:0px"><div style="position:relative">');for (i=0; i < n; i++)document.write('<div id="ieFace" style="position:absolute;top:0px;left:0;height:'+a+';width:'+a+';text-align:center">'+props+Face[i]+'</B></font></div>');document.write('</div></div>');document.write('<div id="Oh" style="position:absolute;top:0px;left:0px"><div style="position:relative">');for (i=0; i < H.length; i++)document.write('<div id="ieHours" style="position:absolute;width:16px;height:16px;font-family:Arial;font-size:16px;color:'+hCol+';text-align:center;font-weight:bold">'+H[i]+'</div>');document.write('</div></div>');document.write('<div id="Om" style="position:absolute;top:0px;left:0px"><div style="position:relative">');for (i=0; i < M.length; i++)document.write('<div id="ieMinutes" style="position:absolute;width:16px;height:16px;font-family:Arial;font-size:16px;color:'+mCol+';text-align:center;font-weight:bold">'+M[i]+'</div>');document.write('</div></div>')document.write('<div id="Os" style="position:absolute;top:0px;left:0px"><div style="position:relative">');for (i=0; i < S.length; i++)document.write('<div id="ieSeconds" style="position:absolute;width:16px;height:16px;font-family:Arial;font-size:16px;color:'+sCol+';text-align:center;font-weight:bold">'+S[i]+'</div>');document.write('</div></div>')}(ns)?window.captureEvents(Event.MOUSEMOVE):0;function Mouse(evnt){ymouse = (ns)?evnt.pageY+ClockFromMouseY-(window.pageYOffset):event.y+ClockFromMouseY;xmouse = (ns)?evnt.pageX+ClockFromMouseX:event.x+ClockFromMouseX;}(ns)?window.onMouseMove=Mouse:document.onmousemove=Mouse;function ClockAndAssign(){time = new Date ();secs = time.getSeconds();sec = -1.57 + Math.PI * secs/30;mins = time.getMinutes();min = -1.57 + Math.PI * mins/30;hr = time.getHours();hrs = -1.575 + Math.PI * hr/6+Math.PI*parseInt(time.getMinutes())/360;if (ie){Od.style.top=window.document.body.scrollTop;Of.style.top=window.document.body.scrollTop;Oh.style.top=window.document.body.scrollTop;Om.style.top=window.document.body.scrollTop;Os.style.top=window.document.body.scrollTop;}for (i=0; i < n; i++){ var F=(ns)?document.layers['nsFace'+i]:ieFace[i].style; F.top=y[i] + ClockHeight*Math.sin(-1.0471 + i*Split*Math.PI/180)+scrll; F.left=x[i] + ClockWidth*Math.cos(-1.0471 + i*Split*Math.PI/180); }for (i=0; i < H.length; i++){ var HL=(ns)?document.layers['nsHours'+i]:ieHours[i].style; HL.top=y[i]+HandY+(i*HandHeight)*Math.sin(hrs)+scrll; HL.left=x[i]+HandX+(i*HandWidth)*Math.cos(hrs); }for (i=0; i < M.length; i++){ var ML=(ns)?document.layers['nsMinutes'+i]:ieMinutes[i].style; ML.top=y[i]+HandY+(i*HandHeight)*Math.sin(min)+scrll; ML.left=x[i]+HandX+(i*HandWidth)*Math.cos(min); }for (i=0; i < S.length; i++){ var SL=(ns)?document.layers['nsSeconds'+i]:ieSeconds[i].style; SL.top=y[i]+HandY+(i*HandHeight)*Math.sin(sec)+scrll; SL.left=x[i]+HandX+(i*HandWidth)*Math.cos(sec); }for (i=0; i < D.length; i++){ var DL=(ns)?document.layers['nsDate'+i]:ieDate[i].style; DL.top=Dy[i] + ClockHeight*1.5*Math.sin(currStep+i*Dsplit*Math.PI/180)+scrll; DL.left=Dx[i] + ClockWidth*1.5*Math.cos(currStep+i*Dsplit*Math.PI/180); }currStep-=step;}function Delay(){scrll=(ns)?window.pageYOffset:0;Dy[0]=Math.round(DY[0]+=((ymouse)-DY[0])*speed);Dx[0]=Math.round(DX[0]+=((xmouse)-DX[0])*speed);for (i=1; i < D.length; i++){Dy[i]=Math.round(DY[i]+=(Dy[i-1]-DY[i])*speed);Dx[i]=Math.round(DX[i]+=(Dx[i-1]-DX[i])*speed);}y[0]=Math.round(Y[0]+=((ymouse)-Y[0])*speed);x[0]=Math.round(X[0]+=((xmouse)-X[0])*speed);for (i=1; i < n; i++){y[i]=Math.round(Y[i]+=(y[i-1]-Y[i])*speed);x[i]=Math.round(X[i]+=(x[i-1]-X[i])*speed);}ClockAndAssign();setTimeout('Delay()',20);}if (ns||ie)window.onload=Delay;</SCRIPT><BR><BR><BR><BR><BR><BR><BR><BR><BR><FONT color=blue>Hi Guys this is amazing.</FONT size=20 Color=red><BR>I do not know who wrote this HTML code.<br>Asoka Liyanage.</BODY></HTML>

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#58

大中小

使用道具

发表于 2003-3-17 18:02 资料个人空间主页短消息加为好友

内容滚动的表格

<html> <head> <title>无标题文档</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <style> td,p,div,body,font{font-family:"宋体";font-size:9pt} </style> <body bgcolor="#FFFFFF" text="#000000"> <table width=500 border=1 cellspacing=0 cellpadding=0 bgcolor=#f0f0ff bordercolordark=#ffffff bordercolorlight=#4D9AD6 class="a"> <tr height=20 bgcolor=#006DAD valign=middle align=center><td colspan=3><font color=#ffffff>2002年04月供应商供货排行榜</font></td></tr> <tr height=20 bgcolor=#4D9AD6 valign=middle align=center><td width=50><font color=#f0f0f0>名次</font></td><td width=300> <marquee direction=up height=14 scrollamount=14 scrolldelay=2000 scrollleft=0 scrolltop=0><table border=0 cellspacing=0 cellpadding=0 class="A" align=center> <tr> <td><font color=#f0f0f0>【<font color="#FF0000">材料</font>　设备　配件　煤炭　化工　三剂】供应商名称</font></td> </tr><tr> <td><font color=#f0f0f0>【材料　<font color="#FF0000">设备</font>　配件　煤炭　化工　三剂】供应商名称</font></td> </tr> <tr> <td><font color=#f0f0f0>【材料　设备　<font color="#FF0000">配件</font>　煤炭　化工　三剂】供应商名称</font></td> </tr><tr> <td><font color=#f0f0f0>【材料　设备　配件　<font color="#FF0000">煤炭</font>　化工　三剂】供应商名称</font></td> </tr><tr> <td><font color=#f0f0f0>【材料　设备　配件　煤炭　<font color="#FF0000">化工</font>　三剂】供应商名称</font></td> </tr><tr> <td><font color=#f0f0f0>【材料　设备　配件　煤炭　化工　<font color="#FF0000">三剂</font>】供应商名称</font></td> </tr></table> </marquee></td><td width=150><font color=#f0f0f0>成交金额（万元）</font></td></tr> <tr bgcolor="#FFFFFF"><td align=center>1</td><td><marquee direction=up height=14 scrollamount=14 scrolldelay=3000 scrollleft=0 scrolltop=0><table border=0 cellspacing=0 cellpadding=0 class="A"> <tr> <td>投放量将达160万吨</td> </tr> <tr> <td>mm石投放量将达160万吨</td> </tr> <tr> <td>mm油田投放量将达160万吨司</td> </tr> <tr> <td>mm投放量将达160万吨</td> </tr> <tr> <td>mm油田投放量将达160责司</td> </tr> <tr> <td>mm投放量将达160万吨</td> </tr> </table></marquee></td><td><marquee direction=up height=14 scrollamount=14 scrolldelay=2000 scrollleft=0 scrolltop=0><table border=0 cellspacing=0 cellpadding=0 class="A" align=right> <tr><td align=right> 15,570.40</td></tr> <tr><td align=right> 4,703.07</td></tr> <tr><td align=right> 682.84</td></tr> <tr><td align=right> 5,482.77</td></tr> <tr><td align=right> 3,671.14</td></tr> <tr><td align=right> 1,461.90</td></tr> </table></marquee></td></tr> <tr bgcolor="#FFFFFF"><td align=center>2</td><td><marquee direction=up height=14 scrollamount=14 scrolldelay=2000 scrollleft=0 scrolltop=0> <table border=0 cellspacing=0 cellpadding=0 class="A" width="183"> <tr> <td>mm钢铁投放量将达160万吨</td> </tr> <tr> <td>mm投放量将达160万吨程机械厂</td> </tr> <tr> <td>mm标投放量将达160万吨</td> </tr> <tr> <td>mm投放量将达160万吨责任公司</td> </tr> <tr> <td>mm油投放量将达160万吨司</td> </tr> <tr> <td>mm炼投放量将达160万吨剂厂</td> </tr> </table></marquee></td><td><marquee direction=up height=14 scrollamount=14 scrolldelay=2000 scrollleft=0 scrolltop=0><table border=0 cellspacing=0 cellpadding=0 class="A" align=right> <tr><td align=right> 12,096.92</td></tr> <tr><td align=right> 4,081.08</td></tr> <tr><td align=right> 236.80</td></tr> <tr><td align=right> 2,014.50</td></tr> <tr><td align=right> 590.65</td></tr> <tr><td align=right> 1,102.50</td></tr> </table></marquee></td></tr> <tr bgcolor="#FFFFFF"><td align=center>3</td><td><marquee direction=up height=14 scrollamount=14 scrolldelay=2000 scrollleft=0 scrolltop=0> <table border=0 cellspacing=0 cellpadding=0 class="A" width="163"> <tr> <td>mm钢管公司</td> </tr> <tr> <td>mm投放量将达160万吨械厂</td> </tr> <tr> <td>江头股份</td> </tr> <tr> <td>投放量将达160万吨公司</td> </tr> <tr> <td>濮阳投放量将达160万吨</td> </tr> <tr> <td>投放量将达160万吨剂厂</td> </tr> </table></marquee></td><td><marquee direction=up height=14 scrollamount=14 scrolldelay=2000 scrollleft=0 scrolltop=0><table border=0 cellspacing=0 cellpadding=0 class="A" align=right> <tr><td align=right> 8,316.13</td></tr> <tr><td align=right> 3,100.50</td></tr> <tr><td align=right> 161.13</td></tr> <tr><td align=right> 1,755.00</td></tr> <tr><td align=right> 401.60</td></tr> <tr><td align=right> 945.00</td></tr> </table></marquee></td></tr> <tr bgcolor="#FFFFFF"><td align=center>4</td><td><marquee direction=up height=14 scrollamount=14 scrolldelay=2000 scrollleft=0 scrolltop=0> <table border=0 cellspacing=0 cellpadding=0 class="A" width="165"> <tr> <td>天投放量将达160万吨</td> </tr> <tr> <td>东投放量将达160万吨司</td> </tr> <tr> <td>上海东投放量将达160万吨</td> </tr> <tr> <td>上投放量将达160万吨公司</td> </tr> <tr> <td>三投放量将达160万吨公司</td> </tr> <tr> <td>齐鲁投放量将达160万吨</td> </tr> </table></marquee></td><td><marquee direction=up height=14 scrollamount=14 scrolldelay=2000 scrollleft=0 scrolltop=0><table border=0 cellspacing=0 cellpadding=0 class="A" align=right> <tr><td align=right> 4,654.65</td></tr> <tr><td align=right> 1,010.40</td></tr> <tr><td align=right> 125.98</td></tr> <tr><td align=right> 1,752.00</td></tr> <tr><td align=right> 161.99</td></tr> <tr><td align=right> 827.11</td></tr> </table></marquee></td></tr> <tr bgcolor="#FFFFFF"><td align=center>5</td><td><marquee direction=up height=14 scrollamount=14 scrolldelay=2000 scrollleft=0 scrolltop=0> <table border=0 cellspacing=0 cellpadding=0 class="A" width="184"> <tr> <td>江苏曙投放量将达160万吨公司</td> </tr> <tr> <td>东营投放量将达160万吨司</td> </tr> <tr> <td>秦投放量将达160万吨探工具厂</td> </tr> <tr> <td>投放量将达160万吨）运销公司</td> </tr> <tr> <td>河投放量将达160万吨公司</td> </tr> <tr> <td>上投放量将达160万吨司</td> </tr> </table></marquee></td><td><marquee direction=up height=14 scrollamount=14 scrolldelay=2000 scrollleft=0 scrolltop=0><table border=0 cellspacing=0 cellpadding=0 class="A" align=right> <tr><td align=right> 3,341.80</td></tr> <tr><td align=right> 567.06</td></tr> <tr><td align=right> 104.00</td></tr> <tr><td align=right> 1,650.00</td></tr> <tr><td align=right> 68.66</td></tr> <tr><td align=right> 684.00</td></tr> </table></marquee></td></tr> </table> </body> </html>

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#59

大中小

使用道具

发表于 2003-3-17 18:02 资料个人空间主页短消息加为好友

抽屉式菜单

<HTML><HEAD><TITLE>Document Title</TITLE><style>A{color:blue; text-decoration:none}A:hover{color:red;text-decoration:underline;}A:link{text-decoration:none;}TD{font-family:宋体,helvetica; font-size:9pt}DIV.clTopMenu{position:absolute; width:97; height:150; clip:rect(0,101,14,0); visibility:hidden; z-index:31; }DIV.clTopMenuBottom{position:absolute; width:97; height:3; clip:rect(0,101,3,0); top:11; layer-background-color:#c0c000; background-color:#c0c000; z-index:2}DIV.clTopMenuText{position:absolute; width:88; left:5; top:15; font-family:宋体,helvetica; font-size:9pt; z-index:1;layer-background-color:#C8C8FF; background-color:#C8C8FF} </style><script>ie=document.all?1:0n=document.layers?1:0/***设置变量***/var numberOfMenus=1 //这个变量是定义有几个抽屉式菜单。0代表有一个，1代表有两个（需要在<body></body>中定义不同的菜单定义）var mwidth=97 //菜单文字的宽度var pxBetween=10 //两个或多个菜单的间隔（单位：像素）var fromLeft=20 //第一个菜单的左边边距（单位：像素）var fromTop=10 //菜单的上边距（单位：像素）var bgColor='#c0c000' //当鼠标没有移入菜单头时，菜单底的颜色var bgColorChangeTo='#c0c000'//当鼠标移入菜单头时，菜单底的颜色var imageHeight=13 //菜单头的高度（单位：像素）/***下面的程序如果你不是高手，请不要更改***///构造对象function makeNewsMenu(obj,nest){        nest=(!nest) ? '':'document.'+nest+'.'                                                this.css=(n) ? eval(nest+'document.'+obj):eval('document.all.'+obj+'.style')                this.scrollHeight=n?this.css.document.height:eval('document.all.'+obj+'.offsetHeight')        this.moveIt=b_moveIt;this.bgChange=b_bgChange;        this.slideUp=b_slideUp; this.slideDown=b_slideDown;        this.clipTo=b_clipTo;    this.obj = obj + "Object";         eval(this.obj + "=this")                }//对像的方法function b_moveIt(x,y){this.x=x; this.y=y; this.css.left=this.x; this.css.top=this.y}function b_bgChange(color){if(ie) this.css.backgroundColor=color; else this.css.bgColor=color}function b_clipTo(t,r,b,l){        if(n){this.css.clip.top=t; this.css.clip.right=r; this.css.clip.bottom=b; this.css.clip.left=l        }else this.css.clip="rect("+t+","+r+","+b+","+l+")";}function b_slideUp(ystop,moveby,speed,fn,wh){        if(!this.slideactive){                if(this.y>ystop){                        this.moveIt(this.x,this.y-5); eval(wh)                        setTimeout(this.obj+".slideUp("+ystop+","+moveby+","+speed+",'"+fn+"','"+wh+"')",speed)                }else{                        this.slideactive=false; this.moveIt(0,ystop); eval(fn)                }        }}function b_slideDown(ystop,moveby,speed,fn,wh){        if(!this.slideactive){                if(this.y<ystop){                        this.moveIt(this.x,this.y+5); eval(wh)                        setTimeout(this.obj+".slideDown("+ystop+","+moveby+","+speed+",'"+fn+"','"+wh+"')",speed)                }else{                        this.slideactive=false; this.moveIt(0,ystop); eval(fn)                }        }}//初始化，并建立一个跨浏览器的页function newsMenuInit(){        oTopMenu=new Array()        for(i=0;i<=numberOfMenus;i++){                oTopMenu[i]=new Array()                oTopMenu[i][0]=new makeNewsMenu('divTopMenu'+i)                oTopMenu[i][1]=new makeNewsMenu('divTopMenuBottom'+i,'divTopMenu'+i)                oTopMenu[i][2]=new makeNewsMenu('divTopMenuText'+i,'divTopMenu'+i)                oTopMenu[i][1].moveIt(0,imageHeight)                oTopMenu[i][0].clipTo(0,mwidth,imageHeight+3,0)                oTopMenu[i][0].moveIt(i*mwidth+fromLeft+(i*pxBetween),fromTop)                oTopMenu[i][0].css.visibility="visible"        }}//当点击后，移到菜单，就像抽屉一样打开菜单function topMenu(num){        if(oTopMenu[num][1].y==imageHeight) oTopMenu[num][1].slideDown(oTopMenu[num][2].scrollHeight+20,10,40,'oTopMenu['+num+'][0].clipTo(0,mwidth,oTopMenu['+num+'][1].y+3,0)','oTopMenu['+num+'][0].clipTo(0,mwidth,oTopMenu['+num+'][1].y+3,0)')        else if(oTopMenu[num][1].y==oTopMenu[num][2].scrollHeight+20) oTopMenu[num][1].slideUp(imageHeight,10,40,'oTopMenu['+num+'][0].clipTo(0,mwidth,oTopMenu['+num+'][1].y+3,0)','oTopMenu['+num+'][0].clipTo(0,mwidth,oTopMenu['+num+'][1].y+3,0)')}//当鼠标进入时，function menuOver(num){oTopMenu[num][1].bgChange(bgColorChangeTo)}function menuOut(num){oTopMenu[num][1].bgChange(bgColor)}//在页面载入的时候初始化菜单onload=newsMenuInit;</script></HEAD><BODY bgcolor=white>        <div id="divTopMenu0" class="clTopMenu"><a href="#" onmouseover="menuOver(0)" onmouseout="menuOut(0)" onclick="topMenu(0); if(ie)this.blur(); return false"><img src="tr1207-clickformenu.gif" width=97 alt="请单击以“展开/收起”菜单" border=0 align="top"></a>        <div id="divTopMenuText0" class="clTopMenuText"><center>                <a href="#" ONMOUSEOVER="window.status='菜单项一';return true;" ONMOUSEOUT="window.status='';return true;" onclick="window.focus()">【菜单项一】</a><br>                <a href="#" ONMOUSEOVER="window.status='菜单项二';return true;" ONMOUSEOUT="window.status='';return true;" onclick="window.focus()">【菜单项二】</a><br>                <a href="#" ONMOUSEOVER="window.status='菜单项三';return true;" ONMOUSEOUT="window.status='';return true;" onclick="window.focus()">【菜单项三】</a><br>                <a href="#" ONMOUSEOVER="window.status='菜单项四';return true;" ONMOUSEOUT="window.status='';return true;" onclick="window.focus()">【菜单项四】</a><br>                <a href="#" ONMOUSEOVER="window.status='菜单项五';return true;" ONMOUSEOUT="window.status='';return true;" onclick="window.focus()">【菜单项五】</a><br>                <a href="#" ONMOUSEOVER="window.status='菜单项六';return true;" ONMOUSEOUT="window.status='';return true;" onclick="window.focus()">【菜单项六】</a><br>                <a href="http://haoel.yeah.net/" target="_blank" ONMOUSEOVER="window.status='耗子网络编程站';return true;" ONMOUSEOUT="window.status='';return true;" onclick="window.focus()">【耗子编程站】</a></center>        </div>        <div id="divTopMenuBottom0" class="clTopMenuBottom"></div>        </div>        <div id="divTopMenu1" class="clTopMenu"><a href="#" onmouseover="menuOver(1)" onmouseout="menuOut(1)" onclick="topMenu(1); if(ie)this.blur(); return false"><img src="tr1207-clickformenu.gif" width=97 alt="请单击以“展开/收起”菜单" border=0 align="top"></a>        <div id="divTopMenuText1" class="clTopMenuText"><center>                <a href="#" ONMOUSEOVER="window.status='菜单项七';return true;" ONMOUSEOUT="window.status='';return true;" onclick="window.focus()">【菜单项七】</a><br>                <a href="#" ONMOUSEOVER="window.status='菜单项八';return true;" ONMOUSEOUT="window.status='';return true;" onclick="window.focus()">【菜单项八】</a><br>                <a href="#" ONMOUSEOVER="window.status='菜单项九';return true;" ONMOUSEOUT="window.status='';return true;" onclick="window.focus()">【菜单项九】</a><br>                <a href="#" ONMOUSEOVER="window.status='菜单项十';return true;" ONMOUSEOUT="window.status='';return true;" onclick="window.focus()">【菜单项十】</a><br>                <a href="http://haoel.yeah.net/" target="_blank" ONMOUSEOVER="window.status='耗子网络编程站';return true;" ONMOUSEOUT="window.status='';return true;" onclick="window.focus()">【耗子编程站】</a></center>        </div>        <div id="divTopMenuBottom1" class="clTopMenuBottom"></div>        </div></BODY></HTML>

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net

卫星星

小恐龙

UID 567
精华 1
积分 234
帖子 129
威望 159
阅读权限 30
注册 2003-2-26
来自独立师之家
状态离线

#60

大中小

使用道具

发表于 2003-3-17 18:03 资料个人空间主页短消息加为好友

在ShowModeldialog中实现编辑功能

提示：您可以先修改部分代码再运行

小兵的天堂，独立师 http://www.dulishi.net