<%
session("admin")="admin"
if session("admin")<>"admin" then 
response.write "Sorry,ÄúÔÚ·Ç·¨µÇÂ½£¡"
response.end
else
set conn = Server.CreateObject("ADODB.Connection")
connstr="DBQ="+server.mappath("../database.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
end if
%>