ASP,为什么这样不行呢？

来源：百度知道 编辑：UC知道 时间：2024/06/25 22:42:50
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dat/dat.mdb")

sub qqq
set rs=server.CreateObject("adodb.recordset")
rs.open sqlstr,conn,1,3
end sub

sub aaa
sqlstr="select * from qp_news order by id desc"
call qqq
Response.Write(rs("new_name"))
'call closers()
end sub

call aaa %>
'call closers()
这句是无效的。

当然是不行的了!因为你在SUB中定义的变量和对象是私有的,又不是全局的!所以不行!

这样你看看!
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dat/dat.mdb")
sqlstr=""
set rs=server.CreateObject("adodb.recordset")
sub qqq
rs.open sqlstr,conn,1,3
end sub

sub aaa
sqlstr="select * from qp_news order by id desc"
call qqq
Response.Write(rs("new_name"))
'call closers()
end sub

call aaa %>

试试
rs.close
set rs=nothing
在Response.Write之后

不用关闭

你都没有定义closers这个函数,你怎么CALL啊