关闭窗口
<% Sub ExecuteNonQuery(sql) dim conn dim connstr Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") conn.Open connstr conn.execute sql conn.close set conn=nothing End Sub %>