c-style的博客 http://blogger.org.cn/blog/blog.asp?name=c-style c-style的博客 blogger.org.cn W3CHINA Blog webmaster@blogger.org.cn <![CDATA[下拉列表的动态清空和添加函数]]> http://blogger.org.cn/blog/more.asp?name=c-style&id=9793 c-style 2005/11/11 17:11:29 清空：

function clearOption(oSelect)
{
 while(oSelect.options.length)
  oSelect.options.removeChild(oSelect.options[0]);
}

添加：

function addOption(oSelect,txt,val)
{
 var oOption = document.createElement("OPTION");
 oSelect.options.add(oOption);
 oOption.innerText = txt;
 oOption.value = val;
}    

]]> <![CDATA[Foxpro日期加减函数]]> http://blogger.org.cn/blog/more.asp?name=c-style&id=8322 c-style 2005/9/6 13:53:12 因为查不到，所以自己写一个。

function AddDate
para sDate,iToAdd,sUnit &&日期，加减数量，单位（"day","month","year","week"） 
if ! (sUnit == "day" .or. sUnit == "month" .or. sUnit == "year" .or. sUnit == "week" )
 messagebox("请指定正确的单位")
 return .t.
endif
iYear = year(sDate)
iMonth = month(sDate)
iDay = day(sDate)   
bIsBiss = isBiss(iYear)
do case
 case sUnit == "day"
  if iToAdd >= 0
   if iDay + iToAdd <= countDays(iMonth,bIsBiss)
    iDay = iDay + iToAdd 
   else
       do while iDay + iToAdd > countDays(iMonth,bIsBiss)
        iToAdd = iDay + iToAdd - countDays(iMonth,bIsBiss)
        iMonth = iMonth + 1 
        if iMonth > 12
         iMonth = iMonth - 12
         iYear = iYear + 1
        endif
        iDay = 0          
       enddo 
       iDay = iToAdd
   endif 
  else
   if iDay + iToAdd > 0 
    iDay = iDay + iToAdd
   else
    do while iDay + iToAdd <= 0
        iMonth = iMonth - 1 
        if iMonth < 1
         iMonth = iMonth + 12
         iYear = iYear - 1
        endif
        iToAdd = iDay + iToAdd + countDays(iMonth,bIsBiss)
        iDay = 0          
       enddo 
       iDay = iToAdd
   endif
  endif
 case sUnit == "month" 
  if iToAdd >= 0
   do while iMonth + iToAdd > 12
    iYear = iYear + 1
    iToAdd = iMonth + iToAdd - 12
    iMonth = 0   
   enddo  
  else
   do while iMonth + iToAdd < 0
    iYear = iYear - 1
    iToAdd = iMonth + iToAdd + 12
    iMonth = 0
   enddo    
  endif
  iMonth = iMonth + iToAdd
 case sUnit == "year"  
  iYear = iYear + iToAdd
 otherwise
  return AddDate(sDate,iToAdd * 7,"day")
endcase     
do while iDay > countDays(iMonth,isBiss(iYear))  
 iDay = iDay - 1
enddo
return ctod(allt(str(iMonth)) + "/" +allt(str(iDay)) + "/" + allt(str(iYear)))

function isBiss 
para iYear
if (iYear%100 == 0 .and. iYear%400 == 0) .or. (iYear%100 != 0 .and. iYear%4 == 0)     
 return .t.
else
 return .f.
endif   

function countDays
para iMonth,bIsBiss
if iMonth == 2
 if bIsBiss
  return 29
 else
  return 28
 endif
else
 if (iMonth < 8 .and. iMonth%2 == 1) .or. (iMonth >= 8 .and. iMonth%2 == 0) 
  return 31
 else
  return 30 
 endif
endif 

]]> <![CDATA[检测页面是否由多窗口浏览器打开]]> http://blogger.org.cn/blog/more.asp?name=c-style&id=7679 c-style 2005/8/6 13:01:49 有时候，我们希望页面只是由MS IE打开，而不是NETSCAPE、FIREFOX、OPERA及以IE为内核的多窗口浏览器打开，例如，我们写了针对IE的对某些功能作了限制的代码，会需要屏蔽菜单栏和工具栏等，而多窗口浏览器则会使用window.open('','','')打开的窗口仍然在同一浏览器内，菜单栏和工具栏仍然能起作用。

有这么个办法达到目的：在一个放在框架里的、无滚动条的页面里，判断BODY的宽度，与打开它的窗口的BODY的宽度作比较，具体到下面的代码，是打开了一个宽度为800的窗口。

<script language="javascript">
try{
 if(!/Microsoft Internet Explorer/i.test(navigator.appName))
 {
   alert('请只使用微软IE浏览器');
   top.close();
 }
 if(800 < document.body.clientWidth && parent.opener.document.body.clientWidth <= document.body.clientWidth) 
 {
  alert('对不起，您不能在当前浏览器操作');
  top.close();     
 } 
}catch(e){;} 
</script>

]]> <![CDATA[javascript屏蔽ctrl键]]> http://blogger.org.cn/blog/more.asp?name=c-style&id=7579 c-style 2005/8/1 15:01:24 曾经为怎样屏蔽打印功能而烦恼，因为一般的return false对打印功能并不起作用，终于找到办法——对指定网页用隐藏菜单栏的方式打开，并在该网页作如下处理：

<body onkeydown="if(event.ctrlKey){this.innerHTML='普通用户禁止Ctrl键操作,<a href=javascript:history.go(0)>点这里恢复</a>';}" oncontextmenu="return false">

这可是不让用CTRL键了，刚好适合现在的需要。

Tips:知道各键代码的办法—— alert(event.keyCode)  。

]]> <![CDATA[Lua的IO]]> http://blogger.org.cn/blog/more.asp?name=c-style&id=7504 c-style 2005/7/28 21:48:47 除非另有提及,所有的IO操作失败时都返回nil及错误信息.

io.close ([file])
关闭文件.

io.flush ()
向文件输出内容.

io.input ([file])
打开文件,失败时抛出错误.参数为文件名时,以文本方式打开文件.

io.lines ([filename])
以读模式打开文件,并返回一个枚举文件中各行的函数,即每次调用时读出一行,到文件末时返回nil.

io.open (filename [, mode])
用指定模式打开文件,模式参数可为"r","w","a",或在后面加上"+",在最后加上"b"则为对二进制文件操作.

io.output ([file])
与io.input相对应的操作.

io.read (format1, ...)
以指定格式读入.

io.tmpfile ()
建立临时文件,返回文件句柄,程序结束时自动删除该文件.

io.type (obj)
检查对象是否文件句柄,若是则返回"file",若文件已关闭则返回"closed file",不是文件句柄则返回nil.

io.write (value1, ...)
写入参数.

file:close ()
关闭文件.

file:flush ()
保存写入的内容.

file:lines ()
读出文件的行,与io.lines类似但在循环结束时不关闭文件.

file:read (format1, ...)
按指定格式读文件.
格式参数可为如下:
"*n" 读一个数值而不作为字符串;
"*a" 从当前位置开始读完整个文件;
"*l" 读下一行;
数值 读指定数量的字符.
到文件末时都返回nil.

file:seek ([whence] [, offset])
指定或得到在文件中的位置,whence参数可选如下:
"set" 开始位置为0,即文件的开始;
"cur" 当前位置;
"end" 文件结束.
操作成功时返回以byte为单位的位置值,否则返回nil和出错信息.
whence的默认值为"cur", offset默认值为0.

file:write (value1, ...)
把参数(必须为字符串或数值)写入文件.

]]> <![CDATA[Lua basic library 翻译]]> http://blogger.org.cn/blog/more.asp?name=c-style&id=7491 c-style 2005/7/27 21:52:08 assert (v [, message])
返回参数v的值,当v为nil或false时则显示出错信息;message为可选的出错信息,默认值为“assertion failed!”

collectgarbage ([limit])
设置垃圾收集器的上限值,单位为KB,如果该值小于byte counter,垃圾收集器会立即运行,limit默认值为0,该默认值会强制垃圾收集器循环运行.

dofile (filename)
打开指定文件并作为chuck执行,无参数时执行stdin的内容,不能在保护模式中使用.

error (message [, level])
终止最后一个受保护的函数的运行,返回message,而该函数的出错信息不会返回.参数level指定了出错信息所反映的位置,取默认值1时,指向调用出错的函数的位置,取2时,指向引起error的函数被调用的位置,依此类推.

_G
全局环境变量,改写该值不会引起环境的变化(可使用setfenv改变环境值).

getfenv (f)
返回当前环境值,f可以是函数也可以是数字,默认1指当前函数,0则返回全局环境;如果环境有个"__fenv"域时,返回相应值而非环境.

getmetatable (object)
依存在情况返回对象的以下值:"__metatable"域,metatable,nil.

gcinfo ()
返回Lua正在使用的内存和垃圾收集器的大小(单位都是KB).

ipairs (t)
t为table,返回成对值,如下所示:
for i,v in ipairs(t) do ... end
返回(1,t[1]), (2,t[2])...等值.

loadfile (filename)
载入一个文件但不执行,不发生错误时,返回一个函数,否则返回nil和出错信息.返回的函数的环境为全局环境.

loadlib (libname, funcname)
把程序与动态C类libname链接起来,在该类内寻找名为funcname的函数并返回为一个C函数.
libname必须包含完全路径及扩展名,本函数不为ANSI C支持,只适用于(Windows, Linux, Solaris, BSD,及部分支持dlfcn standard的平台.

loadstring (string [, chunkname])
载入字符串但不执行,与loadfile (filename)相近.chunkname用于出错信息和debug信息.

next (table [, index])
返回table的下一个元素,当index为nil时,返回第一个元素,为table的最后一个下标或空table的nil时,返回nil.

pairs (t)
返回table的键/值对.

pcall (f, arg1, arg2, ...)
保护模式调用函数f,捕捉错误并返回状态码.返回的第一个值为该函数的状态码(布尔型),无错时继续返回函数的返回值,出错时返回false及出错信息.

print (e1, e2, ...)
显示参数值.

rawequal (v1, v2)
比较两个参数.

rawget (table, index)
取得table[index]的值,index不能为nil.

rawset (table, index, value)
对table[index]赋值.

require (packagename)
载入指定包,载入后返回该包的返回值,把nil和无返回值转换为true,把false保留.

setfenv (f, table)
返回当前环境给指定函数f,当f为0时,改变当前线程的全局环境.如果初始环境有"__fenv"域时,抛出错误.

setmetatable (table, metatable)
对指定table设置metatable,如果metatable有"__metatable"域时,抛出错误.

tonumber (e [, base])
转换为数值或返回nil.当base大于10时,忽略大小写的'A'将转换为10,'B'将转换为11,'Z'将转换为35,取默认值10时,返回值可能含有小数.

tostring (e)
转换为字符串,当metatable有"__tostring"域时,返回以e为参数的对应值.

type (v)
返回参数的类型,返回值为字符串:"nil" , "number", "string", "boolean, "table", "function","thread", and "userdata".

unpack (list)
返回给定list的所有元素.

_VERSION
返回当前解释器的版本号,例如"Lua 5.0".

xpcall (f, err)
类似于pcall,但允许指定错误处理handler.

]]> <![CDATA[PERL作为CGI获得参数值的方法]]> http://blogger.org.cn/blog/more.asp?name=c-style&id=7459 c-style 2005/7/26 19:51:15 print "Content-type:text/html\n\n";
&ReadParse(*input);
print $input{"yourVar"};
print "<form method=post><input type=text name=yourVar><input type=submit></form>";
通过网址传递的参数也能同样获得，但POST的优先。
cgi-lib.pl 可以从 http://cgi-lib.berkeley.edu/ 下载。]]> <![CDATA[Perl遍历目录的函数]]> http://blogger.org.cn/blog/more.asp?name=c-style&id=7458 c-style 2005/7/26 19:50:21 
sub seekFolders
{
 local ($dir)=@_;
 opendir ($folder,$dir) || die print 'error';
 local @array=readdir($folder);

 for(local $i=2;$i < @array;$i++)
 {
 if((-f $dir.'\\'.$array[$i]) && $array[$i]=~/^e\./i)
 {
 print $dir.'\\'.$array[$i].'<br>';
 closedir($folder);return;
 }
 }

 for(local $i=2;$i < @array;$i++)
 {
 if(-d $dir.'\\'.$array[$i])
 {
 seekFolders($dir.'\\'.$array[$i]);
 }
 }

 closedir($folder);
 return;
}

容易犯错的地方：如果不对$i作local限定，将出现死循环。
]]> <![CDATA[MD5加密的javascript实现]]> http://blogger.org.cn/blog/more.asp?name=c-style&id=7457 c-style 2005/7/26 19:46:54 <script>
/* MD5 Message-Digest Algorithm - JavaScript
MODIFICATION HISTORY:
1.0 16-Feb-2001 - Phil Fresle (sales@frez.co.uk) - Initial Version (VB/ASP code)
1.0 21-Feb-2001 - Enrico Mosanghini (erik504@yahoo.com) - JavaScript porting
*/
function MD5(sMessage) {
function RotateLeft(lValue, iShiftBits) { return (lValue<<iShiftBits) | (lValue>>>(32-iShiftBits)); }
function AddUnsigned(lX,lY) {
var lX4,lY4,lX8,lY8,lResult;
lX8 = (lX & 0x80000000);
lY8 = (lY & 0x80000000);
lX4 = (lX & 0x40000000);
lY4 = (lY & 0x40000000);
lResult = (lX & 0x3FFFFFFF)+(lY & 0x3FFFFFFF);
if (lX4 & lY4) return (lResult ^ 0x80000000 ^ lX8 ^ lY8);
if (lX4 | lY4) {
if (lResult & 0x40000000) return (lResult ^ 0xC0000000 ^ lX8 ^ lY8);
else return (lResult ^ 0x40000000 ^ lX8 ^ lY8);
} else return (lResult ^ lX8 ^ lY8);
}
function F(x,y,z) { return (x & y) | ((~x) & z); }
function G(x,y,z) { return (x & z) | (y & (~z)); }
function H(x,y,z) { return (x ^ y ^ z); }
function I(x,y,z) { return (y ^ (x | (~z))); }
function FF(a,b,c,d,x,s,ac) {
a = AddUnsigned(a, AddUnsigned(AddUnsigned(F(b, c, d), x), ac));
return AddUnsigned(RotateLeft(a, s), b);
}
function GG(a,b,c,d,x,s,ac) {
a = AddUnsigned(a, AddUnsigned(AddUnsigned(G(b, c, d), x), ac));
return AddUnsigned(RotateLeft(a, s), b);
}
function HH(a,b,c,d,x,s,ac) {
a = AddUnsigned(a, AddUnsigned(AddUnsigned(H(b, c, d), x), ac));
return AddUnsigned(RotateLeft(a, s), b);
}
function II(a,b,c,d,x,s,ac) {
a = AddUnsigned(a, AddUnsigned(AddUnsigned(I(b, c, d), x), ac));
return AddUnsigned(RotateLeft(a, s), b);
}
function ConvertToWordArray(sMessage) {
var lWordCount;
var lMessageLength = sMessage.length;
var lNumberOfWords_temp1=lMessageLength + 8;
var lNumberOfWords_temp2=(lNumberOfWords_temp1-(lNumberOfWords_temp1 % 64))/64;
var lNumberOfWords = (lNumberOfWords_temp2+1)*16;
var lWordArray=Array(lNumberOfWords-1);
var lBytePosition = 0;
var lByteCount = 0;
while ( lByteCount < lMessageLength ) {
lWordCount = (lByteCount-(lByteCount % 4))/4;
lBytePosition = (lByteCount % 4)*8;
lWordArray[lWordCount] = (lWordArray[lWordCount] | (sMessage.charCodeAt(lByteCount)<<lBytePosition));
lByteCount++;
}
lWordCount = (lByteCount-(lByteCount % 4))/4;
lBytePosition = (lByteCount % 4)*8;
lWordArray[lWordCount] = lWordArray[lWordCount] | (0x80<<lBytePosition);
lWordArray[lNumberOfWords-2] = lMessageLength<<3;
lWordArray[lNumberOfWords-1] = lMessageLength>>>29;
return lWordArray;
}
function WordToHex(lValue) {
var WordToHexValue="",WordToHexValue_temp="",lByte,lCount;
for (lCount = 0;lCount<=3;lCount++) {
lByte = (lValue>>>(lCount*8)) & 255;
WordToHexValue_temp = "0" + lByte.toString(16);
WordToHexValue = WordToHexValue + WordToHexValue_temp.substr(WordToHexValue_temp.length-2,2);
}
return WordToHexValue;
}
var x=Array();
var k,AA,BB,CC,DD,a,b,c,d
var S11=7, S12=12, S13=17, S14=22;
var S21=5, S22=9 , S23=14, S24=20;
var S31=4, S32=11, S33=16, S34=23;
var S41=6, S42=10, S43=15, S44=21;
// Steps 1 and 2. Append padding bits and length and convert to words
x = ConvertToWordArray(sMessage);
// Step 3. Initialise
a = 0x67452301; b = 0xEFCDAB89; c = 0x98BADCFE; d = 0x10325476;
// Step 4. Process the message in 16-word blocks
for (k=0;k<x.length;k+=16) {
AA=a; BB=b; CC=c; DD=d;
a=FF(a,b,c,d,x[k+0], S11,0xD76AA478);
d=FF(d,a,b,c,x[k+1], S12,0xE8C7B756);
c=FF(c,d,a,b,x[k+2], S13,0x242070DB);
b=FF(b,c,d,a,x[k+3], S14,0xC1BDCEEE);
a=FF(a,b,c,d,x[k+4], S11,0xF57C0FAF);
d=FF(d,a,b,c,x[k+5], S12,0x4787C62A);
c=FF(c,d,a,b,x[k+6], S13,0xA8304613);
b=FF(b,c,d,a,x[k+7], S14,0xFD469501);
a=FF(a,b,c,d,x[k+8], S11,0x698098D8);
d=FF(d,a,b,c,x[k+9], S12,0x8B44F7AF);
c=FF(c,d,a,b,x[k+10],S13,0xFFFF5BB1);
b=FF(b,c,d,a,x[k+11],S14,0x895CD7BE);
a=FF(a,b,c,d,x[k+12],S11,0x6B901122);
d=FF(d,a,b,c,x[k+13],S12,0xFD987193);
c=FF(c,d,a,b,x[k+14],S13,0xA679438E);
b=FF(b,c,d,a,x[k+15],S14,0x49B40821);
a=GG(a,b,c,d,x[k+1], S21,0xF61E2562);
d=GG(d,a,b,c,x[k+6], S22,0xC040B340);
c=GG(c,d,a,b,x[k+11],S23,0x265E5A51);
b=GG(b,c,d,a,x[k+0], S24,0xE9B6C7AA);
a=GG(a,b,c,d,x[k+5], S21,0xD62F105D);
d=GG(d,a,b,c,x[k+10],S22,0x2441453);
c=GG(c,d,a,b,x[k+15],S23,0xD8A1E681);
b=GG(b,c,d,a,x[k+4], S24,0xE7D3FBC8);
a=GG(a,b,c,d,x[k+9], S21,0x21E1CDE6);
d=GG(d,a,b,c,x[k+14],S22,0xC33707D6);
c=GG(c,d,a,b,x[k+3], S23,0xF4D50D87);
b=GG(b,c,d,a,x[k+8], S24,0x455A14ED);
a=GG(a,b,c,d,x[k+13],S21,0xA9E3E905);
d=GG(d,a,b,c,x[k+2], S22,0xFCEFA3F8);
c=GG(c,d,a,b,x[k+7], S23,0x676F02D9);
b=GG(b,c,d,a,x[k+12],S24,0x8D2A4C8A);
a=HH(a,b,c,d,x[k+5], S31,0xFFFA3942);
d=HH(d,a,b,c,x[k+8], S32,0x8771F681);
c=HH(c,d,a,b,x[k+11],S33,0x6D9D6122);
b=HH(b,c,d,a,x[k+14],S34,0xFDE5380C);
a=HH(a,b,c,d,x[k+1], S31,0xA4BEEA44);
d=HH(d,a,b,c,x[k+4], S32,0x4BDECFA9);
c=HH(c,d,a,b,x[k+7], S33,0xF6BB4B60);
b=HH(b,c,d,a,x[k+10],S34,0xBEBFBC70);
a=HH(a,b,c,d,x[k+13],S31,0x289B7EC6);
d=HH(d,a,b,c,x[k+0], S32,0xEAA127FA);
c=HH(c,d,a,b,x[k+3], S33,0xD4EF3085);
b=HH(b,c,d,a,x[k+6], S34,0x4881D05);
a=HH(a,b,c,d,x[k+9], S31,0xD9D4D039);
d=HH(d,a,b,c,x[k+12],S32,0xE6DB99E5);
c=HH(c,d,a,b,x[k+15],S33,0x1FA27CF8);
b=HH(b,c,d,a,x[k+2], S34,0xC4AC5665);
a=II(a,b,c,d,x[k+0], S41,0xF4292244);
d=II(d,a,b,c,x[k+7], S42,0x432AFF97);
c=II(c,d,a,b,x[k+14],S43,0xAB9423A7);
b=II(b,c,d,a,x[k+5], S44,0xFC93A039);
a=II(a,b,c,d,x[k+12],S41,0x655B59C3);
d=II(d,a,b,c,x[k+3], S42,0x8F0CCC92);
c=II(c,d,a,b,x[k+10],S43,0xFFEFF47D);
b=II(b,c,d,a,x[k+1], S44,0x85845DD1);
a=II(a,b,c,d,x[k+8], S41,0x6FA87E4F);
d=II(d,a,b,c,x[k+15],S42,0xFE2CE6E0);
c=II(c,d,a,b,x[k+6], S43,0xA3014314);
b=II(b,c,d,a,x[k+13],S44,0x4E0811A1);
a=II(a,b,c,d,x[k+4], S41,0xF7537E82);
d=II(d,a,b,c,x[k+11],S42,0xBD3AF235);
c=II(c,d,a,b,x[k+2], S43,0x2AD7D2BB);
b=II(b,c,d,a,x[k+9], S44,0xEB86D391);
a=AddUnsigned(a,AA); b=AddUnsigned(b,BB); c=AddUnsigned(c,CC); d=AddUnsigned(d,DD);
}
// Step 5. Output the 128 bit digest
var temp= WordToHex(a)+WordToHex(b)+WordToHex(c)+WordToHex(d);
return temp.toLowerCase();
}
</script>
<input type=text id=myinput><input type=text ondblclick='this.value=MD5(myinput.value)'>

与DELPHI实现的MD5加密相比较，英文数字的加密结果一样，中文就不相同了，可能与对中文字符的处理不同有关。

函数的版权声明在最上面。]]> <![CDATA[用JavaScript实现关键字高亮]]> http://blogger.org.cn/blog/more.asp?name=c-style&id=7456 c-style 2005/7/26 19:44:57 CGI程序（PERL、PHP等）常常要处理对数据库的查询并返回结果，有时候会希望象搜索引擎一样，对关键字进行高亮，这种功能大体上在服务器端实现比较好，但在某些情况下，需要在客户端实现，以下的代码则用JavaScript实现了关键字高亮功能。


[CODE]

function jsHighLight(myTag,searchfor) { // --==利用JAVASCRIPT进行高亮，要求IE6.0==--
eval('var aTag = document.all.tags("'+myTag+'") ; '); // --==取得网页标记==--
try{ eval('var getIt=opener.document.form1.'+searchfor+'.value;'); // --==取得检索点==--
getIt=getIt.split(/[*| ×｜　+＋]/); // --==使用正则表达式处理检索分隔符==--
}catch(e){;} // --==使用异常处理,避免低版本IE报错==--
for(var c=0;c < aTag.length;c++)
{
try{
for(var j=0;j < getIt.length;j++)
if (aTag[c].innerText.indexOf(getIt[j])!=-1 && !eval('/<[^<>]*'+getIt[j]+'[^<>]*>/.test(aTag[c].innerHTML)'))
eval("aTag[c].innerHTML=aTag[c].innerHTML.replace(/"+getIt[j]+"/gi,'"+getIt[j]+"');"); // --==对在HTML标记<>里的文本不作处理==--

}catch(e){;} } }
//jsHighLight('td','WHOLE'); //--==调用办法==--
[/CODE]

上述代码实现了把在input name="WHOLE"里输入的文字（并能按指定字符分割输入），在输出结果的td中高亮显示。

]]>