asp 数组排序函数
[ 2007-02-05 04:15:55 | 作者: admin ]
p.s. 如果排序不对，看看是不是字符串的数组，而没有转化成数字
<%
Function Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For I = 0 to UBound(ary)
If I = UBound(ary) Then Exit For
If ary(I) > ary(I+1) Then
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
ary(I+1) = FirstValue...
阅读全文…
<%
Function Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For I = 0 to UBound(ary)
If I = UBound(ary) Then Exit For
If ary(I) > ary(I+1) Then
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
ary(I+1) = FirstValue
阅读全文…
Javascript 中的 DateAdd() 时间函数
[ 2007-02-05 04:08:42 | 作者: admin ]
转载1
http://www.happyshow.org/article.asp?id=145
项目中需要用到日历，.net的日历控件又太重，只好用js写一个，日历的核心函数是 DateAdd()，编写过程中发现 js 里面操作时间比想象中的繁琐，不像vbscript中的可以轻松地dateadd，后来才想到用 setFullYear()、setDate()等内置函数，可以拼合一个js版的 dateadd() 来，代码如下：
function DateAdd(interval,number,date){ // date 可以是时间对象也可以是字符串，如果是后者，形式必须为: yyyy-mm-dd hh:mm:ss 其中分隔符不定。"2006年12月29日 16点01分23秒" 也是合法的
number = parseInt(number);...
阅读全文…
http://www.happyshow.org/article.asp?id=145
项目中需要用到日历，.net的日历控件又太重，只好用js写一个，日历的核心函数是 DateAdd()，编写过程中发现 js 里面操作时间比想象中的繁琐，不像vbscript中的可以轻松地dateadd，后来才想到用 setFullYear()、setDate()等内置函数，可以拼合一个js版的 dateadd() 来，代码如下：
function DateAdd(interval,number,date){ // date 可以是时间对象也可以是字符串，如果是后者，形式必须为: yyyy-mm-dd hh:mm:ss 其中分隔符不定。"2006年12月29日 16点01分23秒" 也是合法的
number = parseInt(number);
阅读全文…
1
