作者在 2009-02-20 15:53:36 发布以下内容
function cleardb()
if rs.state<>0 then
rs.close
end if
if rs1.state<>0 then
rs1.close
end if
if rs2.state<>0 then
rs2.close
end if
if conn.state<>0 then
conn.close
end if
set rs=nothing
set rs1=nothing
set rs2=nothing
set conn=nothing
end function