qqcf_admin_manage_do.asp

功 能： 1.系统分别为每个网站注册会员分配了一个推广链接

 Rs("SqlServerLinkName")=SqlServerLinkName
 Rs("SqlServerLinkPassword")=SqlServerLinkPassword
 Rs("SaveRegTable")=SaveRegTable
 Rs("SaveRegUserName")=SaveRegUserName
 Rs("SaveRegPassword")=SaveRegPassword
 Rs("PassWordType")=PassWordType
 Rs("RegUrl")=RegUrl
 Rs("LoginUrl")=LoginUrl
 Rs.Update
 
 If RegType=4 Then
  MyStr="<?"&vbcrlf
  MyStr=MyStr&"$dbhost="""&SqlServerIP&""";"&vbcrlf
  MyStr=MyStr&"$dbuser="""&SqlServerLinkName&""";"&vbcrlf
  MyStr=MyStr&"$dbpwd="""&SqlServerLinkPassword&""";"&vbcrlf
  MyStr=MyStr&"$dbname="""&SqlServerDbName&""";"&vbcrlf
  MyStr=MyStr&"$dbport=""3306"";"&vbcrlf
  
  MyStr=MyStr&"$saveregtable="""&saveregtable&""";"&vbcrlf
  MyStr=MyStr&"$saveregusername="""&saveregusername&""";"&vbcrlf
  MyStr=MyStr&"$saveregpassword="""&saveregpassword&""";"&vbcrlf
  MyStr=MyStr&"$passwordtype="&passwordtype&";"&vbcrlf
  
  MyStr=MyStr&"$syscode="""&syscode&""";"&vbcrlf
  
  MyStr=MyStr&"$conn = mysql_connect($dbhost."":"".$dbport,$dbuser,$dbpwd);"&vbcrlf
  MyStr=MyStr&"if (!$conn) die (""对不起，发生错误！ 请检查conn.php中数据库的配置是否正确！"");"&vbcrlf
  MyStr=MyStr&"mysql_select_db($dbname,$conn);"&vbcrlf
  MyStr=MyStr&"?>"
  
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Set fout = fso.Createtextfile(server.mappath("qqcf_phpconn.php"),true)
  fout.writeline MyStr
 End If

 If RegType=1 Then Call AlertUrl("修改成功","?Action=sysrecset")
 If RegType=2 Or RegType=3 Then Call AlertUrl("修改成功，请查看数据库接口设置是否正确的测试结果！","?Action=sysrecset#sysrecsetresultview")
 If RegType=4 Then Call AlertUrl("修改成功，请在系统首页用原网站用户登陆，能登陆则表示设置正确","?Action=sysrecset")
End If'接口设置

If Action="sysreclogintest" Then
 User_Name=GoBack(Trim(Request("User_Name")),"请输入用户名")
 Password=GoBack(Trim(Request("Password")),"请输入密码")

 If RsSet("RegType")=2 Then
  Connstr_Rec="DBQ="+server.mappath(RsSet("AccessPath"))+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
  Set conn_Rec= Server.CreateObject ("ADODB.Connection")
  Conn_Rec.Open Connstr_Rec
 ElseIf RsSet("RegType")=3 Then
  Connstr_rec="DRIVER={SQL Server};SERVER="&RsSet("SqlServerIP")&";UID="&RsSet("SqlServerLinkName")&";PWD="&RsSet("SqlServerLinkPassword")&";DATABASE="&RsSet("SqlServerDbName")&""
  Set Conn_Rec= Server.CreateObject ("ADODB.Connection")
  Conn_Rec.Open Connstr_rec
 End If

 If RsSet("PassWordType")=2 Then Sql="Select * From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&User_Name&"'"
 If RsSet("PassWordType")=3 Then Sql="Select * From "&RsSet("SaveRegTable")&" where "&RsSet("SaveRegUserName")&"='"&User_Name&"'"

 Set Rs=Conn_Rec.ExeCute(Sql)
 
 If Rs.Eof Then
  Call AlertBack("用户名不存在",1)
 Else
  SaveRegPassword=RsSet("SaveRegPassword")

  If RsSet("PassWordType")=1 then   
   If Rs(SaveRegPassword)<>Password Then Call AlertBack("密码的加密方式有误或输入的密码有误",1)
  ElseIf RsSet("PassWordType")=2 then
   If Rs(SaveRegPassword)<>Md5(Password,1) Then Call AlertBack("密码的加密方式有误或输入的密码有误",1)
  ElseIf RsSet("PassWordType")=3 then
   If Rs(SaveRegPassword)<>Md5(Password,2) Then Call AlertBack("密码的加密方式有误或输入的密码有误",1)
  End If
 End if

 Call AlertBack("恭喜，登陆成功，接口设置一切正常!",1)
End if'接口登陆测试

If Action="qqmodifysave" Then
 QQ_State=Request("QQ_State")
 QQ_Code=goback(trim(request("QQ_Code")),"请填入QQ号码")

 Set Rs = Server.CreateObject("Adodb.Recordset")
 Sql="Select * From WWW_QQCF_COM_CfWztg_Admin"
 Rs.Open Sql,Conn,3,2
 Rs("QQ_State")=QQ_State
 Rs("QQ_Code")=QQ_Code
 Rs.Update

 Call AlertBack("修改成功",1)
End If

If Action="emailserversetsave" Then
 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_CfWztg_Admin"
 Rs.Open Sql,conn,3,2
 Rs("EamilSendType")=EamilSendType
 Rs("JmailAddress")=JmailAddress
 Rs("JmailUser")=JmailUser
 Rs("JmailPassword")=JmailPassword
 Rs.Update

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

If Action="testsetsave" Then

 Ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
 If Ip = "" Then Ip=Request.ServerVariables("REMOTE_ADDR")
  
 Application("AdUpUser")=Empty'清除推荐人缓存

 Myarray = split(Ip,".")
 Ip_1 = Myarray(0)
 Ip_2 = Myarray(1)
 
 Sql="Delete From (SELECT Mid(IP, 1, instr(IP,'.')-1) As Ip_1 FROM WWW_QQCF_COM_CfWztg_Visit_Ip Where ID IN (Select Top 10 ID From WWW_QQCF_COM_CfWztg_Visit_Ip Order By ID Desc)) Temp Where Ip_1='"& IP_1 &"'"
 Conn.ExeCute Sql'删除数据库中的IP

 Sql="Select ID From WWW_QQCF_COM_CfWztg_AD Where AdState=2"
 Set Rs=Conn.ExeCute(Sql)
 While Not Rs.Eof
  Response.Cookies("CfWztg"&Rs("ID")&"ClickCookie")=""'清除所有广告点击过的IP
  Application("AllIp_"&Rs("ID"))=Replace(Application("AllIp_"&Rs("ID")),Ip&"|","")
 Rs.MoveNext
 Wend
 
 Call AlertBack("设置成功",1)

End If  '恢复本电脑为测试状态

If Action="pwdmodifysave" 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_CfWztg_Admin"
 Rs.Open Sql,Conn,3,2
 Rs("Admin")=Admin
 Rs("Password")=Md5(Password,1)
 Rs.Update

 Call AlertBack("修改成功",1)
End If

If Action="infoaddsave" Then
 Assort=GoBack(Request("Assort"),"请选择要公告的对象")
 Content=GoBack(Left(Trim(request("Content")),6000),"请输入公告内容")

 Set Rs = Server.CreateObject("ADODB.Recordset")
 Sql="Select * From WWW_QQCF_COM_CfWztg_SysInfo"
 Rs.Open Sql,Conn,3,2
 Rs.AddNew
 Rs("Assort")=Assort
 Rs("Content")=Content
 Rs.Update

 Call AlertBack("增加成功",2)
End If '公告增加

If Action="infomodifysave" Then
 ID=Request("ID")
 Content=GoBack(Left(Trim(request("Content")),6000),"请输入公告内容")

 Set Rs = Server.CreateObject("ADODB.Recordset")
 Sql="Select * From WWW_QQCF_COM_CfWztg_SysInfo Where ID="&ID
 Rs.Open Sql,Conn,3,2
 Rs("Content")=Content
 Rs.Update

 Call AlertBack("修改成功",2)
End If '公告修改

If Action="infodel" Then
 ID=Request("ID")
 Sql="Delete From WWW_QQCF_COM_CfWztg_SysInfo where ID="&ID
 Conn.ExeCute Sql
 Call AlertBack("删除成功",1)
End If  '公告删除

If Action="gbookreplysave" Then
 ID=Request("ID")
 Reply=GoBack(Left(Trim(Request("Reply")),6000),"请输入回复内容")

 Set Rs = Server.CreateObject("ADODB.Recordset")
 Sql="Select * From WWW_QQCF_COM_CfWztg_Gbook where ID="&ID
 Rs.Open Sql,Conn,3,2
 Rs("Reply")=Reply
 Rs("ReplyTime")=Now()
 Rs.Update

 Call AlertBack("回复成功",2)
end if '回复留言成功

If Action="gbookdel" Then
 ID=Request("ID")

 Sql="Delete From WWW_QQCF_COM_CfWztg_Gbook where ID="&ID
 Conn.ExeCute Sql

 Call AlertBack("删除成功",1)
End If  '回复删除


If 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 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 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

If Action="adminlogout" Then
 Session("CfWztgAdmin")=""
 Response.Cookies("CfWztgAdminCooKie")=""
 Response.Redirect("Index.asp")
End If
%>