qqcf_admin_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")="lyreset" Then
 Sql="Update WWW_QQCF_COM_CfCount_Admin Set Store_TotalLy=0"
 Conn.ExeCute Sql
 Call AlertBack("复原成功",1)
End If

If Request("Action")="beforelydel" Then
 Sql="Delete From WWW_QQCF_COM_CfCount_Ly Where DateDiff('d',AddDate,Now())>0"
 Conn.ExeCute Sql
 Call AlertBack("删除成功",1)
End If

If Request("Action")="beforewebdel" Then
 Sql="Delete From WWW_QQCF_COM_CfCount_WebCount Where DateDiff('d',AddDate,Now())>0"
 Conn.ExeCute Sql
 Call AlertBack("删除成功",1)
End If

If Request("Action")="deluser" Then
 User_Name=Request("User_Name")
 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 AlertBack("删除成功!",1)
End If

If Request("Action")="modifyusersave" Then
 ID=Request("ID")
 State=Request("State")
 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("State")=State
 Rs("AdminDesc")=AdminDesc
 Rs.Update

 Call AlertUrl("修改用户资料成功!",Session("Url"))
End If

If Request("Action")="syssetmodifysave" Then
 Title=GoBack(Trim(Request("Title")),"请输入计数器名称!")
 Title=Replace(Title,"""","")'替换掉双引号
 Title=Replace(Title,"'","")'替换掉单引号
 
 TjTextName=GoBack(Left(Trim(Request("TjTextName")),8),"请输入计数器名称!")
 TjTextName=Replace(TjTextName,"""","")'替换掉双引号
 TjTextName=Replace(TjTextName,"'","")'替换掉单引号
 
 RegeditState=Request("RegeditState")
 LyKeep=Request("LyKeep")
 OnlineKeep=Request("OnlineKeep")
 WebKeep=Request("WebKeep")
 StyleTotal=GoBack(Trim(Request("StyleTotal")),"请输入图片样式数量!")
 LogoUrl=GoBack(Trim(Request("LogoUrl")),"请输入计数器系统上的Logo图片地址!")
 IpArea=Trim(Request("IpArea"))
 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("TjTextName")=TjTextName
 Rs("RegeditState")=RegeditState
 Rs("LyKeep")=LyKeep
 Rs("OnlineKeep")=OnlineKeep
 Rs("WebKeep")=WebKeep
 Rs("StyleTotal")=StyleTotal
 Rs("LogoUrl")=LogoUrl
 Rs("IpArea")=IpArea
 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_Admin.asp"
End If

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

if Request("Action")="back" 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<>"qqcf_data/back" Then Call Alertback("只能备份到qqcf_data下的back目录里",1)
 backf=server.mappath(backf)
 backfy=request.form("backfy")
 If StrReverse(Left(StrReverse(backfy),4))<>".mdb" Then Call Alertback("只能备份为扩展名为mdb的数据库文件",1)
  
 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")
 If Left(currf,14)<>"qqcf_data/back" Then Call Alertback("只能压缩qqcf_data/back文件夹下的数据库文件",1)
 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)
 If StrReverse(Left(StrReverse(currf),4))<>".mdb" Then Call Alertback("只能恢复成为扩展名为mdb的数据库文件",1)
 currf=server.mappath(currf)
 backf=request.form("backf")
 If Left(backf,14)<>"qqcf_data/back" Then Call Alertback("只能从qqcf_data/back备份目录还原数据",1)
 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
%>