session.asp

公司通讯录 Jaddress 1.0

<%
if session("password")<>"" then
 Set rs= Server.CreateObject("ADODB.Recordset")
	sql="select * from manager"
rs.open sql,Conn,1,1
	rs.movefirst 
	if session("password")<>rs("password") then
		response.redirect "login.asp"
	end if
	rs.close
else
	response.redirect "login.asp"
end if
%>