<%
'=========================================================
'　　　　　　　　　　　敬　剌　利　大
' Copyright (C) 2003-2005 feiyang.Com. All Rights Reserved.
' Web: http://www.feiyang.com
' QQ: 99686532        E-mail: bgh_edu@126.com
'=========================================================
%>
<%
If Session("CfWZ_Admin")="" Then
 if Request.cookies("CfWZ_Admin_Cookie")<>"" then
  CfWZ_Admin_Cookie=Request.Cookies("CfWZ_Admin_Cookie")

  Set Rs=Server.CreateObject("Adodb.RecordSet")
  Sql="Select Count(ID) From QQCF_Admin Where Cookie='"&CfWZ_Admin_Cookie&"'"
  Rs.Open Sql,Conn,1,1
   If Not Rs.Eof Then Session("CfWZ_Admin")="ok"
 End If
End IF
%>