qqcf_admin_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")="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")="back" then
 currf=request.form("currf")
 currf=server.mappath(currf)
 backf=request.form("backf")
 If backf<>"qqcf_data/back" Then Call Alertback("只能备份到qqcf_data下的back目录里",1)
 backf=server.mappath(backf)
 backfy=request.form("backfy")
 
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
if err then 
err.clear
Call AlertBack("不能建立fso对象，请确保你的空间支持fso:！",1)
End If

 if objfso.Folderexists(backf) then
 else
  Set fy=objfso.CreateFolder(backf)
 end if

 objfso.copyfile currf,backf& "\"& backfy
Call AlertBack("备份数据库成功!",1)

End If '数据库备份结束

if Request("Action")="ys" then
currf=request.form("currf")
currf = server.mappath(currf)
assort=request.form("assort")

Const JET_3X = 4
strDBPath = left(currf,instrrev(currf,"\"))
on error resume next
 Set objfso = Server.CreateObject("Scripting.FileSystemObject")
if err then 
err.clear
Call AlertBack("不能建立fso对象，请确保你的空间支持fso:！",1)
end if

 if objfso.fileexists(currf) then 
 Set Engine = CreateObject("JRO.JetEngine")
on error resume next

If assort = 1 Then
 Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "cftemp.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "cftemp.mdb"
End If
objfso.CopyFile strDBPath & "cftemp.mdb",currf
objfso.DeleteFile(strDBPath & "cftemp.mdb")
Set objfso = nothing
Set Engine = nothing
if err then 
err.clear
Call AlertBack("错误：很抱歉，由于系统错误，压缩失败:！",1)
end if

Call AlertBack("压缩数据库成功！",1)
Else

Call AlertBack("错误:找不到数据库文件！",1)
End If

End If '压缩数据结束

if Request("Action")="reload" then
 currf=request.form("currf")
 If Left(currf,10)<>"qqcf_data/" Then Call Alertback("只能恢复到qqcf_data目录里",1)
 currf=server.mappath(currf)
  backf=request.form("backf")
if backf="" then
	response.write "<script>alert(""请输入您要恢复的数据库全名"");history.back();</script>"	
	else
	backf=server.mappath(backf)
	end if
on error resume next
 Set objfso = Server.CreateObject("Scripting.FileSystemObject")
if err then 
	err.clear
response.write "<script>alert(""不能建立fso对象，请确保你的空间支持fso:！"");history.back();</script>"
response.end
	end if
 if objfso.fileexists(backf) then  
  objfso.copyfile ""&backf&"",""&currf&""
 response.write "<script>alert(""恢复数据库成功"");history.back();</script>"
response.end
 else
 response.write "<script>alert(""错误:备份目录下无您的备份文件！"");history.back();</script>"
 response.end

end if
end if 
%>