Question

asp中Function 调用

<%Function Con(Str)
Set Rs=Server.CreateObject("ADODB.Recordset")
IF Str="" Then
conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("db/acwfhl1.mdb")
Else
IF Str="../" Then
conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("../db/acwfhl1.mdb")
Else
conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(""&Str&"")
End IF
End IF

End Function
Call Con("../")
Sql="Select ID From Life"
Rs.Open Sql,Conn,1,1
IF Rs.Recordcount>0 Then
Response.Write(Rs("ID"))
End IF
Rs.Close
Call Del
Function Del()
Set Rs=Nothing
Set Conn=Nothing
End Function%>
预览时提示 缺少对象Rs
不行 如果按照1楼所说那么就会提示
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突
但是
如果把这段SQL执行的语句放在function con(str)中就不会有错
能不能把function Con(str)中定义的变量在函数外使用呢
我用 Conn=Con("../") 然后显示Conn也没有效果
怎么能让 Con()函数中定义Conn变量能在函数外也使用呢

Answer 1

rs 对象定义在Con函数中，在函数外部又用rs.open,当然“缺少对象Rs”啦。
应该是：
Function Con(Str)
IF Str="" Then
conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("db/acwfhl1.mdb")
Else
IF Str="../" Then
conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("../db/acwfhl1.mdb")
Else
conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(""&Str&"")
End IF
End IF
Call Con("../")
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="Select ID From Life"
Rs.Open Sql,Conn,1,1
..........

你的conn都没有Open,怎么会有效呢？

Answer 2

在function顶部,定义全局rs变量,即可解决问题