<%
'乘风多用户计数器 Sql版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<%
If Action="subgoto" Then
 SubUserName=ChkStr(Request("SubUserName"),1)
 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="select * from CFCount_User where UserName='"&SubUserName&"'"
 Rs.Open Sql,Conn,1,1
 If Rs("ParentName")<>UserName Then Call AlertBack("没有权限",1)
 
 Session("CFCountSubAdmin")=UserName
 
 Session("CFCountUser")=SubUserName
 Response.Cookies("CFCountUserCookie")=""
 Response.Cookies("CFCountUserCookie").Expires=Dateadd("n",-60,Now())
 
 Response.Redirect("User_Manage.asp")
End If

If Action="parentgoto" Then
 Session("CFCountUser")=Session("CFCountSubAdmin")
 Response.Cookies("CFCountUserCookie")=""
 Response.Cookies("CFCountUserCookie").Expires=Dateadd("n",-60,Now())
 
 Session("CFCountSubAdmin")=""
 Response.Redirect("User_Manage.asp")
End If

If Action="urlgo" Then
 Url=URLDecode(Request("Url"))
 Call GotoUrl(Url)
End If

If Action="userlogout" Then
 Session("CFCountUser")=""
 Session("CFCountUser_View")=""
 Response.Cookies("CFCountUserCookie")=""
 Response.Cookies("CFCountUserCookie").Expires=Dateadd("n",-60,Now())
 Response.Redirect "Index.asp"
End If
%>