%
url = request.servervariables("QUERY_STRING")
if request("AllParameter")<>"" then
Response.Redirect request("AllParameter")
end if
if Session("Vertify")<>"" and Request.Cookies("mangauser")("id")<>"" then
Response.Redirect url
else
%>
<%
id = Request.Cookies("mangauser")("id")
sql = "select grade from member where id = '"& id &"'"
set rs = server.CreateObject("adodb.recordset")
rs.open sql,connstr,1
'---0308Áö¿µ¼öÁ¤-----------------
if not rs.eof or not rs.bof then
grade = rs("grade")
end if
'------------------------------
if id = "¿î¿µÀÚ" or grade = "10" then
Response.Redirect url
else
%>