小弟写了一个递归的函数，但不能实现累加！请各位指教！
这个函数是遍历一个人下面的左子树和右子树，如查这个人下面有子树就返回值累加1.
这个函数在VB可以运行！但在ASP由于本人对ASP语法不熟悉！还是未能到效果！
我估计是静态变量定义有问题！
Function CntNode(strID)
Dim strSQL
Dim strLID, strRID
Dim lngSum '我想应该是这个变量定义有问题！请问如何定义成静态变量？
Set R = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from qyml where id=" & strID
R.Open strSQL, Conn, 1, 1
If R.BOF And R.EOF Then
CntNode = 0
Exit Function
End If
If R.Fields("lchild") <> "空" Then
lngSum = lngSum + 1
strLID = R.Fields("lchild")
CntNode CInt(strLID)
ElseIf R.Fields("lchild") = "空" Then
Exit Function
End If
If R.Fields("rchild") <> "空" Then
lngSum = lngSum + 1
strRID = R.Fields("rchild")
CntNode CInt(strRID)
ElseIf R.Fields("rchild") = "空" Then
Exit Function
End If
CntNode = lngSum
End Function
问题点数：0、回复次数：1Top
1 楼Fufay（☆梅笑寒☆ MSN: fufay@126.com）回复于 2005-04-01 01:59:22 得分 0
Dim lngSum
lngSum = 0Top
