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

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

If Action="apprenew" Then
 AppName = ChkStr(Request("AppName"),1)

 MyArray = Split(AppName, ",")
 For I = 0 To UBound(MyArray)
  Application(MyArray(I)) = Empty  '清空设置缓存
 Next
 
 Response.end
End If

If Action="sqlexesave" Then
 If AdminOnlineExecSql=0 Then Call AlertBack("Conn.asp里设置了系统禁止在线执行Sql语句",1)
 
 Pwd=GoBack(ChkStr(Trim(Request("Pwd")),1),"请输入确认密码")

 Set Rs= Server.CreateObject("Adodb.RecordSet")
 Sql="Select Pwd From CFCount_Admin"
 Rs.Open Sql,Conn,3,2
 If Md5(Pwd,1)<>Rs("Pwd") Then Call AlertBack("确认密码输入有错误",1)
 
 Sql = Request.Form("Sql")
 Conn.Execute(Sql)
 
 Call AlertBack("执行成功",1)
End If

If Action="adminuserlogout" Then
 Session("CFCountAdmin")=""
 Response.Cookies("CFCountAdminCookie")=""
 Response.Cookies("CFCountAdminCookie").Expires=Dateadd("n",-60,Now())
 Response.Redirect HttpPath(2)
End If
%>