% Dim username, password, errMsg errMsg = "" if request.Cookies("_username") <> "" and request.Cookies("_password") <> "" then call checkLogin(request.Cookies("_username"), request.Cookies("_password")) end if if request("login") <> "" then username = request("auth_username") password = request("auth_password") if request("use_cookies") = "1" then response.Cookies ("_username") = username response.Cookies ("_password") = password end if call checkLogin(username, password) errMsg = "Login Unsuccessful" end if %>
|
|||||||||||||||