cf_manage_do.asp

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

  Rs("TodayLyOpen")=TjOpen
  Rs("OnlineOpen")=TjOpen
  Rs("TodayHourOpen")=TjOpen
  Rs("EveryDayOpen")=TjOpen
  Rs.Update
 
 Call AlertUrl("设置成功，转到预览计数的页面!","?Action=getcode")
End If

If Action="datamodifysave" Then
 Pwd=Goback(ChkStr(Request("Pwd"),1),"请输入密码确认")
 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="select * from CFCount_User where UserName='"&UserName&"'"
 Rs.Open Sql,Conn,1,1
 If Rs("Pwd")<>Md5(Pwd,1) Then Call AlertBack("密码输入有误",1)
 
 Email=GoBack(ChkStr(Request("Email"),1),"请输入E-mail!")
 QQ=ChkStr(Request("QQ"),1)
 PageName=GoBack(ChkStr(Request("PageName"),1),"请填入主页名称!")
 PageUrl=GoBack(ChkStr(Request("PageUrl"),1),"请填入主页网址!")

 If QQ="" Then QQ="-"

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

If Action="pwdmodifysave" Then '用户修改密码
 Pwd=goback(ChkStr(Request("Pwd"),1),"请输入新管理密码")
 Pwd2=goback(ChkStr(Request("Pwd2"),1),"请输入确认新管理密码")
 Pwd_View=goback(ChkStr(Request("Pwd_View"),1),"请输入新查看密码")
 Pwd_View2=goback(ChkStr(Request("Pwd_View2"),1),"请输入确认新查看密码")
 Pwd_Old=goback(ChkStr(Request("Pwd_Old"),1),"请输入旧管理密码确认")

 If Pwd<>Pwd2 Then Call AlertBack("新管理密码不一致",1)
 If Pwd_View<>Pwd_View2 Then Call AlertBack("新查看密码不一致",1)

 Set Rs= Server.CreateObject("Adodb.RecordSet")
 Sql="Select Pwd From CFCount_User Where UserName='"&UserName&"'"
 Rs.Open Sql,Conn,3,2
 If Md5(Pwd_Old,1)<>Rs("Pwd") Then Call AlertBack("输入的旧管理密码有错误",1)

 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="select * from CFCount_User where UserName='"&UserName&"'"
 Rs.Open Sql,Conn,3,2
 Rs("Pwd")=Md5(Pwd,1)
 Rs("Pwd_View")=Md5(Pwd_View,1)
 Rs.update

 Call AlertBack("密码修改成功",1)
End If

If Action="passwordanswermodifysave" Then '用户修改提示问题和答案
 
 Set rs = Server.CreateObject("ADODB.Recordset")
 sql="select * from CFCount_User where UserName='"&UserName&"'"
 rs.open sql,conn,1,1
 If Rs("PasswordAsk")<>"-" Then
  PasswordAnswer_Old=GoBack(ChkStr(Request("PasswordAnswer_Old"),1),"请输入原密码回答答案")
  if Rs("PasswordAnswer")<>Md5(PasswordAnswer_Old,1) Then Call AlertBack("原密码回答答案有错误",1)
 End If

 PasswordAsk_New=GoBack(ChkStr(Request("PasswordAsk_New"),1),"请输入新密码提示问题")
 PasswordAnswer_New=GoBack(ChkStr(Request("PasswordAnswer_New"),1),"请输入新密码回答答案")

 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="select * from CFCount_User where UserName='"&UserName&"'"
 Rs.Open Sql,Conn,3,2
 Rs("PasswordAsk")=PasswordAsk_New
 Rs("PasswordAnswer")=Md5(PasswordAnswer_New,1)
 Rs.update
 Call AlertBack("修改成功,请牢记！",1)
End If

If Action="stylemodifysave" Then
 Style=GoBack(ChkStr(Request("Style"),2),"请选择一种你喜欢样式!")
 CounterShow=Int(Request("CounterShow"))

 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From CFCount_User where UserName='"&UserName&"'"
 Rs.Open Sql,Conn,3,2
 Rs("CounterShow")=CounterShow
 Rs("style")=style
 Rs.Update

 Call AlertUrl("修改成功!","?Action=stylelist")
End If


If Action="imgmodifysave" Then
 Assort=Int(Request("Assort"))
 FileName_2=ChkStr(Request("FileName_2"),1)

 If Assort=2 And FileName_2="" Then
  Call AlertBack("请选择图片",1)
 Else
  FileName=FileName_2
 End If

 If Assort=3 Then FileName="default.jpg"

 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From CFCount_User where UserName='"&UserName&"'"
 Rs.Open Sql,Conn,3,2
 Rs("ImgFileName")=FileName
 Rs.Update

 Call AlertUrl("修改成功!","Manage.asp?Action=imglist")
End If

If Action="jsqresetsave" Then '计数器重置
 Pwd=Goback(ChkStr(Request("Pwd"),1),"请输入密码确认")

 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="select * from CFCount_User where UserName='"&UserName&"'"
 Rs.Open Sql,Conn,1,1
 If Rs("Pwd")<>Md5(Pwd,1) Then Call AlertBack("密码输入有误",1)
 If Not(Rs("ParentName")="-" Or Session("CFCountSubAdmin")<>"") Then Call AlertBack("无权限操作",1)'父账号和从父账号管理进入以外的情况禁止操作

 If Int(Request("ly"))=-1 Then
  Sql="Delete From CFCount_Ly_Day Where UserName='"&UserName&"'"
  Conn.ExeCute Sql
 End if

 If Int(Request("daytj"))=-1 Then
  Sql="Delete From CFCount_Count_Day Where UserName='"&UserName&"'"
  Conn.ExeCute Sql
 End if

 If Int(Request("hourtj"))=-1 Then
  Sql="Delete From CFCount_Count_Hour Where UserName='"&UserName&"'"
  Conn.ExeCute Sql
 End if

 If Int(Request("backtj"))=-1 Then
  Sql="Delete From CFCount_Back Where UserName='"&UserName&"'"
  Conn.ExeCute Sql
 End if

 If Int(Request("alexatj"))=-1 Then
  Sql="Delete From CFCount_Alexa_Day Where UserName='"&UserName&"'"
  Conn.ExeCute Sql
 End if

 If Int(Request("searchtj"))=-1 Then
  Sql="Delete From CFCount_Search_Day Where UserName='"&UserName&"'"
  Conn.ExeCute Sql
 End if

 If Int(Request("keywordtj"))=-1 Then
  Sql="Delete From CFCount_SearchKeywrod_Day Where UserName='"&UserName&"'"
  Conn.ExeCute Sql
 End if

 If Int(Request("webtj"))=-1 Then
  Sql="Delete From CFCount_Web_Day Where UserName='"&UserName&"'"
  Conn.ExeCute Sql
 End if

 If Int(Request("RealShowTotal"))=-1 Then
  Sql="Update CFCount_User Set RealShowTotal=0 Where UserName='"&UserName&"'"
  Conn.ExeCute Sql
 End if

 If Int(Request("RealIpTotal"))=-1 Then
  Sql="Update CFCount_User Set RealIpTotal=0 Where UserName='"&UserName&"'"
  Conn.ExeCute Sql
 End if

 Call Alertback("你的已经重置成功！",1)
End If

If Action="userdelsave" Then '账号删除
 Pwd=Goback(ChkStr(Request("Pwd"),1),"请输入密码确认")
 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="select * from CFCount_User where UserName='"&UserName&"'"
 Rs.Open Sql,Conn,1,1
 If Rs("Pwd")<>Md5(Pwd,1) Then Call AlertBack("密码输入有误",1)
 If Not(Rs("ParentName")="-" Or Session("CFCountSubAdmin")<>"") Then Call AlertBack("无权限操作",1)'父账号和从父账号管理进入以外的情况禁止操作

 Filename=UserName&".jpg"
 Filename_2=UserName&".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='"&UserName&"'"
 Conn.ExeCute Sql
 Sql="Delete From CFCount_Back Where UserName='"&UserName&"'"
 Conn.ExeCute Sql
 Sql="Delete From CFCount_Count_Day Where UserName='"&UserName&"'"
 Conn.ExeCute Sql
 Sql="Delete From CFCount_Count_Hour Where UserName='"&UserName&"'"
 Conn.ExeCute Sql
 Sql="Delete From CFCount_Ly_Day Where UserName='"&UserName&"'"
 Conn.ExeCute Sql
 Sql="Delete From CFCount_User Where UserName='"&UserName&"'"
 Conn.ExeCute Sql
 Sql="Delete From CFCount_Search_Day Where UserName='"&UserName&"'"
 Conn.ExeCute Sql
 Sql="Delete From CFCount_SearchKeywrod_Day Where UserName='"&UserName&"'"
 Conn.ExeCute Sql
 Sql="Delete From CFCount_Web_Day Where UserName='"&UserName&"'"
 Conn.ExeCute Sql

 Call AlertUrl("你的账号已经完全删除！","?Action=logout")
End If

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

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