如何取得这个sub的值

[saint271828]

sub position_pro(cateid)
dim str
set position=server.CreateObject("adodb.recordset")
position.open "select * from category where categoryid="&cateid,conn,1,3

if not position.eof then
if position("ParentID")<>0 then
str=str&" >> <a href='cat.asp?catid="&position("categoryid")&"'>"&position("category")&"</a>"
else
str=str&"<a href='cat.asp?catid="&position("categoryid")&"'>"&position("category")&"</a>"
end if
position_pro position("ParentID")

end if
response.Write str
end sub


如何用变量取得它的值，或者改成function的话要怎么改呢

[hookee]

<%
Function position_pro(cateid)
  str = ""
  set position = server.CreateObject("adodb.recordset") 
  position.open "select * from category where categoryid="&cateid,conn,1,1 
  if not (position.eof and position.bof) then 
    if position("ParentID") <>0 then
       str=str&" >>  <a href='cat.asp?catid="&position("categoryid")&"'>"&position("category")&" </a>" 
    else 
       str=str&" <a href='cat.asp?catid="&position("categoryid")&"'>"&position("category")&" </a>" 
    end if
    position_pro = str & position_pro(position("ParentID").Value)
  else
    position_pro = ""
  end if
  position.close
  set position= nothing
end Function
%>

[saint271828]

楼上的有点小错误好像，我改下就没问题
Function position_pro(cateid)
position_pro = ""
set position = server.CreateObject("adodb.recordset")
position.open "select * from category where categoryid="&cateid,conn,1,1
if not (position.eof and position.bof) then
if position("ParentID") <>0 then
position_pro=position_pro&" >>  <a href='cat.asp?catid="&position("categoryid")&"'>"&position("category")&" </a>"
else
position_pro=position_pro&" <a href='cat.asp?catid="&position("categoryid")&"'>"&position("category")&" </a>"
end if
position_pro = position_pro & position_pro(position("ParentID").Value)
else
position_pro = ""
end if
position.close
set position= nothing
end Function

[saint271828]

不过我这样读出来的结果是反的

[一把编程的菜刀]

Function position_pro(cateid) 
dim str 
set position=server.CreateObject("adodb.recordset") 
position.open "select * from category where categoryid="&cateid,conn,1,3 

if not position.eof then 
    if position("ParentID") <>0 then 
    str=str&" >>  <a href='cat.asp?catid="&position("categoryid")&"'>"&position("category")&" </a>" 
    else 
str=str&" <a href='cat.asp?catid="&position("categoryid")&"'>"&position("category")&" </a>" 
end if 
position_pro position("ParentID") 

end if 
position_pro=str 
end Function

[hztgcl1986]

function position_pro(cateid) 
dim str 
set position=server.CreateObject("adodb.recordset") 
position.open "select * from category where categoryid="&cateid,conn,1,3 

if not position.eof then 
    if position("ParentID") <>0 then 
    str=str&" >>  <a href='cat.asp?catid="&position("categoryid")&"'>"&position("category")&" </a>" 
    else 
str=str&" <a href='cat.asp?catid="&position("categoryid")&"'>"&position("category")&" </a>" 
end if 
position_pro position("ParentID") 

end if 
response.Write str 

position_pro = 返回值
end function 

[hookee]

取 position("ParentID")?

<%
Function position_pro(cateid) 
  set position = server.CreateObject("adodb.recordset") 
  position.open "select * from category where categoryid="&cateid,conn,1,1 
  if not (position.eof and position.bof) then 
    position_pro = position("ParentID").value
  else
    position_pro = null
  end if
  position.close
  set position= nothing
end Function
%>

[saint271828]

position_pro = 返回值
这个是什么？

[saint271828]

我要取“str”

[hookee]

<%
Function position_pro(cateid)
  str = ""
  set position = server.CreateObject("adodb.recordset") 
  position.open "select * from category where categoryid="&cateid,conn,1,1 
  if not (position.eof and position.bof) then 
    if position("ParentID") <>0 then
       str=str&" >>  <a href='cat.asp?catid="&position("categoryid")&"'>"&position("category")&" </a>" 
    else 
       str=str&" <a href='cat.asp?catid="&position("categoryid")&"'>"&position("category")&" </a>" 
    end if
  end if
  position_pro = str
  position.close
  set position= nothing
end Function
%>

[saint271828]

我的SUB里边有个position_pro position("ParentID") ，不知道你们注意到没有，所以上边的function和我的SUB得出的结果都不同