cf_manage_do.asp

1.核心采用.Net、Mssql数据库、存储过程、缓存技术构建

<%
'乘风多用户计数器
'制作：乘　风
'QQ：178575
'E-Mail：[e-mail]
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfcount
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<%
If Action="subaddsave" Or Action="subgoto" Or Action="submodifysave" Or Action="subdel" Or Action="jsqsetsave" Or Action="jsqquicksetsave" Or Action="datamodifysave" Or Action="pwdmodifysave" Or Action="passwordanswermodifysave" Or Action="stylemodifysave" Or Action="imgmodifysave" Or Action="jsqresetsave" Or Action="userdelsave" Then
 If Session("CFCountUser_View")<>"" Then'为独立查看者时
  Call AlertBack("独立查看者无法对此操作",1)
 End If
End If

If Action="subaddsave" Then
 SubUserName=GoBack(ChkStr(Request("SubUserName"),1),"请填入子账号用户名!")
 Call CheckInput_Letter(SubUserName)
 
 Pwd=GoBack(ChkStr(Request("Pwd"),1),"请填入子账号密码!")
 Pwd2=GoBack(ChkStr(Request("Pwd2"),1),"请填入重复子账号密码!")
 
 If Pwd<>Pwd2 Then Call AlertBack("重复密码有误!",1)
 
 PageName=GoBack(Server.HtmlEncode(ChkStr(Request("PageName"),1)),"请填入站点名称!")
 PageUrl=GoBack(Server.HtmlEncode(ChkStr(Request("PageUrl"),1)),"请填入域名!")

 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Sql="Select Count(*) From CFCount_User Where UserName='"&SubUserName&"'"
 Rs.Open Sql,Conn,1,1
 If Rs(0)>0 Then Call AlertBack("此用户名已经被别人注册!",1)
 
 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Sql="Select Top 1 * From CFCount_User"
 Rs.Open Sql,Conn,3,2
 Rs.AddNew
 Rs("UserName")=SubUserName
 Rs("Pwd")=Md5(Pwd,1)
 Rs("ParentName")=UserName
 Rs("PageName")=PageName
 Rs("PageUrl")=PageUrl
 Rs.Update
 
 Call AlertBack("注册成功!",2)
End If


If Request("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.Redirect("Manage.asp")
End If

If Request("Action")="parentgoto" Then
 Session("CFCountUser")=Session("CFCountSubAdmin")
 Session("CFCountSubAdmin")=""
 Response.Redirect("Manage.asp")
End If

If Action="submodifysave" Then

 SubUserName=ChkStr(Request("SubUserName"),1)
 
 PageName=GoBack(Server.HtmlEncode(ChkStr(Request("PageName"),1)),"请填入站点名称!")
 PageUrl=GoBack(Server.HtmlEncode(ChkStr(Request("PageUrl"),1)),"请填入域名!")

 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From CFCount_User Where UserName='"&SubUserName&"' And ParentName='"&UserName&"'"
 Rs.Open Sql,Conn,3,2
 Rs("PageName")=PageName
 Rs("PageUrl")=PageUrl
 Rs.Update
 
 Call AlertBack("修改成功!",2)
End If

If Action="subdel" 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)

 Filename=SubUserName&".jpg"
 Filename_2=SubUserName&".gif"

 Set Fs = Server.CreateObject("Scripting.FileSystemObject")
 If Fs.FileExists(Server.mappath("Upload/"&Filename)) Then
  Set Os = Fs.GetFile(Server.mappath("Upload/"&Filename))
  Os.Delete
 End If

 If Fs.FileExists(Server.mappath("Upload/"&Filename_2)) Then
  Set Os = Fs.GetFile(Server.mappath("Upload/"&Filename_2))
  Os.Delete
 End If

 Sql="Delete From CFCount_Alexa_Day Where UserName='"&SubUserName&"'"
 Conn.ExeCute Sql
 Sql="Delete From CFCount_Back Where UserName='"&SubUserName&"'"
 Conn.ExeCute Sql
 Sql="Delete From CFCount_Count_Day Where UserName='"&SubUserName&"'"
 Conn.ExeCute Sql
 Sql="Delete From CFCount_Count_Hour Where UserName='"&SubUserName&"'"
 Conn.ExeCute Sql
 Sql="Delete From CFCount_Ly_Day Where UserName='"&SubUserName&"'"
 Conn.ExeCute Sql
 Sql="Delete From CFCount_User Where UserName='"&SubUserName&"'"
 Conn.ExeCute Sql
 Sql="Delete From CFCount_Search_Day Where UserName='"&SubUserName&"'"
 Conn.ExeCute Sql
 Sql="Delete From CFCount_SearchKeywrod_Day Where UserName='"&SubUserName&"'"
 Conn.ExeCute Sql

 Sql="Delete From CFCount_Web_Day Where UserName='"&UserName&"'"
 Conn.ExeCute Sql

 Call AlertBack("这个子账号已经完全删除！",1)
End If
 

If Action="jsqsetsave" Then '计数器设置
 ShowTotal=GoBack(ChkStr(Request("ShowTotal"),2),"请输入计数显示数字!")
 PicNum=GoBack(ChkStr(Request("PicNum"),2),"请输入计数器显示位数!")
 Adddate=GoBack(ChkStr(Request("Adddate"),3),"请输入计数器开始计数时间!")
 CounterShow=CInt(Request("CounterShow"))
 ShowType=Int(Request("ShowType"))
 CounterHiddenPic=Int(Request("CounterHiddenPic"))
 CounterSite=Int(Request("CounterSite"))
 ImgCounterShow=Int(Request("ImgCounterShow"))
 ImgShowType=Int(Request("ImgShowType"))
 Online=Int(Request("Online"))
 OnlineTime=Request("OnlineTime")
 OnlineShow=Int(Request("OnlineShow"))
 TodayShow=Int(Request("TodayShow"))
 TodayIpShow=Int(Request("TodayIpShow"))
 IpShow=Int(Request("IpShow"))
 VisitShow=Int(Request("VisitShow"))

 TjOpen=Int(Request("TjOpen"))
 SurveyOpen=Int(Request("SurveyOpen"))
 TodayLyOpen=Int(Request("TodayLyOpen"))
 OnlineOpen=Int(Request("OnlineOpen"))
 TodayHourOpen=Int(Request("TodayHourOpen"))
 EveryDayOpen=Int(Request("EveryDayOpen"))
 
 If Int(Picnum)<1 Or Int(Picnum)>8 Then Call AlertBack("请输入计数器显示位数在1-8之间!",1)
 If Onlinetime="" Then Call AlertBack("请输入记录在线人数的间隔时间!",1)
 If onlinetime<1 Or onlinetime>180 Then Call AlertBack("只能设置180分钟以内,一般设置在30分钟!",1)

 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From CFCount_User Where UserName='"&UserName&"'"
 Rs.Open Sql,Conn,3,2
 Rs("PicNum")=PicNum
 Rs("ShowTotal")=ShowTotal
 Rs("AddDate")=AddDate
 Rs("CounterShow")=CounterShow
 Rs("ShowType")=ShowType
 Rs("CounterHiddenPic")=CounterHiddenPic
 Rs("CounterSite")=CounterSite
 Rs("ImgCounterShow")=ImgCounterShow
 Rs("ImgShowType")=ImgShowType
 Rs("Online")=Online
 Rs("OnlineTime")=OnlineTime
 Rs("OnlineShow")=OnlineShow
 Rs("TodayShow")=TodayShow
 Rs("TodayIpShow")=TodayIpShow
 Rs("IpShow")=IpShow
 Rs("VisitShow")=VisitShow
 Rs("TjOpen")=TjOpen
 Rs("SurveyOpen")=SurveyOpen
 Rs("TodayLyOpen")=TodayLyOpen
 Rs("OnlineOpen")=OnlineOpen
 Rs("TodayHourOpen")=TodayHourOpen
 Rs("EveryDayOpen")=EveryDayOpen
 Rs.Update
 
 Response.Cookies("CFCountCookie")=""
 Call AlertUrl("修改成功!","?Action=jsqset")
End If

If Action="jsqquicksetsave" Then '计数器基本样式设置
 QuickStyle=Int(Request("QuickStyle"))
 TjOpen=Int(Request("TjOpen"))
 
 If QuickStyle=0 Then Call AlertBack("请选择一种基本样式!",1)

 If QuickStyle=1 Or QuickStyle=4 Then
  CounterShow=-1
  ShowType=1
  CounterHiddenPic=2
  CounterSite=3
 End if

 If QuickStyle=2 Or QuickStyle=5 Then
  CounterShow=0
  ShowType=1
  CounterHiddenPic=2
  CounterSite=3
 End if
 
 If QuickStyle=3 Or QuickStyle=6 Then
  CounterShow=0
  ShowType=2
  CounterHiddenPic=1
  CounterSite=3
 End if
 
 If QuickStyle=4 Or QuickStyle=5 Or QuickStyle=6 Then
  TjOpen=-1
  TjOpen_2=-1
 Else
  TjOpen_2=0
 End If
 
  Set Rs=Server.CreateObject("Adodb.RecordSet")
  Sql="Select * From CFCount_User Where UserName='"&UserName&"'"
  Rs.Open Sql,Conn,3,2
  Rs("CounterShow")=CounterShow
  Rs("ShowType")=ShowType
  Rs("CounterHiddenPic")=CounterHiddenPic
  Rs("CounterSite")=CounterSite
  Rs("OnlineShow")=TjOpen_2
  Rs("TodayShow")=TjOpen_2
  Rs("TodayIpShow")=TjOpen_2
  Rs("IpShow")=TjOpen_2
  Rs("VisitShow")=TjOpen_2
  Rs("TjOpen")=TjOpen
  Rs("SurveyOpen")=TjOpen