check_session.asp

来自「ASPSQL企业网络管理系统」· ASP 代码 · 共 29 行

<%
'Response.Write "login_name : " & session("login_name") & "<br>" & vbCrLf
'Response.Write "member_id : " & session("member_id") & "<br>" & vbCrLf
'Response.Write "mode : " & session("mode") & "<br>" & vbCrLf
if session("login_name") = "" or session("member_id") = "" or session("mode") = "" then
%>
<script language="JavaScript" type="text/JavaScript">
window.alert("您还没有登录！");
//window.open("../member/login.asp","_self");
</script>
<%
	Response.Redirect("../member/login.asp")
	Response.End()
else
	with session("rs")
  	str = "select count(id) from message where [read]= 0 and receiver = " & session("member_id")
		.open str,session("conn")
		if session("rs")(0) > 0 then
%>
<script language="JavaScript" type="text/JavaScript">
if(window.confirm("你有新信息，是否察看？"))
	window.open("../message/list_message.asp","_blank","location=no,menubar=no,resizable=no,scrollbars=no,status=no,titlebar=no,toolbar=no,width=450,height=400");
</script>
<%
		end if
  	.close
	end with
end if
%>