高分请求解决上个未解决问题

[mygia]

http://expert.csdn.net/Expert/topic/1223/1223169.xml?temp=.6916162

[junguo]

Function displaypar(b,c)
sql1="select * from users where id='"&b&"'"
set rrs=server.CreateObject("adodb.recordset")
rrs.open sql1,conn,2,3
if rrs.eof then
return
end if
displaypar（b,c)
Exit Function

你为什么要用递归调用呢？没必要的话，就换一种写法好了

[mygia]

调用的语句怎么写啊？
我只是想实现那种功能！能写出来给我吗？

[junguo]

不对，就是个死循环！
你应该把displaypar（b,c)去掉，你不停的调用，它不可能跳出循环！

[mygia]

我知道我写的可能是不对的。但是你能不能帮我写出这个函数出来，包括调用的语句来实现以下功能。
首先我从网址或者上个网页提交过来的id
用这个id打开指定的那条数据库。从那条数据库取出字段par1，par2，par3，par4，就把它说成是打开的那条记录的四个父亲吧。
四个父亲也是装在同一个表里面的。也有id=某个父亲的那个记录。
我现在目的就是想传递两个参数，一个参数传递的是，是哪个父亲（比如是：par4，一个参数传递的是打开那个记录的哪个字段（比如打开那条记录的：email这个字段），

[junguo]

sub displaypar(b,c)
sql1="select * from users where id='"&b&"'"
set rrs=server.CreateObject("adodb.recordset")
rrs.open sql1,conn,2,3
while (!rrs.eof )
d = rrs.fields("part") 'part为你的数据库中的列名
'在这儿你可以把你要的数据保留下来
Response.write d ‘也可以写下来，
displaypar(d,c)
wend
end sub

大致就是这样，

[junguo]

错了while (!rrs.eof )
d = rrs.fields("part") 'part为你的数据库中的列名
'在这儿你可以把你要的数据保留下来
Response.write d ‘也可以写下来，
rrs.movenext
displaypar(d,c)
wend

[mygia]

d = rrs.fields( "part ") 'part为你的数据库中的列名
'在这儿你可以把你要的数据保留下来
Response.write d ‘也可以写下来，


我希望part是从c这个参数传递过去的，可以实现吗？

[mygia]

行了，搞定了，
d=rrs(c)
response.Write d

原来这么简单的！