head.asp

来自「建造工业系统所需的SQL源代码」· ASP 代码 · 共 15 行

<%
Set rs=Server.CreateObject("ADODB.RecordSet")
SQL="Select * From tb_User Where UserName='"&Session("UserName")&"'"
rs.Open SQL,Conn,1,3
If rs.Eof and rs.Bof Then%>
	<script language="javascript">
		alert("您的用户已经过期，请重新登录！");
		window.location.href="index.asp";
	</script>
<%
	Response.End()
End If
rs.close()
Set rs=Nothing
%>