asp用户退出登陆代码

asp用户退出登陆代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
session("aname")=""
session("admin_flag")=""
session.Abandon()
response.Redirect("login.asp")
 %>
 
 <%
Session.timeout=60
if isempty(session("aname")) or len(session("aname"))=0 or isempty(session("admin_flag")) or len(session("admin_flag"))=1 or session("admin_flag")<>"into" then 
  founderr=true
  errmsg=errmsg+"
"+"