-
2007-04-01 11:04:05
/ JavaScript & VBScript & DHTML 脚本技术讨论版
我先抛砖'有人要去买鸡, 用100块钱正好买了100只鸡'价格如下:公:5块每只'母:3块每只,'小:2只一快''让你求一共多少种卖法dim a,b,cdim sumfor a=0 to 20for b=0 to 33for c=0 to 200sum=a*5+b*3+c*0.5if sum=100 and a+b+c=100 thenmsgbox "公:" & a & "只,母:" & b & ",小:" & cend ifnextnextnext'最笨的方法,貌似还有其它的算法?[ 本帖最后由 155120699 于 2007-4-1 12:34 编辑 ]
查看(1152)
评论(12)
-
2006-11-30 05:25:07
/ JavaScript & VBScript & DHTML 脚本技术讨论版
网址也好,代码也好,压缩包也好,大的也好,小的也好,有的希望能发到这儿来,我想收集js游戏,我收集整理后,我肯定打包放出来。不过希望是完整的能玩的游戏。
查看(1360)
评论(9)
-
2006-09-23 01:11:53
/ JavaScript & VBScript & DHTML 脚本技术讨论版
最近我的共享目录里面所有exe文件都被病毒感染,上网一查才知道是“logo1_.exe”这个咚咚搞的鬼。网上对这个病毒的危害性评价得很高,认为只要中了病毒,整台机器都只能“Format”了。其原因大概就是因为所有应用程序都被感染,运行任何程序都回使病毒“重生”。我使用“卡巴司机”杀毒,结果提示无法清除,将我整个exe文件给删了。郁闷中,自己动手写了这个咚咚来清除已感染程序里的的病毒。中了“logo1_.exe”病毒请上网查找相关清除方法,本工具只是清除被感染文件里面的病毒,因没有太多时间,没做注册表自动恢复功能;)中
查看(8457)
评论(51)
-
2006-08-08 20:12:03
/ JavaScript & VBScript & DHTML 脚本技术讨论版
在网上发现一道数学题,想试着用JS来求求解,但是没有什么思路,好像我想复杂了。题目是这样的:[ ][ ]*[ ]-[ ]-[ ]=[ ]*[ ][ ]-[ ]上式每个空中只能填1到9中的任意一个数,且不能重复。如何填才能使等式成立?[ ]代表一个数,[ ][ ]代表两个数望各位达人指点!!!感激不尽!!;)[ 本帖由 cosy 最后编辑于 2006-8-8 20:14 ]
查看(753)
评论(12)
-
2006-08-07 16:35:07
/ 经典代码、教程资源库
在Access自身的帮助中看到了Create Procedure语句,测试了老半天,终于发现了诀窍:必须使用OleDb连接才能使用Create Procedure语句。ODBC连接不支持该语句,提示Create Table语法错误。 创建了存储过程后,使用Office Access工具打开数据库,在“对象 - 查询”中能够看到你创建的存储过程。
查看(3637)
评论(6)
-
2006-07-27 15:26:52
/ JavaScript & VBScript & DHTML 脚本技术讨论版
看看行不行。遇到了一个郁闷的事:如果让Http对象作全局变量,那么onreadystatechange只会在第一次执行时触发,以后都不会触发这个事件了。只好在每次Down文件时重新创建一个XmlHttp对象。
查看(2378)
评论(20)
-
2006-07-25 15:34:19
/ JavaScript & VBScript & DHTML 脚本技术讨论版
电脑的智商不是很高,因为就用了一些循环来做判断许多功能还没有比如 纪录时间悔棋 (这些都简单)问题就是AI设计大家给一些思路代码如下五子棋var all_len=20;//棋盘20*20var empty=new Array();//存放标记var result=new Array();//存放分数var number=0;//纪录棋盘IDvar people=true; //存放下棋IDfunction display() //画出棋盘{for(var i=0;i
查看(1447)
评论(16)
-
2006-07-21 15:39:45
/ JavaScript & VBScript & DHTML 脚本技术讨论版
没有任何技术含量,仅为博君一笑注意:由于是直接使用windows内置控件,以下的代码都没有考虑兼容问题。要使页面正常显示需要开启浏览器的ActiveX。1.Microsoft Masked Edit Control, version 6.0Microsoft Masked Edit Control, version 6.0[ 本帖由 anbert 最后编辑于 2006-7-25 10:22 ]
查看(4785)
评论(23)
-
2006-07-21 14:55:26
/ JavaScript & VBScript & DHTML 脚本技术讨论版
updated:1、7.24 感谢斑竹dron,加入对scrollTop&scrollLeft的支持2、7.26 增加水平、垂直、限定范围移动Drag 'n' Drop Demo#foo {position:absolute;top:100px;left:100px;width:100px;height:100px;background-color:#f0f0f0;border:solid 1px #121212;}#foo1 {position:absolute;top:150px;left:130px;
查看(2337)
评论(14)
-
2006-07-14 16:02:58
/ JavaScript & VBScript & DHTML 脚本技术讨论版
自己写了一个组件里面有几个事件,就是不知道怎么触发!
查看(1062)
评论(15)
-
2006-06-15 17:41:31
/ JavaScript & VBScript & DHTML 脚本技术讨论版
Indentify.sct右键注册后,可供其他编程语言调用。(原来是一个Javascript写的ASP文件,我把他加工成控件了)。源码内未包含任何组件的调用。运行前需要将Indentify.sct右键 - 注册一次。演示:http://www.ycysc.com/IdentifyASP 3.0,ASP.NET 1.1下测试通过。ASP.NET 2.0的Unicode.GetBytes处理有点问题,解决方法见23楼,该方法1.1和2.0都能正常使用。[ 本帖由 Rimifon 最后编辑于 2006-6-16 22:36 ]
查看(4496)
评论(27)
-
2006-06-04 02:25:43
/ JavaScript & VBScript & DHTML 脚本技术讨论版
有组件上传方式请右键"FyUpload.sct"注册,然后可以使用: Server.CreateObject("Rimifon.Upload")创建对象。无组件上传方式请使用 GetObject("script:" + 组件地址)创建对象,组件地址为硬盘绝对路径,也可以使用http完整路径。==============================================属性和方法说明: 设置页面字符编码:Upload.Charset = "UTF-8" //默认为gb2312编码。 文件大小限制:Upload.MaxSize = 1024 * 512 //设置上传大小不超过 512 kb,参数为零时不限制上传文件大小(默认为 0)。 文
查看(21012)
评论(76)
-
2006-06-01 16:17:08
/ JavaScript & VBScript & DHTML 脚本技术讨论版
一个简单的例子:将如下代码另存为.wsc文件,并右键“注册”(卸载时右键“不注册”)。然后可以通过new ActiveXObject("hello.world")的方法来调用该控件。例如:(另存为.js后双击运行。)这样就可以将javascript代码嵌入到其他编程语言中。另外,不注册也可以调用该控件,例如:(另存为.js后双击运行。)注意的是,JS的GetObject方法因为安全限制,在IE下可能是不能运行的。
查看(2470)
评论(19)
-
2006-05-26 21:31:30
/ JavaScript & VBScript & DHTML 脚本技术讨论版
var xml=document.createElement("xml");var http=new ActiveXObject("Microsoft.XmlHttp");http.open("GET",opener.location.href,false,"","");http.send(null);xml.loadXML("");xml.lastChild.dataType="bin.base64";xml.lastChild.nodeTypedValue=http.responseBody;document.write(xml.xml);[ 本帖由 Rimifon 最后编辑于 2006-5-26 21:49 ]
查看(1347)
评论(7)
-
2006-05-16 14:32:32
/ JavaScript & VBScript & DHTML 脚本技术讨论版
需要结束选定进程可以使用Process.item().terminate(0);也可枚举服务(select * from win32_service)var Winmgmts=GetObject("Winmgmts:");var IE=WSH.GetObject("","InternetExplorer.Application");IE.Navigate("about:blank");var Process=new Enumerator(Winmgmts.ExecQuery("select * from win32_process"));var table=IE.document.createElement("table");IE.document.title="进程列表";table.cellPadding=3;table.style.cssText="font:9pt 宋体;border-collapse:collapse";table.border=1;table.bgColor="#bf
查看(1025)
评论(5)
-
2006-05-12 17:36:01
/ JavaScript & VBScript & DHTML 脚本技术讨论版
正在同步...var dayNames = new Array("星期日","星期一","星期二","星期三","星期四","星期五","星期六");var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");xmlhttp.open("HEAD", "http://bbs.51js.com", false);xmlhttp.setRequestHeader("Range", "bytes=-1");xmlhttp.send();var tts =new Date(xmlhttp.getResponseHeader("Date"));serverTime.innerHTML="" + tts.getYear()+"."+(tts.getMonth()+ 1)+"."+tts.getDate()+""+tts.getHours()+":"+tts.getMinutes()+":"+tts.getSeconds()+""+ dayNames
查看(678)
评论(0)
-
2006-02-21 20:14:49
/ JavaScript & VBScript & DHTML 脚本技术讨论版
JS在这方面的效率比 C++、Java 还是要差很多地……Array.prototype.swap = function(i, j){var temp = this;this = this[j];this[j] = temp;}Array.prototype.bubbleSort = function(){for (var i = this.length - 1; i > 0; --i){for (var j = 0; j < i; ++j){if (this[j] > this[j + 1]) this.swap(j, j + 1);}}}Array.prototype.selectionSort = f
查看(6149)
评论(34)
-
2006-01-18 21:15:56
/ JavaScript & VBScript & DHTML 脚本技术讨论版
blink{behavior:url(#default#time2)}我闪,我闪,我闪闪闪闪闪!
查看(793)
评论(11)
-
2006-01-11 21:25:42
/ JavaScript & VBScript & DHTML 脚本技术讨论版
由Javascript生成的xbm图片。游戏控制方法:左:J进:K右:L攻击:空格兼容 IE 和 FireFox!N6=8184;N5=2040;N4=1008;N3=4092;N2=65535;N1=2340;N0=1032;d=document;nn=!d.all;m=Math;C=m.PI;r=m.random;f=m.floor;ab=m.abs;sq=m.sqrt;si=m.sin;co=m.cos;pz=U=fwd=p=$x=im=A2=A3=Z=$c=c0=d5=d4=0;w=[];M=_=H=hl=64;W=px=py=128;RAD=C/180;d6=32;INF=1e300;F=30*RAD;R=2*F/W;a1=f(64/m.tan(F));b2=C/2;c3=C;c4=C*3/2;h="0123456789ABCDEF";$e=P(W);p1=P(1152);for(i=0;i=H*16?255:0;b=P(1152);N=[];for(i=0;i4?2:0;for(y=
查看(2429)
评论(4)
-
2006-01-07 20:13:44
/ JavaScript & VBScript & DHTML 脚本技术讨论版
Function checkn(n)if n=0 Or n=1 Thencheckn = 1elseDim sNumsNum = 1For i=0 To n-1document.write sNum & "*" & (n-i) & ""sNum = sNum * (n-i)NextCheckn = sNumEnd IfEnd Functiondocument.write checkn(7)[ 本帖由 ivvn 最后编辑于 2006-1-9 22:18 ]
查看(3844)
评论(37)