function.asp

关于网络渗透技术的详细讲解

<%
dim myobj
Set myobj=server.CreateObject("myobj.function")

function cr()
rs.close
end function

function nr()
on error resume next
rs.close
set rs=nothing
conn.close
set conn=nothing
on error goto 0
end function
%>