qqcf_manage_do.asp

1.40种记数器图片样式自由选择

<%
'==================================
' 乘风多用户计数器v3.4
' 制　作：乘　风
' 网　站：http://www.qqcf.com
' 系统演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 声 明:	
' 本软件系免费程序,提供给个人免费使用,但不提供服务和升级。
' 付费版提供升级服务和技术支持。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器MsSql版、乘风多用户记数器php版、乘风免费电影程序、
'　　　　　　　 乘风网站推广系统、乘风网址程序，乘风广告管理、系统乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'　　　　　　　　　　　2005年11月27日									
'===================================
%>
<%
If Request("Action")="lydel" 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")="onlinedel" Then

Sql="Delete From WWW_QQCF_COM_CfCount_Online Where User_Name='"&User_Name&"'"
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)),"请输入计数器开始计数时间!")
ShowType=Request("ShowType")
CounterShow=Int(Request("CounterShow"))
CounterSite=Request("CounterSite")
ImgCounterShow=Int(Request("ImgCounterShow"))
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 Int(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("ShowType")=ShowType
Rs("AddDate")=AddDate
Rs("CounterShow")=CounterShow
Rs("CounterSite")=CounterSite
Rs("ImgCounterShow")=ImgCounterShow
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("CfCount")=""
Call AlertUrl("修改成功!","?Action=jsqset")

End If

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

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=goback(left(Trim(request("password")),60),"请填入新密码")
password2=goback(left(Trim(request("password2")),60),"请再次填入新密码")


If password<>password2 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)
 Rs.update
Call AlertBack("修改成功",1)

End If '用户修改密码

If request("action")="modifyanswersave" Then

PasswordAsk=Server.HtmlEncode(Trim(Request("PasswordAsk")))
PasswordAnswer=Server.HtmlEncode(Trim(Request("PasswordAnswer")))

If PasswordAsk="" Then PasswordAsk="-"
If PasswordAnswer="" Then PasswordAnswer="-"

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
Rs("PasswordAnswer")=Md5(PasswordAnswer)
Rs.update
Call AlertBack("修改成功,请牢记！",1)

End If '用户修改密码

If Request("Action")="stylemodifysave" Then

style=GoBack(Trim(Left(Server.HtmlEncode(Request("style")),60)),"请选择一种你喜欢样式!")

style=server.htmlencode(style)

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("style")=style
Rs.Update
Call AlertUrl("修改成功!","?Action=stylelist")

End If

If Request("Action")="lynameaddsave" Then

LyNameDesc=GoBack(Trim(Left(Server.HtmlEncode(Lcase(Request("LyNameDesc"))),100)),"请输入你自定义统计描述!")
LyName=GoBack(Trim(Left(Server.HtmlEncode(Lcase(Request("LyName"))),100)),"请输入你自定义统计关键字!")

Sql="Select Count(*) From WWW_QQCF_COM_Cfcount_LyName Where User_Name='"&User_Name&"' And LyName='"&LyName&"'"
Set Rs=Server.CreateObject("Adodb.RecordSet")
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 WWW_QQCF_COM_Cfcount_LyName"
Rs.Open Sql,Conn,3,2
Rs.AddNew
Rs("User_Name")=User_Name
Rs("LyNameDesc")=LyNameDesc
Rs("LyName")=LyName
Rs.Update

Call AlertBack("加入成功!",1)

End If

If Request("Action")="lynamedel" Then
LyName=Request("LyName")
Sql="Delete From WWW_QQCF_COM_Cfcount_LyName Where User_Name='"&User_Name&"' And LyName='"&LyName&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfCount_LyName_Count Where User_Name='"&User_Name&"' And LyName='"&LyName&"'"
Conn.ExeCute Sql

Call AlertBack("删除成功",1)

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("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("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_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_Online 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

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

End If  '账号删除


If Request("Action")="logout" Then
 Session("CfCountUser")=""
 Response.Cookies("CfCountCookie")=""
 Response.Cookies("CfCountUserCooKie")=""
 Response.Redirect "QQCF_Index.Asp"
End If
%>