set myconn=Server.CreateObject("ADODB.Connection")
myconn.Open Application("数据库 2_ConnectionString")
str="select * from tableadmin where name='"&name&"' and password='"&password&"'"
set Result=myconn.Execute(str)
if Result.EOF then
session("my_xzqx")=0
else
session("my_xzqx")=1
end if
2.asp
<%
...
if passed then
session/application=...
response.write "<script>opener.location.reload();window.close();</script>"
response.end
else
response.write "<script>window.close();</script>"
response.end
end if
%>