怎样重定向到新的窗口打开("./html/library_menu.asp)
set conn = server.createobject ("adodb.connection")conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Mylib.mdb")
set RSFindEmp = conn.Execute("select EmpID, Manager from LibEmps where " _
& "EmailAddress = '" & Request.Form("EmailAddress") & "' and " _
& "Password = '" & Request.Form("Password") & "'")
if RSFindEmp.EOF then
TheMessage = "Invalid email address or password."
else
Session("EmpID") = RSFindEmp("EmpID")
Session("Manager") = RSFindEmp("Manager")
Response.Redirect "./html/library_menu.asp"
end if