qqcf_admin_manage_do.asp

这是一个用ASP编制而成的网业计数器

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

End If

If Request("Action")="modifyusersave" Then
ID=Request("ID")
AdminDesc=Request("AdminDesc")

If AdminDesc="" Then AdminDesc="-"

Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfCount_RegUser Where ID="&ID
Rs.Open Sql,Conn,3,2
Rs("AdminDesc")=AdminDesc
Rs.Update

Call AlertBack("修改用户资料成功!",1)

End If

If Request("Action")="syssetmodifysave" Then
Title=GoBack(Trim(Request("Title")),"请输入计数器名称!")
Title=Replace(Title,"""","")'替换掉双引号
RegeditState=Request("RegeditState")
LyKeep=Request("LyKeep")
OnlineKeep=Request("OnlineKeep")
StyleTotal=GoBack(Trim(Request("StyleTotal")),"请输入图片样式数量!")
LogoUrl=GoBack(Trim(Request("LogoUrl")),"请输入计数器系统上的Logo图片地址!")
EamilSendType=Trim(Request("EamilSendType"))
JmailAddress=Trim(Request("JmailAddress"))
JmailUser=Trim(Request("JmailUser"))
JmailPassword=Trim(Request("JmailPassword"))

Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfCount_Admin"
Rs.Open Sql,conn,3,2
Rs("Title")=Title
Rs("RegeditState")=RegeditState
Rs("LyKeep")=LyKeep
Rs("OnlineKeep")=OnlineKeep
Rs("StyleTotal")=StyleTotal
Rs("LogoUrl")=LogoUrl
Rs("EamilSendType")=EamilSendType
Rs("JmailAddress")=JmailAddress
Rs("JmailUser")=JmailUser
Rs("JmailPassword")=JmailPassword
Rs.Update

Call AlertBack("修改管理员资料成功!",1)

End if

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

SiteDesc=GoBack(Trim((Lcase(Request("SiteDesc")))),"请输入搜索引擎中文名")
SiteFlag=GoBack(Trim((Lcase(Request("SiteFlag")))),"请输入搜索引擎英文标识")
KeywordFlag=GoBack(Trim((Lcase(Request("KeywordFlag")))),"请输入搜索关键字的参数")
SiteFlag=Replace(SiteFlag,",")
SiteFlag=Replace(SiteFlag,"|")
KeywordFlag=Replace(KeywordFlag,",")
KeywordFlag=Replace(KeywordFlag,"|")


Sql="Select Count(*) From WWW_QQCF_COM_Cfcount_Search Where SiteFlag='"&SiteFlag&"'"
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_Search"
Rs.Open Sql,Conn,3,2
Rs.AddNew
Rs("SiteDesc")=SiteDesc
Rs("SiteFlag")=SiteFlag
Rs("KeywordFlag")=KeywordFlag
Rs.Update

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

End If

If Request("Action")="modifysearch1save" Then
ID=Request("ID")
KeywordFlag=GoBack(Trim((Lcase(Request("KeywordFlag")))),"请输入搜索关键字的参数")
KeywordFlag=Replace(KeywordFlag,",")
KeywordFlag=Replace(KeywordFlag,"|")


Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_Cfcount_Search where ID="&ID
Rs.Open Sql,Conn,3,2
Rs("KeywordFlag")=KeywordFlag
Rs.Update

Call AlertBack("修改成功!",2)

End If

If Request("Action")="modifysearch2save" Then
ID=Request("ID")
SiteDesc=GoBack(Trim((Lcase(Request("SiteDesc")))),"请输入搜索引擎中文名")
SiteFlag=GoBack(Trim((Lcase(Request("SiteFlag")))),"请输入搜索引擎英文标识")
KeywordFlag=GoBack(Trim((Lcase(Request("KeywordFlag")))),"请输入搜索关键字的参数")

Sql="Select Count(*) From WWW_QQCF_COM_Cfcount_Search Where SiteFlag='"&SiteFlag&"' And ID<>"&ID
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 * From WWW_QQCF_COM_Cfcount_Search Where ID="&ID
Rs.Open Sql,Conn,3,2
Rs("SiteDesc")=SiteDesc
Rs("SiteFlag")=SiteFlag
Rs("KeywordFlag")=KeywordFlag
Rs.Update

Call AlertBack("修改成功!",2)

End If

If Request("Action")="delsearch" Then
SiteFlag=Request("SiteFlag")
Sql="Delete From WWW_QQCF_COM_Cfcount_Search Where SiteFlag='"&SiteFlag&"'"
Conn.ExeCute Sql
Sql="Delete From WWW_QQCF_COM_CfCount_Search_Count Where SiteFlag='"&SiteFlag&"'"
Conn.ExeCute Sql

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

End If  '自定义删除

If Request("Action")="modifypwdsave" Then
Admin=GoBack(Trim(Request("Admin")),"请输入管理员名称!")
Password=GoBack(Trim(Request("Password")),"请输入密码!")
Password2=GoBack(Trim(Request("Password2")),"请重新输入密码!")

If Password<>Password2 Then Call Alertback("两次输入的密码不一致",1)


Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfCount_Admin"
Rs.Open Sql,conn,3,2
Rs("Admin")=Admin
Rs("Password")=Md5(Password)
Rs.Update

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

End if

If Request("Action")="alllydel" Then
Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Delete From WWW_QQCF_COM_CfCount_Ly"
Rs.Open Sql,Conn,3,2

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

End if

If Request("Action")="adminlogout" Then
Session("CfCountAdmin")=""
Response.Cookies("CfCountAdminCookie")=""
Response.Redirect "QQCF_Index.Asp"
End If

If Request("Action")="goto" Then
Session("CfCountUser")=Request("User_Name")	
Response.Redirect("QQCF_Manage.Asp")
End If

If Request("Action")="allonlinedel" Then
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Delete From WWW_QQCF_COM_CfCount_Online"
Rs.Open Sql,Conn,3,2
Call AlertBack("删除成功!",1)
End If

If Request("Action")="proregsave" Then
LicensedCode=goback(Trim(Request("LicensedCode")),"请输入程序序列号")

Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfCount_Admin"
Rs.Open Sql,Conn,3,2
rs("LicensedCode")=LicensedCode
rs.update

Call AlertBack("修改成功",1)
end if '输入程序序列号

If Request("Action")="proregview_2" Then
Set Myobj = Server.CreateObject ("qqcf_cfwztg.license")
Response.write Myobj.KeyCheck_2(RsSet("LicensedCode"),2)
Response.End
end if '检查序列号是否正确
%>