qqcf_manage_do.asp

物流管理系统

<%
'==================================
' 乘风多用户计数器v3.8
' 制　作：乘　风
' 开发网站：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 声 明:	
' 本软件系免费程序,提供给个人免费使用,除保留版权外无其它任何限制。
' 我们为付费版用户提供升级服务和技术支持。
' 在程序首页保留乘风原创程序版权和链接的免费用户我们也提供一些的升级服务和技术支持。
' 未经作者许可禁止用于任何商业用途。
' 乘风多用户计数器特有的功能：
' 1.计数器数字图片和统计图标两种机制共存，众多设置可调。
' 2.Script脚本和Img非脚本两种方式调用计数器，Img非脚本方式计数器可以在任何能插入图片的地方使用。
' 3.独有的错误自动修复机制，能在计数器发生错误后自动修复。
' 4.完全杜绝并发线程容易对数据库造成的损坏，在流量大的网站上使用表现很稳定。
' 5.缓存机制，在缓存中保存数据，操作常见动作，大量减少对数据库的增加，删除频繁的操作。
' 6.稳定性、安全性、速度上表现都很优秀，功能齐全，代码集成程度高、完全公开，专业制作，完全免费。
' 乘风其它作品：乘风多用户计数器MsSql版、乘风多用户记数器php版、乘风电影程序、
'　　　　　　　 乘风网站推广系统、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'　　　　　　　　　　　2006年7月19日									
'===================================
%>
<%
If Request("Action")="alllydel" Then '所有来源清空
 Sql="Delete From WWW_QQCF_COM_CfCount_Ly Where User_Name='"&User_Name&"'"
 Conn.ExeCute Sql
 Call AlertBack("删除成功",1)
End If

If Request("Action")="beforelydel" Then '今天以前来源清空
 Sql="Delete From WWW_QQCF_COM_CfCount_Ly Where User_Name='"&User_Name&"' And DateDiff('d',AddDate,Now())>0"
 Conn.ExeCute Sql
 Call AlertBack("删除成功",1)
End If

If Request("Action")="allwebtjdel" Then '所有页面统计清空
 Sql="Delete From WWW_QQCF_COM_CfCount_WebCount Where User_Name='"&User_Name&"'"
 Conn.ExeCute Sql
 Call AlertBack("删除成功",1)
End If

If Request("Action")="beforewebtjdel" Then '今天以前页面统计清空
 Sql="Delete From WWW_QQCF_COM_CfCount_WebCount Where User_Name='"&User_Name&"' And DateDiff('d',AddDate,Now())>0"
 Conn.ExeCute Sql
 Call AlertBack("删除成功",1)
End If

If Request("Action")="jsqsetsave" Then '计数器设置
 ShowTotal=GoBack(Trim(Left(Server.HtmlEncode(Request("ShowTotal")),60)),"请输入计数显示数字!")
 PicNum=GoBack(Trim(Left(Server.HtmlEncode(Request("PicNum")),60)),"请输入计数器显示位数!")
 Adddate=GoBack(Trim(Left(Server.HtmlEncode(Request("Adddate")),60)),"请输入计数器开始计数时间!")
 CounterShow=Int(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 WWW_QQCF_COM_CfCount_RegUser Where User_Name='"&User_Name&"'"
 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 Request("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 WWW_QQCF_COM_CfCount_RegUser Where User_Name='"&User_Name&"'"
  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
  Rs("TodayLyOpen")=TjOpen
  Rs("OnlineOpen")=TjOpen
  Rs("TodayHourOpen")=TjOpen
  Rs("EveryDayOpen")=TjOpen
  Rs.Update
 
 Call AlertUrl("设置成功，转到预览计数的页面!","?Action=getcode")
End If

If Request("Action")="modifydatasave" Then
 Email=GoBack(Server.HtmlEncode(Trim(Request("Email"))),"请输入E-mail!")
 QQ=Server.HtmlEncode(Trim(Request("QQ")))
 PageName=GoBack(Server.HtmlEncode(Trim(Request("PageName"))),"请填入主页名称!")
 PageUrl=GoBack(Server.HtmlEncode(Trim(Request("PageUrl"))),"请填入主页网址!")

 If QQ="" Then QQ="-"

 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From WWW_QQCF_COM_CfCount_RegUser Where User_Name='"&User_Name&"'"
 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 request("action")="modifypasswordsave" Then '用户修改密码
 Password_Old=goback(Trim(Request("Password_Old")),"请输入旧密码")
 Password_New_1=goback(Trim(Request("Password_New_1")),"请输入新密码")
 Password_New_2=goback(Trim(Request("Password_New_2")),"请输入填入新密码")

 If Password_New_1<>Password_New_2 Then Call AlertBack("输入的确认新密码不一致",1)

 Set Rs= Server.CreateObject("Adodb.RecordSet")
 Sql="Select Password From WWW_QQCF_COM_CfCount_RegUser Where User_Name='"&User_Name&"'"
 Rs.Open Sql,Conn,3,2
 If Md5(Password_Old)<>Rs("Password") Then Call AlertBack("旧密码输入有错误",1)

 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="select * from WWW_QQCF_COM_CfCount_RegUser where user_name='"&User_Name&"'"
 Rs.Open Sql,Conn,3,2
 Rs("Password")=Md5(Password_New_1)
 Rs.update

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

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

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

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

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

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

 Call AlertUrl("修改成功!",Session("Url"))
End If

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

 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="select * from WWW_QQCF_COM_CfCount_RegUser where user_name='"&User_Name&"'"
 Rs.Open Sql,Conn,1,1
 If Rs("Password")<>Md5(Password) Then Call AlertBack("密码输入有误",1)

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

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

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

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

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

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

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

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

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

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

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

If Request("Action")="userdelsave" Then '账号删除
 Password=Goback(Trim(Request("Password")),"请输入密码确认")
 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="select * from WWW_QQCF_COM_CfCount_RegUser where user_name='"&User_Name&"'"
 Rs.Open Sql,Conn,1,1
 If Rs("Password")<>Md5(Password) Then Call AlertBack("密码输入有误",1)

 Sql="Delete From WWW_QQCF_COM_CfCount_Alexa_Count Where User_Name='"&User_Name&"'"
 Conn.ExeCute Sql
 Sql="Delete From WWW_QQCF_COM_CfCount_Back Where User_Name='"&User_Name&"'"
 Conn.ExeCute Sql
 Sql="Delete From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"'"
 Conn.ExeCute Sql
 Sql="Delete From WWW_QQCF_COM_CfCount_Hour_Count Where User_Name='"&User_Name&"'"
 Conn.ExeCute Sql
 Sql="Delete From WWW_QQCF_COM_CfCount_Ly Where User_Name='"&User_Name&"'"
 Conn.ExeCute Sql
 Sql="Delete From WWW_QQCF_COM_CfCount_RegUser Where User_Name='"&User_Name&"'"
 Conn.ExeCute Sql
 Sql="Delete From WWW_QQCF_COM_Cfcount_Search Where User_Name='"&User_Name&"'"
 Conn.ExeCute Sql
 Sql="Delete From WWW_QQCF_COM_CfCount_Search_Count Where User_Name='"&User_Name&"'"
 Conn.ExeCute Sql
 Sql="Delete From WWW_QQCF_COM_Cfcount_SearchKeywrod_Count Where User_Name='"&User_Name&"'"
 Conn.ExeCute Sql
 Sql="Delete From WWW_QQCF_COM_CfCount_Site Where User_Name='"&User_Name&"'"
 Conn.ExeCute Sql
 Sql="Delete From WWW_QQCF_COM_CfCount_WebCount Where User_Name='"&User_Name&"'"
 Conn.ExeCute Sql

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

If Request("Action")="getimgtype" Then
 Response.write "<META HTTP-EQUIV='Refresh' CONTENT='1;URL="&Tmp&"cf.asp?user_name="&user_name&"&assort=1'>"
 Response.End
End If

If Request("Action")="logout" Then
 Session("CfCountUser")=""
 Response.Cookies("CfCountCookie")=""
 Response.Cookies("CfCountUserCooKie")=""
 Response.Redirect "Index.asp"
End If

If Request("Action")="gourl" Then
 Url=UrlDe(Request("Url"))
 Call GotoUrl(Url)
End If
%>