CSDN首页 空间 新闻 论坛 Blog 下载 读书 网摘 搜索 .NET Java 视频 接项目 求职 在线学习 买书 程序员 通知
不看会后悔的Windows XP之经验谈 简单快捷DIY实用家庭影院
CSDN社区
搜索 收藏 打印 关闭
CSDN社区 >  Web 开发 >  JavaScript

【200分】收集经典实用的javascript程序。算法、特效、功能不限。原创更佳,欢迎大家交流~~~

楼主LCKKING(黑旋风)2005-04-04 19:33:42 在 Web 开发 / JavaScript 提问

不要担心自己写的程序不起眼,说不定对别人有帮助,大家踊跃发帖吧~~  
  记得标注释功能!!谢谢!  
  抛砖引玉一下:  
  【功能:得到表中每个单元格的值】  
  <!DOCTYPE   HTML   PUBLIC   "-//W3C//DTD   HTML   4.01   Transitional//EN"  
  "http://www.w3.org/TR/html4/loose.dtd">  
  <html>  
  <head>  
  <meta   http-equiv="Content-Type"   content="text/html;   charset=gb2312">  
  <title>无标题文档</title>  
  </head>  
  <style>  
  .clik{background-color:#0000FF;}  
  </style>  
  <script   language="JavaScript"   type="text/JavaScript">  
  var   whoclick=""  
  function   td_click(obj){  
    if(whoclick!=""){  
        whoclick.className="";  
    }  
    obj.className="clik";  
    whoclick=obj;  
    alert("这个TD的内容是:"+obj.innerText)  
  }  
  function   aa(tbObj)  
    {  
        for(i=0;i<tbObj.rows.length;i++)  
            for(j=0;j<tbObj.rows[i].cells.length;j++)  
        alert("第"+(i+1)+"行,第"+(j+1)+"列====="+tbObj.rows[i].cells[j].innerText)  
    }  
  </script>  
   
  <body>  
  <table   id="test"   width="200"   border="0"   cellspacing="0"   cellpadding="0">  
      <tr>  
          <td   onClick="td_click(this)">1</td>  
          <td     onClick="td_click(this)">2</td>  
          <td     onClick="td_click(this)">3</td>  
      </tr>  
      <tr>  
          <td     onClick="td_click(this)">4</td>  
          <td     onClick="td_click(this)">5</td>  
          <td     onClick="td_click(this)">6</td>  
      </tr>  
      <tr>  
          <td     onClick="td_click(this)">7</td>  
          <td     onClick="td_click(this)">8</td>  
          <td     onClick="td_click(this)">9</td>  
      </tr>  
  </table>  
  <input   type="button"   onClick="aa(test)"   value="依次输出值">  
  </body>  
  </html>  
  问题点数:200、回复次数:67Top

1 楼faisun(暖阳)回复于 2005-04-04 19:57:22 得分 6

//   js:把URL变量读取到   http_get_vars   数组中  
  var   http_get_vars   =   new   Array();  
  var   urlsearch=this.location.search;  
  var   urlsearch=urlsearch.replace("?","");  
  var   reqs=urlsearch.split("&");  
  for(i=0;i<reqs.length;i++){  
        req=reqs[i].split("=");  
        eval("http_get_vars['"+req[0]+"']='"+req[1]+"';");  
  }Top

2 楼mfkiqpl(CPU)回复于 2005-04-04 20:18:38 得分 2

关注Top

3 楼lzhm(http://lzhm.net)回复于 2005-04-04 21:54:40 得分 6

特别基础的东东  
  <html>  
   
  <head>  
  <meta   http-equiv="Content-Type"   content="text/html;   charset=gb2312">  
  <title>显示拖动层例子</title>  
  </head>  
   
  <body>  
   
  <input   type=button   value="显示层"   style="position:absolute;   left:15;   top:18"   onclick="window.div1.style.display=''">  
  <div   id   =   div1   style="position:absolute;z-index:1;display:none;width:148px;height=129px;background-color:#EEEEEE;border:1px   solid   black;   left:90px;   top:41px">  
  <table   border="1"   width="100%"   id="table1"   cellspacing="0"   cellpadding="0"   style="border-collapse:   collapse"   bordercolorlight="#808080"   bordercolordark="#808080"   height="100%">  
  <tr>  
  <td   style="font-size:9pt;"   bgcolor="#C0C0C0"   height="19"   id   =divTitle   style="cursor:default;"   width="94%">标题栏  
  可拖动</td>  
  <td   onclick="div1.style.display='none'"     style="cursor:default"   bgcolor="#808080"   height="19"   style="cursor:default;"   width="5%"   bordercolor="#000000">  
  <font   color="#FFFFFF">×</font></td>  
  </tr>  
  <tr>  
  <td   align=center   colspan="2">内容  
  </td>  
  </tr>  
  </table>  
  </div>  
  <script   language="javascript">  
  <!--  
  var   mX,mY,oX,oY;  
  window.divTitle.onmousedown=function(){  
  mX   =   parseInt(event.x,10);  
  mY   =   parseInt(event.y,10);  
  oX   =   parseInt(div1.style.left,10);  
  oY   =   parseInt(div1.style.top,10);  
   
  window.divTitle.setCapture();  
  window.divTitle.onmousemove=function(){  
  div1.style.left=oX   +   (parseInt(event.x,10)   -mX);  
  div1.style.top=oY   +   (parseInt(event.y,10)-mY);  
  };  
  };  
  window.divTitle.onmouseup   =   function(){  
  divTitle.releaseCapture();  
  window.divTitle.onmousemove=null;  
  }  
  //-->  
  </script>  
  </body>  
   
  </html>Top

4 楼mayi545()回复于 2005-04-04 22:10:24 得分 6

MSN窗口提示  
  调用方法    
  javascript:getMsg("&nbsp;网安提醒您","&nbsp;&nbsp;<a   style=cursor:hand   href=#   onclick=\"javascript:open('messanger.asp','','width=500,height=400')\">消息!</a>");</script>  
   
   
   
   
   
  document.writeln("<div   id=\"eMeng\"   style=\"BORDER-RIGHT:#455690   1px   solid;   BORDER-TOP:#a6b4cf   1px   solid;   Z-INDEX:99999;   LEFT:0px;   VISIBILITY:hidden;   BORDER-LEFT:#a6b4cf   1px   solid;   WIDTH:180px;   BORDER-BOTTOM:#455690   1px   solid;   POSITION:absolute;   TOP:0px;   BACKGROUND-COLOR:#c9d3f3\">");  
  document.writeln(" <table   width=\"100%\"   border=0   cellpadding=0   cellspacing=0>");  
  document.writeln(" <tr   class=a1>");  
  document.writeln(" <td   height=\"23\"   valign=\"middle\"><span   id=\"MsgTitle\"></span></td>");  
  document.writeln(" <td   valign=\"middle\"   align=\"right\"   class=a2>");  
  document.writeln(" <img   src=\"img/msgClose.jpg\"   hspace=\"3\"   style=\"CURSOR:pointer\"   onclick=\"closeDiv()\"   title=\"关闭\"></td>");  
  document.writeln(" </tr>");  
  document.writeln(" <tr>");  
  document.writeln(" <td   colspan=\"2\"   height=60   class=a3>");  
  document.writeln(" <div>");  
  document.writeln(" <span   id=\"MsgCenter\"></span></div>");  
  document.writeln(" </td>");  
  document.writeln(" </tr>");  
  document.writeln(" </table>");  
  document.writeln("</div>");  
   
  var   divTop,divLeft,divWidth,divHeight,docHeight,docWidth,objTimer,i   =   0;  
  function   getMsg(MM1,MM2)  
  {  
  try{  
  MsgTitle.innerHTML=MM1;//小窗口标题。  
  MsgCenter.innerHTML=MM2;//小窗口内容。  
   
  divTop   =   parseInt(document.getElementById("eMeng").style.top,10)  
  divLeft   =   parseInt(document.getElementById("eMeng").style.left,10)  
  divHeight   =   parseInt(document.getElementById("eMeng").offsetHeight,10)  
  divWidth   =   parseInt(document.getElementById("eMeng").offsetWidth,10)  
  docWidth   =   document.body.clientWidth;  
  docHeight   =   document.body.clientHeight;  
  document.getElementById("eMeng").style.top   =   parseInt(document.body.scrollTop,10)   +   docHeight   +   10;//     divHeight  
  document.getElementById("eMeng").style.left   =   parseInt(document.body.scrollLeft,10)   +   docWidth   -   divWidth  
  document.getElementById("eMeng").style.visibility="visible"  
  objTimer   =   window.setInterval("moveDiv()",10)  
  }  
  catch(e){}  
  }  
   
  function   resizeDiv()  
  {  
  i+=1  
  if(i>1288)   closeDiv()  
  try{  
  divHeight   =   parseInt(document.getElementById("eMeng").offsetHeight,10)  
  divWidth   =   parseInt(document.getElementById("eMeng").offsetWidth,10)  
  docWidth   =   document.body.clientWidth;  
  docHeight   =   document.body.clientHeight;  
  document.getElementById("eMeng").style.top   =   docHeight   -   divHeight   +   parseInt(document.body.scrollTop,10)  
  document.getElementById("eMeng").style.left   =   docWidth   -   divWidth   +   parseInt(document.body.scrollLeft,10)  
  }  
  catch(e){}  
  }  
   
  function   moveDiv()  
  {  
  try  
  {  
  if(parseInt(document.getElementById("eMeng").style.top,10)   <=   (docHeight   -   divHeight   +   parseInt(document.body.scrollTop,10)))  
  {  
  window.clearInterval(objTimer)  
  objTimer   =   window.setInterval("resizeDiv()",1)  
  }  
  divTop   =   parseInt(document.getElementById("eMeng").style.top,10)  
  document.getElementById("eMeng").style.top   =   divTop   -   1  
  }  
  catch(e){}  
  }  
  function   closeDiv()  
  {  
  document.getElementById('eMeng').style.visibility='hidden';  
  if(objTimer)   window.clearInterval(objTimer)  
  }  
   
  setTimeout('closeDiv()',10000);//几秒后自动关闭Top

5 楼TSD(智之选,商欲达--智商购物系统zhishop.com)回复于 2005-04-04 22:31:00 得分 6

收集的一个自定义提示,支持HTML  
   
   
  //***********默认设置定义.*********************  
  var   tPopWait=50; //停留tWait豪秒后显示提示。  
  var   tPopShow=6000; //显示tShow豪秒后关闭提示  
  var   showPopStep=20;  
  var   popOpacity=95;  
  var   tfontcolor="#000000";  
  var   tbgcolor="#ffffe1";  
  var   tbordercolor="#666666";  
   
  //***************内部变量定义*****************  
  var   sPop=null,curShow=null,tFadeOut=null,tFadeIn=null,tFadeWaiting=null;  
   
  document.write("<style   type='text/css'id='defaultPopStyle'>");  
  document.write(".cPopText   {     background-color:   "   +   tbgcolor   +   ";color:"   +   tfontcolor   +   ";   border:   1px   "   +   tbordercolor   +   "   solid;font-color:   font-size:   12px;   padding-right:   4px;   padding-left:   4px;   height:   20px;   padding-top:   2px;   padding-bottom:   2px;   filter:   Alpha(Opacity=0)}");  
  document.write("</style>");  
  document.write("<div   id='MyaltLayer'   style='position:absolute;z-index:1000;'   class='cPopText'></div>");  
   
  function   ShowMyalt()  
  {  
      var   o=event.srcElement;  
      MouseX=event.x;  
      MouseY=event.y;  
      if(o.alt!=null   &&   o.alt!=""){o.dypop=o.alt;o.alt=""};  
      //if(o.title!=null   &&   o.title!=""){o.dypop=o.title;o.title=""};  
      if(o.dypop!=sPop)  
      {  
          sPop=o.dypop;  
          clearTimeout(curShow);  
          clearTimeout(tFadeOut);  
          clearTimeout(tFadeIn);  
          clearTimeout(tFadeWaiting);      
          if(sPop==null   ||   sPop=="")  
          {  
              MyaltLayer.innerHTML="";  
              MyaltLayer.style.filter="Alpha()";  
              MyaltLayer.filters.Alpha.opacity=0;      
          }  
          else  
          {  
              if(o.dyclass!=null)   popStyle=o.dyclass    
              else   popStyle="cPopText";  
              curShow=setTimeout("showIt()",tPopWait);  
          }  
      }  
  }  
   
  function   showIt()  
  {  
      MyaltLayer.className=popStyle;  
      MyaltLayer.innerHTML=sPop;  
      popWidth=MyaltLayer.clientWidth;  
      popHeight=MyaltLayer.clientHeight;  
      if(MouseX+12+popWidth>document.body.clientWidth)   popLeftAdjust=-popWidth-24  
          else   popLeftAdjust=0;  
      if(MouseY+12+popHeight>document.body.clientHeight)   popTopAdjust=-popHeight-24  
          else   popTopAdjust=0;  
      MyaltLayer.style.left=MouseX+12+document.body.scrollLeft+popLeftAdjust;  
      MyaltLayer.style.top=MouseY+12+document.body.scrollTop+popTopAdjust;  
      MyaltLayer.style.filter="Alpha(Opacity=0)";  
      fadeOut();  
  }  
   
  function   fadeOut(){  
      if(MyaltLayer.filters.Alpha.opacity<popOpacity)  
      {  
          MyaltLayer.filters.Alpha.opacity+=showPopStep;  
          tFadeOut=setTimeout("fadeOut()",1);  
      }  
      else  
      {  
          MyaltLayer.filters.Alpha.opacity=popOpacity;  
          tFadeWaiting=setTimeout("fadeIn()",tPopShow);  
      }  
  }  
   
  function   fadeIn()  
  {  
      if(MyaltLayer.filters.Alpha.opacity>0)  
      {  
          MyaltLayer.filters.Alpha.opacity-=1;  
          tFadeIn=setTimeout("fadeIn()",1);  
      }  
  }  
   
  document.onmouseover=ShowMyalt;  
   
   
   
  使用示例:  
   
  <a   href="http://www.xyz.com"   alt="<font   color=red>this   is   a   test</font>">test</a>  
  Top

6 楼TSD(智之选,商欲达--智商购物系统zhishop.com)回复于 2005-04-04 22:34:45 得分 6

//去除字符串两边空格  
  String.prototype.trim=function(){return   this.replace(/(^\s*)|(\s*$)/g,"");}  
   
  使用示例:  
   
  document.frmedit.txtcont.value.trim();Top

7 楼meizz(梅花雪)回复于 2005-04-05 00:17:34 得分 6

一个非常经典的计算24点的代码  
  <SCRIPT   LANGUAGE="JavaScript">  
  <!--  
  (s=String.prototype).r=s.replace;  
  q   :  
  for(i   in   a=[1,2,7,7])  
  {  
      for(j   in   a)  
      {  
          for(k   in   a)  
          {  
              for(l   in   a)  
              {  
                  if(i!=j&&i!=k&&i!=l&&j!=k&&j!=l&&k!=l)  
                  {  
                      for(m   in   b=["(x+y)","(x-y)","(x*y)","(x/y)","(y-x)","(y/x)"])  
                      {  
                          for(n   in   b)  
                          {  
                              for(o   in   b)  
                              {  
                                  if((d=Math.abs)(eval(s=b[o].r(x="x",b[n].r(x,p=b[m].r(x,a[i]).r(y="y",a[j])).r(y,g=a[k])).r(y,h=a[l]))-24)<0.01||d(eval(s=b[n].r(x,p).r(y,b[o].r(x,g).r(y,h)))-24)<0.01)  
                                  {  
                                      alert(s+"=24");  
                                      break   q;  
                                  }  
                              }  
                          }  
                      }  
                  }  
              }  
          }  
      }  
  }  
  alert("ok");  
  //-->  
  </SCRIPT>Top

8 楼meizz(梅花雪)回复于 2005-04-05 00:20:00 得分 6

//数组的洗牌算法  
  var   array1   =   [];  
  for(var   i=0;   i<54;   i++)  
  {  
      array1[i]   =   i;  
  }  
  Array.prototype.Random=function()  
  {  
      for(var   i=0;   i<this.length;   i++)  
      {  
          var   rnd   =   Math.floor(Math.random()*this.length)  
          var   swap=   this[i];  
          this[i]   =   this[rnd];  
          this[rnd]=swap;  
      }  
      return   this;  
  }  
  alert(array1.Random());Top

9 楼meizz(梅花雪)回复于 2005-04-05 00:21:01 得分 6

字符型数组的重复项去除算法  
  Array.prototype.unique   =   function()  
  {  
      var   a   =   {};   for(var   i=0;   i<this.length;   i++)  
      {  
          if(typeof   a[this[i]]   ==   "undefined")  
              a[this[i]]   =   1;  
      }  
      this.length   =   0;  
      for(var   i   in   a)  
          this[a[i]]   =   a[i];  
      return   this;  
  }Top

10 楼scoutlin(挖摸追挖摸追挖摸追..)回复于 2005-04-05 00:31:40 得分 2

mkTop

11 楼ygjwjj(塔克拉玛干---胡杨林)回复于 2005-04-05 08:30:14 得分 6

//获取当前系统字体和排版样式  
   
   
  <!DOCTYPE   HTML   PUBLIC   "-//W3C//DTD   HTML   4.0   Transitional//EN">  
  <HTML>  
  <HEAD>  
  <TITLE>   获取当前系统字体和排版样式   </TITLE>  
   
  <SCRIPT   LANGUAGE="JavaScript">  
  <!--  
  function   getSystemFonts(){  
          var   a=dlgHelper.fonts.count;  
          var   fArray   =   new   Array();  
          var   oDropDown   =   document.all.fonts;  
          for   (i   =   1;i   <   dlgHelper.fonts.count;i++){    
                  fArray[i]   =   dlgHelper.fonts(i);  
                  var   aOptions   =   oDropDown.options;          
                  var   oOption   =   document.createElement("OPTION");  
                  aOptions.add(oOption);          
                  oOption.text   =   fArray[i];  
                  oOption.Value   =   i;  
          }    
  }  
   
  function   getBlockFormats(){  
          var   a=dlgHelper.blockFormats.count;  
          var   fArray   =   new   Array();  
          var   oDropDown   =   document.all.formats;  
          oDropDown.setAttribute("id","FormatList");  
          for   (i   =   1;i   <   dlgHelper.blockFormats.count;i++)  
          {    
                  fArray[i]   =   dlgHelper.blockFormats(i);  
                  var   aOptions   =   oDropDown.options;          
                  var   oOption   =   document.createElement("OPTION");  
                  aOptions.add(oOption);          
                  oOption.text   =   fArray[i];  
                  oOption.Value   =   i;  
          }    
  }  
  //-->  
  </SCRIPT>  
  </HEAD>  
   
  <BODY   onload="getSystemFonts();getBlockFormats()">  
  系统字体和排版样式   SystemFont   and   BlockFormats<BR>  
  <SELECT   NAME="fonts"   onchange="document.body.style.fontFamily   =   this.options[this.selectedIndex].text">  
  </SELECT>  
    <SELECT   NAME="formats"   onchange="document.body.style.fontFamily   =   this.options[this.selectedIndex].text">  
  </SELECT>  
  <OBJECT   ID=dlgHelper   CLASSID="clsid:3050f819-98b5-11cf-bb82-00aa00bdce0b"   WIDTH="0px"   HEIGHT="0px"></OBJECT>  
  </BODY>  
  </HTML>Top

12 楼FBug(花知)回复于 2005-04-05 08:43:15 得分 2

<script   language="javascript">  
        document.write("Hello,World!");  
  </script>Top

13 楼cuixiping(无心●愚公)回复于 2005-04-05 10:59:08 得分 2

把   www.javascript.com   全站下载下来吧,楼主。Top

14 楼adLockReadonly(马甲)回复于 2005-04-05 12:54:35 得分 6

http://community.csdn.net/Expert/TopicView.asp?id=3863129Top

15 楼JK_10000(JK)回复于 2005-04-05 14:49:50 得分 6

洗牌算法(JK):  
  部分代码来自:  
  http://community.csdn.net/Expert/topic/3858/3858964.xml?temp=.5909693   中fason的回贴。  
   
   
  var   array1=new   Array(100);  
   
  Array.prototype.Random=function()     {  
  for(var   i=0;i<this.length;i++){  
  var   rnd=Math.floor(Math.random()*(i+0.99999))  
  this[i]=this[rnd];  
  this[rnd]=i;  
  }  
  return   this;  
  }  
   
  document.write(array1.Random())  
   
   
   
  另注:  
  meizz(梅花雪)的洗牌算法有个小问题:  
  考虑漏了Math.random()为1的情况^_^Top

16 楼onlytiancai(谁染枫林醉)回复于 2005-04-05 16:54:14 得分 2

dingTop

17 楼yzujjcb()回复于 2005-04-07 14:02:33 得分 2

haoTop

18 楼keaizhong(可爱钟)(温州的PHPER)(19801010)回复于 2005-04-07 16:47:14 得分 6

http://blog.csdn.net/kingerq/category/71981.aspx  
  http://blog.csdn.net/kingerq/category/50188.aspx  
  这里两个够多了吧。哈哈!!Top

19 楼LCKKING(黑旋风)回复于 2005-04-07 20:29:00 得分 0

不错!不晓得有没有更酷一些的呢Top

20 楼IDOICAN(酷酷す旋风)回复于 2005-04-10 14:38:31 得分 2

好帖!markTop

21 楼chzxq(毛毛鼠)回复于 2005-04-11 11:44:29 得分 2

mkTop

22 楼677(陆柒柒)回复于 2005-04-11 12:06:23 得分 2

..Top

23 楼LCKKING(黑旋风)回复于 2005-05-24 11:57:37 得分 0

继续收集ing...Top

24 楼bybella(芭芭拉)回复于 2005-05-24 13:20:05 得分 2

顶!Top

25 楼wtogether(wtogether)回复于 2005-05-24 13:45:25 得分 5

http://www.macchiato.com/unicode/convert.htmlTop

26 楼hcom(迷失在爪哇世界中)回复于 2005-05-25 13:07:26 得分 2

upTop

27 楼sandtable3000()回复于 2005-05-25 13:12:49 得分 2

markTop

28 楼underone(再看抽你小丫的)回复于 2005-05-25 14:01:32 得分 6

人民币小写转换大写函数  
  Function   Up(Dxs)   'as   String  
      dim   Sw     'as   integer  
      dim   SzP   'as   integer  
      dim   TempStr   'as   String  
      dim   TempA   'as   String  
      dim   i   'as   integer  
      dim   DXStr  
       
      Sw   =   Len(Trim(Dxs))  
      SzP   =   InStr(1,   Trim(Dxs),   ".")  
      If   SzP   =   0   Then  
        For   i   =   1   To   Sw  
                TempStr   =   Right(Trim(Dxs),   i)  
                      TempStr   =   Left(TempStr,   1)  
                      TempStr   =   Converts(TempStr)  
                      Select   Case   i  
                              Case   1  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "元"  
                                            Else  
                                            TempStr   =   TempStr   +   "元"  
                                      End   If  
                              Case   2  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "零"  
                                      Else  
                                            TempStr   =   TempStr   +   "拾"  
                                      End   If  
                              Case   3  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "零"  
                                            Else  
                                            TempStr   =   TempStr   +   "佰"  
                                      End   If  
                              Case   4  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "零"  
                                            Else  
                                            TempStr   =   TempStr   +   "仟"  
                                      End   If  
                              Case   5  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "万"  
                                            Else  
                                            TempStr   =   TempStr   +   "万"  
                                      End   If  
                              Case   6  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "零"  
                                            Else  
                                            TempStr   =   TempStr   +   "拾"  
                                      End   If  
                              Case   7  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "零"  
                                            Else  
                                            TempStr   =   TempStr   +   "佰"  
                                      End   If  
                              Case   8  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "零"  
                                            Else  
                                            TempStr   =   TempStr   +   "仟"  
                                      End   If  
                              Case   9  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "亿"  
                                            Else  
                                            TempStr   =   TempStr   +   "亿"  
                                      End   If  
                        End   Select  
                TempA   =   Left(Trim(DXStr),   1)  
                If   TempStr   =   "零"   Then  
                      Select   Case   TempA  
                          Case   "零"  
                                  DXStr   =   DXStr  
                          Case   "元"  
                                  DXStr   =   DXStr  
                          Case   "万"  
                                  DXStr   =   DXStr  
                          Case   "亿"  
                                  DXStr   =   DXStr  
                          Case   Else  
                                  DXStr   =   TempStr   +   DXStr  
                      End   Select  
                    Else  
                        DXStr   =   TempStr   +   DXStr  
                End   If  
                Next  
          Else  
              For   i   =   1   To   SzP   -   1  
                        TempStr   =   Right(Trim(Dxs),   i   +   (Sw   -   SzP   +   1))  
                        TempStr   =   Left(TempStr,   1)  
                        TempStr   =   Converts(TempStr)  
                        Select   Case   i  
                              Case   1  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "元"  
                                            Else  
                                            TempStr   =   TempStr   +   "元"  
                                      End   If  
                              Case   2  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "零"  
                                      Else  
                                            TempStr   =   TempStr   +   "拾"  
                                      End   If  
                              Case   3  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "零"  
                                            Else  
                                            TempStr   =   TempStr   +   "佰"  
                                      End   If  
                              Case   4  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "零"  
                                            Else  
                                            TempStr   =   TempStr   +   "仟"  
                                      End   If  
                              Case   5  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "万"  
                                            Else  
                                            TempStr   =   TempStr   +   "万"  
                                      End   If  
                              Case   6  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "零"  
                                            Else  
                                            TempStr   =   TempStr   +   "拾"  
                                      End   If  
                              Case   7  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "零"  
                                            Else  
                                            TempStr   =   TempStr   +   "佰"  
                                      End   If  
                              Case   8  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "零"  
                                            Else  
                                            TempStr   =   TempStr   +   "仟"  
                                      End   If  
                              Case   9  
                                      If   TempStr   =   "零"   Then  
                                            TempStr   =   "亿"  
                                            Else  
                                            TempStr   =   TempStr   +   "亿"  
                                      End   If  
                              Case   Else  
                                    '超过999999999时自动删除  
                                    TempStr   =   ""  
                        End   Select  
                      TempA   =   Left(Trim(DXStr),   1)  
                If   TempStr   =   "零"   Then  
                      Select   Case   TempA  
                          Case   "零"  
                                  DXStr   =   DXStr  
                          Case   "元"  
                                  DXStr   =   DXStr  
                          Case   "万"  
                                  DXStr   =   DXStr  
                          Case   "亿"  
                                  DXStr   =   DXStr  
                          Case   Else  
                                  DXStr   =   TempStr   +   DXStr  
                      End   Select  
                    Else  
                        DXStr   =   TempStr   +   DXStr  
                End   If  
                Next  
        '计算小数  
                  XStr   =   Right(Trim(Dxs),   Sw   -   SzP)  
                    For   i   =   1   To   Sw   -   SzP  
                        TempStr   =   Left(XStr,   i)  
                        TempStr   =   Right(TempStr,   1)  
                        TempStr   =   Converts(TempStr)  
                        Select   Case   i  
                              Case   1  
                                If   TempStr   =   "零"   Then  
                                        TempStr   =   ""  
                                      Else  
                                        TempStr   =   TempStr   +   "角"  
                                End   If  
                              Case   2  
                                If   TempStr   =   "零"   Then  
                                        TempStr   =   ""  
                                      Else  
                                        TempStr   =   TempStr   +   "分"  
                                      End   If  
                              Case   Else  
                                  '超过两位小数时,自动删除  
                                  TempStr   =   ""  
                        End   Select  
                      DxstrX   =   DxstrX   +   TempStr  
                Next  
                DXStr   =   DXStr   +   DxstrX  
      End   If  
            Up   =   DXStr   &   "整"  
  End   Function  
   
  Function   Converts(NumStr)  
            Select   Case   NumStr  
                  Case   0  
                      Converts   =   "零"  
                  Case   1  
          Converts   =   "壹"  
                  Case   2  
                      Converts   =   "贰"  
                  Case   3  
                      Converts   =   "叁"  
                  Case   4  
                      Converts   =   "肆"  
                  Case   5  
                      Converts   =   "伍"  
                  Case   6  
                        Converts   =   "陆"  
                  Case   7  
                        Converts   =   "柒"  
                  Case   8  
                        Converts   =   "捌"  
                  Case   9  
                        Converts   =   "玖"  
            End   Select  
  End   FunctionTop

29 楼LCKKING(黑旋风)回复于 2005-07-06 14:16:06 得分 0

javascript虽然是脚本语言,但是博大精深,大家多多奉献奉献拉~~  
  继续收集ing。。。。。。。。~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Top

30 楼wxylvmnn(城隍庙三当家的)回复于 2005-07-06 14:33:20 得分 2

<script>  
  for   (var   i=0;i<999999999;i++)  
  alert("哈哈")  
  </script>Top

31 楼ttyp(@http://www.cnblogs.com/ttyp/)回复于 2005-07-06 14:41:14 得分 2

http://www.cnblogs.com/ttyp/Top

32 楼shangxinyu123(龙)回复于 2005-07-06 17:12:46 得分 2

markTop

33 楼deiphi(面壁思过)回复于 2005-07-07 01:29:17 得分 2

markTop

34 楼xxgu(上柳梢)回复于 2005-07-07 08:34:18 得分 2

收藏Top

35 楼chenafang(阿芳)回复于 2005-07-07 09:50:36 得分 1

学习   收藏Top

36 楼kv4000(ABCD(A Brave Csharp Developer))回复于 2005-07-07 10:18:12 得分 2

借宝地一问:能用js实现框架的功能吗?(不是整个浏览窗口框架的那种)  
   
  原帖地址:http://community.csdn.net/Expert/topic/4118/4118200.xml?temp=.8268396     请教这里高手Top

37 楼wzhiyuan(我是谁)回复于 2005-07-07 15:13:32 得分 2

markTop

38 楼MaxIE(MaxIE)回复于 2005-07-07 15:35:18 得分 2

markTop

39 楼liuqinglq(白菜)回复于 2005-07-07 17:09:28 得分 2

收藏!Top

40 楼friendlyFour(web开发四人组)回复于 2005-07-07 17:24:19 得分 6

<script>  
  var   Array1=new   Array(3,15,8,9,29,0,1,11,-1,999);  
  Array1.sort(function(a,b){return   a-b});  
  alert("min   value:"+Array1[0]+"\r\nmax   value:"+Array1[Array1.length-1]);  
  </script>Top

41 楼chenafang(阿芳)回复于 2005-07-07 17:26:04 得分 2

shou   cangTop

42 楼xiao_huan(小欢)回复于 2005-07-07 17:30:55 得分 2

http://www.baron.com.cn/javascript/Top

43 楼wzhiyuan(我是谁)回复于 2005-07-08 14:52:59 得分 6

超出长度的内容用省略号表示,鼠标提示(title)则显示全部内容.  
  <style>  
  .ellipsis_div{  
    overflow:hidden;  
    text-overflow:ellipsis;  
    white-space:nowrap;  
    wzy:expression(void(this.title=this.innerText));  
  }  
  </style>  
  <div   class=ellipsis_div    
   
  style="width:120px;background-color:#cc88ff;">someongtextsomeo  
   
  ngtext</div>  
  <div   class=ellipsis_div    
   
  style="width:110px;background-color:#dddddd;">some   long    
   
  text</div>  
  <style>  
  Top

44 楼RoninBlade(RoninBlade)回复于 2005-07-08 16:20:43 得分 2

学习一下Top

45 楼swvincent()回复于 2005-07-08 23:28:34 得分 6

<script>  
  var   j=0  
  function   add_row(){  
  k=j+1  
  j=sqd.rows.length;  
  newRow=document.all.sqd.insertRow(-1)  
  newcell=newRow.insertCell()  
  newcell.style.backgroundColor='#f7f7f7'  
  newcell.innerHTML=j  
  newcell=newRow.insertCell()  
  newcell.style.backgroundColor='#f7f7f7'  
  newcell.innerHTML="<input   name=Number   type=radio   >"  
  newcell=newRow.insertCell()  
  newcell.style.backgroundColor='#f7f7f7'  
  newcell.innerHTML="<input   name=SerialNumber   type=text   class=INPUT1   size=3>"  
  newcell=newRow.insertCell()  
  newcell.style.backgroundColor='#f7f7f7'  
  newcell.innerHTML="<input   name=ProductName   type=text   class=INPUT1   size=3>"  
  newcell=newRow.insertCell()  
  newcell.style.backgroundColor='#f7f7f7'  
  newcell.innerHTML="<input   name=PieceNo   type=text   class=INPUT1   size=3>"  
  newcell=newRow.insertCell()  
  newcell.style.backgroundColor='#f7f7f7'  
  newcell.innerHTML="<input   name=Quantity   type=text   class=INPUT1   size=3>"  
  newcell=newRow.insertCell()  
  newcell.style.backgroundColor='#f7f7f7'  
  newcell.innerHTML="<input   name=GrossWeight   type=text   class=INPUT1   size=3>"  
  newcell=newRow.insertCell()  
  newcell.style.backgroundColor='#f7f7f7'  
  newcell.innerHTML="<input   name=CountWeight   type=text   class=INPUT1   size=3>"  
  newcell=newRow.insertCell()  
  newcell.style.backgroundColor='#f7f7f7'  
  newcell.innerHTML="<input   name=UnitPrice   type=text   class=INPUT1   size=3>"  
  newcell=newRow.insertCell()  
  newcell.style.backgroundColor='#f7f7f7'  
  newcell.innerHTML="<input   name=Amount   type=text   class=INPUT1   size=3>"  
  newcell=newRow.insertCell()  
  newcell.style.backgroundColor='#f7f7f7'  
  newcell.innerHTML="<input   name=CustOrder   type=text   class=INPUT1   size=3>"  
  newcell=newRow.insertCell()  
  newcell.style.backgroundColor='#f7f7f7'  
  newcell.innerHTML="<input   name=Description   type=text   class=INPUT1   size=3>"  
  }  
  function   del_row()   {  
  if(sqd.rows.length==1)   return;  
  var   checkit   =   false  
  for   (var   i=0;i<document.all.Number.length;i++)   {  
  if   (document.all.Number[i].checked)   {  
   
  checkit=true;  
  sqd.deleteRow(i)  
  break;  
  }  
  }  
   
  if   (checkit)   {  
   
  for(i=1;i<sqd.rows.length;i++){  
  sqd.rows[i].cells[0].innerText=i  
  }  
   
   
  }   else  
  {  
  alert("请选择一个要删除的对象");  
  return   false}  
   
  }  
  </script>  
  <table   width=90%   border=0   align="center"   cellpadding=2   cellspacing=1   bgcolor="#FFFFFF">  
      <tr>  
          <td   height="25"   class="table1">  
              <div   align="center"><font   color="#FFFFFF"><strong>≡≡≡   货   运   单   概   要   ≡≡≡</strong></font></div></td>  
      </tr>  
      <tr>  
          <td   align=center   valign=top   bgcolor=f7f7f7><table   id="sqd"   width="90%"   border="0"   cellpadding="0"   cellspacing="1"   bgcolor="#999999">  
                  <tr   bgcolor="#BAC2DA">  
                      <td   height="25">  
                          <div   align="center">序号</div></td>  
                      <td>  
                          <div   align="center">选中  
                                  <input   name=Number   type=hidden   >  
                      </div></td>  
                      <td>  
                          <div   align="center">货物编号</div></td>  
                      <td>  
                          <div   align="center">货物品名</div></td>  
                      <td>  
                          <div   align="center">件数</div></td>  
                      <td>  
                          <div   align="center">数量</div></td>  
                      <td>  
                          <div   align="center">毛重</div></td>  
                      <td>  
                          <div   align="center">计货重量</div></td>  
                      <td>  
                          <div   align="center">费率</div></td>  
                      <td>  
                          <div   align="center">金额</div></td>  
                      <td>  
                          <div   align="center">客户定单号</div></td>  
                      <td>  
                          <div   align="center">备注</div></td>  
                  </tr>  
              </table>  
                  <br>  
                  <input   name="Submit5"   type="button"   onClick=add_row()   class="button"   value="   添   加   ">  
                  <input   name="Submit33"   onclick=del_row()   type="button"   class="button"   value="   删   除   ">  
          </td>  
      </tr>  
  </table>  
  Top

46 楼fredlin(.net)回复于 2005-07-09 13:25:08 得分 2

好帖,正在找呢!Top

47 楼blueonly(认真编程,低调生活。)回复于 2005-07-09 15:05:09 得分 2

markTop

48 楼triffang(冲凉不除3)回复于 2005-07-09 17:29:51 得分 2

MARKTop

49 楼mba9001(两年不见,csdn变肥了)回复于 2005-07-09 17:44:13 得分 1

markTop

50 楼flyinggoal(自由自在)回复于 2005-07-09 17:53:25 得分 2

问大侠:  
   
  java   script   中能用pascal写的函数吗?Top

51 楼mengjuezhuren(梦觉主人)回复于 2005-07-09 19:09:12 得分 2

做个标记来学习。Top

52 楼asde2004(FLY)回复于 2005-07-09 21:40:05 得分 2

markTop

53 楼shqlsl(清雨轩)回复于 2005-07-10 18:21:26 得分 6

js实现图片无间隙滚动    
   
      <div   id=demo   style=overflow:hidden;height:55;width:255;color:#ffffff><table   align=left   cellpadding=0   cellspace=0   border=0><tr>  
              <td   id=demo1   valign=top><img   src="images/flash8.gif"><img   src="images/link/flashempire.gif"><img   src="images/link/deskcity.gif"><img   src="http://www.blueidea.com/logo.gif">  
              <td   id=demo2   valign=top></td></tr></table></div>  
      <script>  
      var   speed=30  
      demo2.innerHTML=demo1.innerHTML//demo2单元格的内容复制;  
      function   Marquee(){  
      if(demo2.offsetWidth-demo.scrollLeft<=0)//如果demo2单元格的宽减去demo的滚动条的距离=0  
      demo.scrollLeft-=demo1.offsetWidth   //那么demo的滚动条的距离-demo1的宽度=也就是demo2的宽度  
      else{  
      demo.scrollLeft++ //demo滚动条  
      }  
      }  
      var   MyMar=setInterval(Marquee,speed)  
      demo.onmouseover=function()   {clearInterval(MyMar)}  
      demo.onmouseout=function()   {MyMar=setInterval(Marquee,speed)}  
      </script>  
   
   
  -----------<div   id=demo   style=overflow:hidden;height:55;width:255;color:#ffffff>  
              <div   id=demo1   valign=top><img   src="images/flash8.gif"><br   /><img   src="images/link/flashempire.gif"><br   /><img   src="images/link/deskcity.gif"><br   /><img   src="http://www.blueidea.com/logo.gif"></div>  
              <div   id=demo2   valign=top><div></div>  
      <script>  
      var   speed=30  
      demo2.innerHTML=demo1.innerHTML  
      function   Marquee(){  
      if(demo2.offsetHeight-demo.scrollTop<=0)  
      demo.scrollTop-=demo1.offsetHeight  
      else{  
      demo.scrollTop++  
      }  
      }  
      var   MyMar=setInterval(Marquee,speed)  
      demo.onmouseover=function()   {clearInterval(MyMar)}  
      demo.onmouseout=function()   {MyMar=setInterval(Marquee,speed)}  
      </script>  
   
  Top

54 楼lilei_jn(water)回复于 2005-07-11 10:32:04 得分 2

mark一下Top

55 楼LCKKING(黑旋风)回复于 2005-07-28 21:48:24 得分 0

顶Top

56 楼flowingshadow()回复于 2005-07-29 01:04:34 得分 2

cross-browser.com  
  这个网站提供了一套很好用的javascript库,支持跨浏览器,有很多例子,而且用起来很方便Top

57 楼awperpvip(挖靠我狂晕来CSDN这么久,竟不知道原来名字可以这么长)回复于 2005-07-29 01:33:21 得分 2

学习ingTop

58 楼adandelion(水源是CSDN最黑的地方,但这个最黑是CSDN一手制造的!)回复于 2005-07-29 08:41:25 得分 1

guanzhuTop

59 楼xu770(我爱鱼儿)回复于 2005-07-29 08:48:53 得分 2

http://www.51windows.net/hw/asp/myjs.htmTop

60 楼ljqhbt(半个杭州人)(不爱QQ)回复于 2005-07-29 14:28:41 得分 6

<img   src="http://community.csdn.net/images/CSDN_logo.GIF"   alt="鼠标一放上来就变清晰"   border=1   style="filter:alpha(opacity=20)"   onMouseOver="makevisible(this,0)"   onMouseOut="makevisible(this,1)">Top

61 楼LCKKING(黑旋风)回复于 2005-08-02 20:21:31 得分 0

怎么又沉了?Top

62 楼superdullwolf(超级大笨狼,每天要自强,MVP)回复于 2005-08-03 04:18:19 得分 6

做了两个小东西,在IE下很酷,FireFox下有问题,请支持FireFox的朋友帮我改成通用,谢谢!!    
  http://community.csdn.net/Expert/topic/4184/4184902.xml?temp=.8836023Top

63 楼wxylvmnn(城隍庙三当家的)回复于 2005-08-04 09:43:00 得分 6

<!DOCTYPE   HTML   PUBLIC   "-//W3C//DTD   HTML   4.01   Transitional//EN"  
  "http://www.w3.org/TR/html4/loose.dtd">  
  <html>  
  <head>  
  <meta   http-equiv="Content-Type"   content="text/html;   charset=gb2312">  
  <title>1111111</title>  
  </head>  
  <style>  
  .clik{background-color:#0000FF;}  
  </style>  
  <script>  
  function   getall(){        
          try{  
            var   objTD=document.getElementsByTagName("TD")  
            for   (var   i=0;i<objTD.length;i++){  
            alert   (objTD[i].innerText)   }  
          }  
          catch(e){}  
    }  
   
    function   fnc(){  
    try{  
    var   objSrc=event.srcElement;  
    var   objTD=document.getElementsByTagName("TD")  
    for   (var   i=0;i<objTD.length;i++){  
            objTD[i].className="";  
            objSrc.className="clik";   }  
    if   (objSrc.tagName=="TD")  
          alert   (objSrc.innerText);}  
    catch(e){}  
    }  
  </script>  
   
  <body>  
  <table   id="test"   width="200"   border="0"   cellspacing="0"   cellpadding="0"   onclick="fnc();">  
      <tr>  
          <td>1</td>  
          <td>2</td>  
          <td>3</td>  
      </tr>  
      <tr>  
          <td>4</td>  
          <td>5</td>  
          <td>6</td>  
      </tr>  
      <tr>  
          <td>7</td>  
          <td>8</td>  
          <td>9</td>  
      </tr>  
  </table>  
  <input   type="button"   onClick="javascript:getall();"   value="getall">  
  </body>  
  </html>Top

64 楼LCKKING(黑旋风)回复于 2005-09-01 16:18:50 得分 0

不错啊!让火焰燃烧得更猛烈些吧!Top

65 楼j7fs()回复于 2005-09-01 22:14:40 得分 2

MarkTop

66 楼amorsuper(amor)回复于 2005-09-01 23:49:07 得分 2

不顶不行~Top

67 楼LCKKING(黑旋风)回复于 2005-09-07 15:50:12 得分 0

系统要截铁了!最后几天,再收集2天!!!Top

相关问题

  • 算法
  • 算法
  • 算法!
  • 算法
  • 算法...
  • 算法
  • 算法啊算法!!
  • JavaScript一个特效的问题,解决了送份!!!!!!!!
  • 如何实现以下javascript的网页特效?在线等,急!
  • 想用java用一定的算法和一个key对一个字串加密,然后用javascript用相应的算法和同样的key进行解密

关键词

  • .net

得分解答快速导航

  • 帖主:LCKKING
  • faisun
  • mfkiqpl
  • lzhm
  • mayi545
  • TSD
  • TSD
  • meizz
  • meizz
  • meizz
  • scoutlin
  • ygjwjj
  • FBug
  • cuixiping
  • adLockReadonly
  • JK_10000
  • onlytiancai
  • yzujjcb
  • keaizhong
  • IDOICAN
  • chzxq
  • 677
  • bybella
  • wtogether
  • hcom
  • sandtable3000
  • underone
  • wxylvmnn
  • ttyp
  • shangxinyu123
  • deiphi
  • xxgu
  • chenafang
  • kv4000
  • wzhiyuan
  • MaxIE
  • liuqinglq
  • friendlyFour
  • chenafang
  • xiao_huan
  • wzhiyuan
  • RoninBlade
  • swvincent
  • fredlin
  • blueonly
  • triffang
  • mba9001
  • flyinggoal
  • mengjuezhuren
  • asde2004
  • shqlsl
  • lilei_jn
  • flowingshadow
  • awperpvip
  • adandelion
  • xu770
  • ljqhbt
  • superdullwolf
  • wxylvmnn
  • j7fs
  • amorsuper

相关链接

  • Web开发类图书

广告也精彩

反馈

请通过下述方式给我们反馈
反馈
提问
网站简介|广告服务|VIP资费标准|银行汇款帐号|网站地图|帮助|联系方式|诚聘英才|English|问题报告
北京创新乐知广告有限公司 版权所有, 京 ICP 证 070598 号
世纪乐知(北京)网络技术有限公司 提供技术支持
Copyright © 2000-2008, CSDN.NET, All Rights Reserved
GongshangLogo