asp中Function 调用

来源:百度知道 编辑:UC知道 时间:2024/06/07 12:40:36
<%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)中就不会有错
能不能把fu

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,怎么会有效呢?