gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\admin\Session.asp

    <%
AdminUID=session("AdminUID")
AdminPWD=session("AdminPWD")

set rs=server.CreateObject ("ADODB.RecordSet")
rs.Source="select ID from Admin where AdminUID='" & AdminUID & "' and  AdminPWD='" & AdminPWD & "'"
rs.Open rs.Source,conn,1,1

if not rs.EOF then 
   rs.Close
   set rs=nothing
else
   rs.Close
   set rs=nothing
%>
<script language=javascript>
 alert("登录超时,请重新登录!")
 window.location="index.asp"
</script>
<%
 Response.End
end if
%>