WEB应用中一些不常用效果－－－－和大家共享

19. 检查一段字符串是否全由数字组成   <script language="javascript"><!--   function checkNum(str){return str.match(/\D/)==null}   alert(checkNum("1232142141"))   alert(checkNum("123214214a1"))   // --></script>     20. 获得一个窗口的大小   document.body.clientWidth,document.body.clientHeight     21. 怎么判断是否是字符   if (/[^\x00-\xff]/g.test(s)) alert("含有汉字");   else alert("全是字符");     22.TEXTAREA自适应文字行数的多少   <textarea rows=1 name=s1 cols=27 onpropertychange="this.style.posHeight=this.scrollHeight">   </textarea>     23. 日期减去天数等于第二个日期   <script language=javascript>   function cc(dd,dadd)   {   //可以加上错误处理   var a = new Date(dd)   a = a.valueOf()   a = a - dadd * 24 * 60 * 60 * 1000   a = new Date(a)   alert(a.getFullYear() + "年" + (a.getMonth() + 1) + "月" + a.getDate() + "日")   }   cc("12/23/2002",2)   </script>     24. 选择了哪一个Radio   <HTML><script language="vbscript">   function checkme()   for each ob in radio1   if ob.checked then window.alert ob.value   next   end function   </script><BODY>   <INPUT name="radio1" type="radio" value="style" checked>Style   <INPUT name="radio1" type="radio" value="barcode">Barcode   <INPUT type="button" value="check" onclick="checkme()">   </BODY></HTML>     25.获得本页url的request.servervariables("")集合   Response.Write "<TABLE border=1><!-- Table Header --><TR><TD><B>Variables</B></TD><TD><B>value</B></TD></TR>"   for each ob in Request.ServerVariables   Response.Write "<TR><TD>"&ob&"</TD><TD>"&Request.ServerVariables(ob)&"</TD></TR>"   next   Response.Write "</TABLE>"     26.   本机ip<%=request.servervariables("remote_addr")%>   服务器名<%=Request.ServerVariables("SERVER_NAME")%>   服务器IP<%=Request.ServerVariables("LOCAL_ADDR")%>   服务器端口<%=Request.ServerVariables("SERVER_PORT")%>   服务器时间<%=now%>   IIS版本<%=Request.ServerVariables"SERVER_SOFTWARE")%>   脚本超时时间<%=Server.ScriptTimeout%>   本文件路径<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>   服务器CPU数量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>   服务器解译引擎<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>   服务器操作系统<%=Request.ServerVariables("OS")%>     27.ENTER键可以让光标移到下一个输入框   <input onkeydown="if(event.keyCode==13)event.keyCode=9">     28. 检测某个网站的链接速度：   把如下代码加入<body>区域中:   <script language=javascript>   tim=1   setInterval("tim++",100)   b=1     var autourl=new Array()   autourl[1]="www.njcatv.net"   autourl[2]="javacool.3322.net"   autourl[3]="www.sina.com.cn"   autourl[4]="www.nuaa.edu.cn"   autourl[5]="www.cctv.com"     function butt(){   document.write("<form name=autof>")   for(var i=1;i<autourl.length;i++)   document.write("<input type=text name=txt"+i+" size=10 value=测试中……> =》<input type=text name=url"+i+" size=40> =》<input type=button value=GO onclick=window.open(this.form.url"+i+".value)><br>")   document.write("<input type=submit value=刷新></form>")   }   butt()   function auto(url){   document.forms[0]["url"+b].value=url   if(tim>200)   {document.forms[0]["txt"+b].value="链接超时"}   else   {document.forms[0]["txt"+b].value="时间"+tim/10+"秒"}   b++   }   function run(){for(var i=1;i<autourl.length;i++)document.write("<img src=http://"+autourl+"/"+Math.random()+" width=1 height=1 onerror=auto('http://";+autourl+"')>")}   run()</script>     29. 各种样式的光标   auto ：标准光标   default ：标准箭头   hand ：手形光标   wait ：等待光标   text ：I形光标   vertical-text ：水平I形光标   no-drop ：不可拖动光标   not-allowed ：无效光标   help ：?帮助光标   all-scroll ：三角方向标   move ：移动标   crosshair ：十字标   e-resize   n-resize   nw-resize   w-resize   s-resize   se-resize   sw-resize