function.asp

来自「关于网络渗透技术的详细讲解」· ASP 代码 · 共 17 行

<%
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
%>