asp用户退出登陆代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE=""%>
<%
session("aname")=""
session("admin_flag")=""
sessionAbandon()
responseRedirect("loginasp")
%>

<%
Sessiontimeout=
if isempty(session("aname")) or len(session("aname"))= or isempty(session("admin_flag")) or len(session("admin_flag"))= or session("admin_flag")<>"into" then
founderr=true
errmsg=errmsg+"<br>"+"<li>你尚未登录或者超时了！请<a target=_parent >重新登录</a>！"
Call diserror()
responseEnd
End if

%>