qqcf_admin_manage_do.asp

软件下载平台 软件下载平台

<%
' 乘风电影V3.5 Mssql版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 程序安装演示:http://www.qqcf.com/?Action=setup&Setup=cffilmforsql
' 使用帮助：http://www.qqcf.com/?Action=help&Help=cffilmforsql

' 功　能：
' 1.系统做免费或收费的电影网站都可以，支持免费，点数，包月等方式观看和下载电影
' 2.支持全站生成htm静态页面，生成速度极快，全自动生成
' 3.支持防盗链，可完全整合Helix和Servu服务器，完善的防盗链机制
' 4.在后台可以自由管理网站上的广告
' 5.支持网站上的注册用户在线支付购买电影点数，也可升级包月等方式
' 6.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>

<%
If Action="gotouser" Then
 UserName=ChkStr(Request("UserName"),1)

 Response.Cookies("CFFilmUserCookie")="" '如果以前存在Cookies则删除
 Response.Cookies("CFFilmUserCookie").Expires=Dateadd("n",-60,Now())
 Session("CFFilmUser")=UserName

 Response.Redirect("Manage.asp")
End If '转到用户页

If Action="sysmodifysave" Then
 Application("CFFilmMySet") = Empty'清空Asp里的配置
 Response.redirect "?Action=sysmodify"
End If

If Action="othersetmodifysave" Then
 Application("CFFilmMySet") = Empty'清空Asp里的配置
 Response.redirect "?Action=othersetmodify"
End If

If Action="sysrecsetsave" Then
 
 If RsSet("RegType=4") Then
  MyStr="<?"&vbcrlf
  MyStr=MyStr&"$dbhost="""&RsSet("SqlServerIP")&""";"&vbcrlf
  MyStr=MyStr&"$dbuser="""&RsSet("SqlServerLinkName")&""";"&vbcrlf
  MyStr=MyStr&"$dbpwd="""&RsSet("SqlServerLinkPassword")&""";"&vbcrlf
  MyStr=MyStr&"$dbname="""&RsSet("SqlServerDbName")&""";"&vbcrlf
  MyStr=MyStr&"$dbport=""3306"";"&vbcrlf
  
  MyStr=MyStr&"$saveregtable="""&RsSet("saveregtable")&""";"&vbcrlf
  MyStr=MyStr&"$saveregusername="""&RsSet("saveregusername")&""";"&vbcrlf
  MyStr=MyStr&"$saveregpassword="""&RsSet("saveregpassword")&""";"&vbcrlf
  MyStr=MyStr&"$passwordtype="&RsSet("passwordtype")&";"&vbcrlf

  MyStr=MyStr&"$conn_user = mysql_connect($dbhost."":"".$dbport,$dbuser,$dbpwd);"&vbcrlf
  MyStr=MyStr&"if (!$conn_user) die (""对不起，发生错误！ 请检查qqcf_phpuserrec.php中数据库的配置是否正确！"");"&vbcrlf
  MyStr=MyStr&"mysql_select_db($dbname,$conn_user);"&vbcrlf
  MyStr=MyStr&"?>"
  
  Set fso = Server.CreateObject("Scripting.FileSystemObject")'php数据库接口文件
  Set fout = fso.Createtextfile(server.mappath("qqcf_phpuserrec.php"),true)
  fout.writeline MyStr
  
  MyCode=FSOFileRead("QQCF_RecLogin.asp")
  MyArray=Split(MyCode,"php_rec_login_code")

  Set fout = fso.Createtextfile(server.mappath("qqcf_phplogin.php"),true)'php登陆文件
  fout.writeline MyArray(1)
 
  Set fout = fso.Createtextfile(server.mappath("QQCF_Temp.asp"),true)'php登陆临时文件
  fout.writeline ""
 End If
 
 If RsSet("RegType=4")=1 Then Call AlertUrl("修改成功","?Action=sysrecset")
 If RsSet("RegType=4")=2 Or RegType=3 Then Call AlertUrl("修改成功，请查看数据库接口设置是否正确的测试结果！","?Action=sysrecset#sysrecsetresultview")
 If RsSet("RegType=4")=4 Then Call AlertUrl("修改成功，请在系统首页用原网站用户登陆，能登陆则表示设置正确","?Action=sysrecset")
End If'接口设置

If Action="sqlexesave" Then
 If AdminOnlineExecSql=0 Then Call AlertBack("Conn.asp里设置了系统禁止在线执行Sql语句",1)

 Pwd=GoBack(ChkStr(Trim(Request("Pwd")),1),"请输入确认密码")

 Set Rs= Server.CreateObject("Adodb.RecordSet")
 Sql="Select Pwd From CFFilm_Admin"
 Rs.Open Sql,Conn,3,2
 If Md5(Pwd,1)<>Rs("Pwd") Then Call AlertBack("确认密码输入有错误",1)
 
 Sql = Request.Form("Sql")
 Conn.Execute(Sql)
 
 Call AlertBack("执行成功",1)
End If

If Action="dbys" Then
 Sql = "DUMP TRANSACTION [" & DbName & "] WITH NO_LOG"
 Conn.Execute Sql
 Sql = "backup log [" & DbName & "] with no_log"
 Conn.Execute Sql
 Sql = "dbcc shrinkdatabase('" & DbName & "',truncateonly)"
 Conn.Execute Sql
 
 Call AlertBack("压缩成功",1)
End If

If Action="dbbackup" Then
 MyPath = Server.MapPath("qqcf_data")

 Sql = "backup database " & DbName & " to disk='"&MyPath&"\backup_"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&".bak'"
 Conn.Execute Sql
 
 Call AlertBack("备份成功",1)
End If

If Action="dbdel" Then
 DbMc=ChkStr(Request("DbMc"),1)
 
If Lcase(StrReverse(Left(StrReverse(DbMc),4)))<>".bak" Then Call Alertback("只能删除扩展名为bak的备份数据库文件",1)

 Set Fs = Server.CreateObject("Scripting.FileSystemObject")
 Set Os = Fs.GetFile(Server.mappath("qqcf_data/"&DbMc))
 Os.Delete


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


If Action="adminlogout" Then
 Session("CFFilmAdmin")=""
 Response.Cookies("CFFilmAdminCooKie")=""
 Response.Cookies("CFFilmAdminCooKie").Expires=Dateadd("n",-60,Now())
 Response.Redirect "QQCF_Admin.asp"
End If
%>