说明:代码如下: ‘排序 Function Sort1(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) <weixin_38545768> 上传 | 大小:15kb
说明:代码如下: Function NumberSplit(num) Dim i,length length=Len(num) For i=1 To length NumberSplit=NumberSplit & num mod 10 & “,” ‘余数 num = num \ 10 ‘整除 Next NumberSplit=Left(NumberSplit,Len(NumberSplit)-1) End Function <weixin_38500607> 上传 | 大小:12kb
说明:代码如下:Function getTreeRootId(pNodeId) getSQL = “select note_id,parent_id from [T_tree_demo] where note_id='”& pNodeId &”‘” Set getRs = db.Execute(getSQL) If Not getRs.eof Then If Trim(getRs(“parent_id”)) = “0” Then getTreeRootId = Trim(getRs(“note_id” <weixin_38708361> 上传 | 大小:16kb