高分，有ASP高手没，这问题放了一星期竟然没有一个人回答？

Function GetFidRoot(Cid)
Dim Sql,Rst1
Sql="Select Cid,Father FROM [newsclass_t] WHERE Cid=" & Cid
Set Rst1= Server.CreateObject("Adodb.Recordset")
Rst1.Open Sql,Conn,1,1
If Not (rst1.Eof And rst1.Bof) Then
If rst1(1)=0 then
GetFidRoot = rst1(0)
Else
GetFidRoot=GetFidRoot(rst1(1))''原来我在这也错了，应该是用父ID来找的
End If
Else
GetFidRoot = Cid '找不到上级
End If

Rst1.Close ''移到后面关闭
Set Rst1=Nothing
End Function