asp的一些问题

来源：百度知道 编辑：UC知道 时间：2024/06/29 21:55:29
'分类函数递归显示
dim ids,n,i

n=0
i=1
dim list(10000)
function lids(lid)
dim sqls,rs
Set rslid = Server.CreateObject("ADODB.Recordset")
sqls="SELECT * FROM Class WHERE lid="&Cint(lid)
n=n+1
rslid.open sqls,Conn,1,1
Do While Not rslid.Eof
ids=""&ids&","&rslid(0)&""
list(i)=n
i=i+1
Call lids(rslid(0))
rslid.Movenext
Loop
n=n-1
rslid.close
End function

function ins(num)
str=""
for ii=1 to num
str=str&"┠"
next
ins=str
end function

'分类函数递归显示
dim ids,n,i

n=0 定义N
i=1 定义I
dim list(10000)
function lids(lid)
dim sqls,rs
Set rslid = Server.CreateObject("ADODB.Recordset")
sqls="SELECT * FROM Class WHERE lid="&Cint(lid) 查询数据库
n=n+1
rslid.open sqls,Conn,1,1
Do While Not rslid.Eof 循环
ids=""&ids&","&rslid(0)&""
list(i)=n 循环
i=i+1 循环
Call lids(rslid(0))
rslid.Movenext 循环
Loop 循环
n=n-1 循环
rslid.close 关闭对象
End function

function ins(num)
str=""
for ii=1 to num
str=str&"┠"
next
ins=str
end function

其他也不多说了,打字麻烦.希望你可以看懂