UC知道asp网页开发
来源：百度知道 编辑：UC知道 时间：2024/05/02 18:54:07
在刚建立的函数中使用函数是什么意思。代码如下
Sub Generate (layer)
Dim parent
If layer="__" Then
parent="__"
Else
parent=layer
End If
Set Conn=Server.Createobject("Adodb.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"Data Source="&Server.MapPath("user.mdb")
Conn.Open
Set rs=Server.Createobject("Adodb.Recordset")
Sql="Select * from LayerST where IsDisp='1' and Layer Like '"&layer&"'"
rs.Open Sql,Conn,1,1
do while rs.EOF=False
If rs("Type")="1" Then
call WriteNode(rs("Layer"),rs("Title"))
call Generate (rs("Layer")&"__")
Response.write("</div>")
Else
call WriteDoc(rs("Layer"),rs("Title"),rs("Content") )
Sub Generate (layer)
Dim parent
If layer="__" Then
parent="__"
Else
parent=layer
End If
Set Conn=Server.Createobject("Adodb.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"Data Source="&Server.MapPath("user.mdb")
Conn.Open
Set rs=Server.Createobject("Adodb.Recordset")
Sql="Select * from LayerST where IsDisp='1' and Layer Like '"&layer&"'"
rs.Open Sql,Conn,1,1
do while rs.EOF=False
If rs("Type")="1" Then
call WriteNode(rs("Layer"),rs("Title"))
call Generate (rs("Layer")&"__")
Response.write("</div>")
Else
call WriteDoc(rs("Layer"),rs("Title"),rs("Content") )
Sub Generate (layer) 你不会说第一行括号里面为什么有参数吧？？
那叫有参函数 没有的叫无参函数
不是，就是楼上的说法
这是函数的递归调用，函数自身调用自身的用法。