qqcf_admin_manage_do.asp

动态自定义报表,真正的中国式报表,可自行编辑

<%
'==================================
' 乘风网址 v3.1
' 制　作：乘　风
' 开发网站：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 声 明:	
' 本软件系免费程序,提供给个人免费使用,除保留版权外无其它任何限制。
' 我们为付费版用户提供升级服务和技术支持。
' 在程序首页保留乘风原创程序版权和链接的免费用户我们也提供一些的升级服务和技术支持。
' 未经作者许可禁止用于任何商业用途。
' 乘风网址功能：
' 1.同时支持Access和Mssql数据库
' 2.完全生成静态页面，包括每个网址转向页面
' 3.支持修改模板，支持二级栏目
' 4.自带4000多条网址数据，支持系统放在网站子目录
' 乘风其它作品：乘风多用户计数器.net,php,access,MsSql版、乘风电影程序、
'　　　　　　　 乘风网站推广系统、乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'　　　　　　　　　　　2006年12月25日									
'===================================
%>
<%
If Action="classaddsave" Then
 Menu=CInt(ChkStr(request("Menu"),2))
 UpID=CInt(ChkStr(request("UpID"),2))

 ClassName=goback(ChkStr(trim(request("ClassName")),1),"请填入类别名称!")
 ListID=CInt(ChkStr(trim(request("ListID")),2))
 State=CInt(ChkStr(Request("State"),2))
 Memo=ChkStr(trim(request("Memo")),1)

 IF Memo="" Then Memo="-"

 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="Select Top 1 * From WWW_QQCF_COM_CFWZ_Class"
 Rs.Open Sql,Conn,3,2
 Rs.addnew
 Rs("Menu")=Menu
 Rs("UpID")=UpID
 Rs("ClassName")=ClassName
 Rs("ListID")=ListID
 Rs("State")=State
 Rs("Memo")=Memo
 Rs.update

 Sql="Select Top 1 * From WWW_QQCF_COM_CFWZ_Class Order By ClassID Desc"
 Set Rs=Conn.Execute(Sql)
 ClassID=Rs("ClassID")

 If State=-1 Then
  Call IndexGx()
  Call ClassGx(ClassID,0)
  If UpID<>0 Then  Call ClassGx(UpID,0)
 End If 

 Call AlertBack("类别加入成功",2)
End If       '类别加入

If Action="classmodifysave" Then
 Menu=CInt(ChkStr(Request("Menu"),2))

 ClassID=CInt(ChkStr(Request("ClassID"),2))
 ClassName=goback(ChkStr(Trim(Request("ClassName")),1),"请填入类别名称!")
 ListID=CInt(ChkStr(Trim(Request("ListID")),2))
 State=CInt(ChkStr(Request("State"),2))
 Memo=ChkStr(Trim(Request("Memo")),1)

 UpID=CInt(ChkStr(Request("UpID"),2))

 IF Memo="" Then Memo="-"

 Set Rs= Server.CreateObject("ADODB.Recordset")
 Sql="Select * From WWW_QQCF_COM_CFWZ_Class where classid="&classid
 Rs.Open Sql,Conn,3,2
 Rs("Menu")=Menu
 Rs("ClassName")=ClassName
 Rs("ListID")=ListID
 Rs("State")=State
 Rs("Memo")=Memo
 Rs.update

 Call IndexGx()
 Call ClassGx(ClassID,0)
 If UpID<>0 Then Call ClassGx(UpID,0)

 Call AlertBack("类别修改成功",2)
end if       '类别修改

if Action="classdel" then
 ClassID=ChkStr(Request("classid"),2)
 
 Set rs= Server.CreateObject("ADODB.Recordset")
 sql="delete from WWW_QQCF_COM_CFWZ_Class where classid="&ClassID
 rs.open sql,conn,3,2
 Call IndexGx()

 savepath = "list/list_"&ClassID&".htm"

 Set Fs = Server.CreateObject("Scripting.FileSystemObject")
 If Fs.FileExists(server.mappath(savepath)) Then
  Set Os = Fs.GetFile(server.mappath(savepath))
  Os.Delete
 End If
 
 Call AlertBack("类别删除成功",1)
end if       '类别删除

if Action="wzaddsave" then
 Title=goback(ChkStr(trim(request("Title")),1),"请填入网站名称!")
 Url=goback(ChkStr(trim(request("Url")),1),"请填入网站地址!")
 Memo=ChkStr(trim(request("Memo")),1)
 ClassID=goback(ChkStr(trim(request("ClassID")),2),"请选择网站类别!")
 State=CInt(ChkStr(request("State"),2))
 ListID=goback(ChkStr(trim(request("ListID")),2),"请填入排序数字!")
 Total=goback(ChkStr(trim(request("Total")),2),"请填入游览总数!")

 if Memo="" then Memo="-"

 Set rs= Server.CreateObject("ADODB.Recordset")
 sql="select Top 1 * from WWW_QQCF_COM_CFWZ_WebSite"
 rs.open sql,conn,3,2
 rs.addnew
 rs("Title")=Title
 rs("Url")=Url
 rs("Memo")=Memo
 rs("ClassID")=ClassID
 rs("State")=State
 rs("ListID")=ListID
 rs("Total")=Total
 rs.update

 Sql="select Top 1 ID from WWW_QQCF_COM_CFWZ_WebSite order by Id Desc"
 Set Rs=Conn.Execute(Sql)
 ID=Rs("ID")

 Call WebSiteGx(ID)

 Call ClassGx(ClassID,0)
 
 Set Rs=Server.CreateObject("ADODB.RecordSet")'对上级页面进行更新
 Sql="Select * From WWW_QQCF_COM_CFWZ_Class Where ClassID="&ClassID
 Rs.Open Sql,Conn,1,1
 If Rs("UpID")>0 Then
  Set Rs2=Server.CreateObject("ADODB.RecordSet")
  Sql="Select * From WWW_QQCF_COM_CFWZ_Class Where ClassID="&Rs("UpID")
  Rs2.Open Sql,Conn,1,1
  Call ClassGx(Rs2("ClassID"),0)
 End If


 Call AlertUrl("网址加入成功",Session("Url"))
end if

if Action="wzmodifysave" then
 id=ChkStr(request("id"),2)
 Title=goback(ChkStr(trim(request("Title")),1),"请填入网站名称!")
 Url=goback(ChkStr(trim(request("Url")),1),"请填入网站地址!")
 Memo=ChkStr(trim(request("Memo")),1)
 ClassID=goback(ChkStr(trim(request("ClassID")),2),"请选择网站类别!")
 State=ChkStr(request("State"),2)
 ListID=goback(ChkStr(trim(request("ListID")),2),"请填入排序数字!")
 Total=goback(ChkStr(trim(request("Total")),2),"请填入游览总数!")

 if Memo="" then Memo="-"

 Set rs= Server.CreateObject("ADODB.Recordset")
 sql="select * from WWW_QQCF_COM_CFWZ_WebSite where id="&id
 rs.open sql,conn,3,2
 rs("Title")=Title
 rs("Url")=Url
 rs("Memo")=Memo
 rs("ClassID")=ClassID
 rs("State")=State
 rs("ListID")=ListID
 rs("Total")=Total
 rs.update

 Set rs= Server.CreateObject("ADODB.Recordset")
 sql="select * from WWW_QQCF_COM_CFWZ_WebSite where id="&id
 rs.open sql,conn,1,1
 ClassID=Rs("ClassID")

 Call WebSiteGx(ID)

 Call ClassGx(ClassID,0)
 
 Set Rs=Server.CreateObject("ADODB.RecordSet")'对上级页面进行更新
 Sql="Select * From WWW_QQCF_COM_CFWZ_Class Where ClassID="&ClassID
 Rs.Open Sql,Conn,1,1
 If Rs("UpID")>0 Then
  Set Rs2=Server.CreateObject("ADODB.RecordSet")
  Sql="Select * From WWW_QQCF_COM_CFWZ_Class Where ClassID="&Rs("UpID")
  Rs2.Open Sql,Conn,1,1
  Call ClassGx(Rs2("ClassID"),0)
 End If
 
 ClassID_Old=ChkStr(Request("ClassID_Old"),1)
 If Int(ClassID_Old)<>Int(ClassID) Then
  Call ClassGx(ClassID_Old,0)
  Set Rs=Server.CreateObject("ADODB.RecordSet")'对上级页面进行更新
  Sql="Select * From WWW_QQCF_COM_CFWZ_Class Where ClassID="&ClassID_Old
  Rs.Open Sql,Conn,1,1
  If Rs("UpID")>0 Then
   Set Rs2=Server.CreateObject("ADODB.RecordSet")
   Sql="Select * From WWW_QQCF_COM_CFWZ_Class Where ClassID="&Rs("UpID")
   Rs2.Open Sql,Conn,1,1
   Call ClassGx(Rs2("ClassID"),0)
  End If
 End If

 Call AlertUrl("网址修改成功",Session("Url"))
end if

if Action="wzdel" then

 ID=ChkStr(request("id"),2)

 Set rs= Server.CreateObject("ADODB.Recordset")
 sql="select * from WWW_QQCF_COM_CFWZ_WebSite where id="&ID
 rs.open sql,conn,1,1
 ClassID=Rs("ClassID")

 Set rs= Server.CreateObject("ADODB.Recordset")
 sql="delete from WWW_QQCF_COM_CFWZ_WebSite where id="&ID
 rs.open sql,conn,3,2

 savepath = "go/go_"&ID&".htm"

 Set Fs = Server.CreateObject("Scripting.FileSystemObject")
 If Fs.FileExists(server.mappath(savepath)) Then
  Set Os = Fs.GetFile(server.mappath(savepath))
  Os.Delete
 End If

 Call ClassGx(ClassID,0)
 
 Set Rs=Server.CreateObject("ADODB.RecordSet")'对上级页面进行更新
 Sql="Select * From WWW_QQCF_COM_CFWZ_Class Where ClassID="&ClassID
 Rs.Open Sql,Conn,1,1
 If Rs("UpID")>0 Then
  Set Rs2=Server.CreateObject("ADODB.RecordSet")
  Sql="Select * From WWW_QQCF_COM_CFWZ_Class Where ClassID="&Rs("UpID")
  Rs2.Open Sql,Conn,1,1
  Call ClassGx(Rs2("ClassID"),0)
 End If

 Call AlertUrl("网址删除成功",Session("Url"))
end if       '网址删除

If Action="pwdmodifysave" Then
 Password_Old=GoBack(ChkStr(Trim(Request("Password_Old")),1),"请输入原管理员密码")
 Admin=GoBack(ChkStr(Trim(Request("Admin")),1),"请输入管理员名称")
 Password=GoBack(ChkStr(Trim(Request("Password")),1),"请输入密码")
 Password2=GoBack(ChkStr(Trim(Request("Password2")),1),"请输入重复密码")

 If PassWord<>PassWord2 Then Call AlertBack("输入的密码不一致，请重新输入一遍!",1)
 
 Set Rs= Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From WWW_QQCF_COM_CfWz_Admin"
 Rs.Open Sql,Conn,3,2
 If Md5(Password_Old)<>Rs("Password") Then Call AlertBack("旧密码输入有错误",1)

 Rs("Admin")=Admin
 Rs("Password")=Md5(Password)
 Rs.Update

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

If Action="othersetmodifysave" Then


 MyStr=MyStr&"SysCode="&Goback(ChkStr(Request("SysCode"),1),"请输入系统安全码")&"|"

 Sql="Update WWW_QQCF_COM_CFWZ_Admin set OtherSet='"&Mystr&"'"
 Conn.Execute Sql
 
 Application("Cfwz_MySet") = Empty'清空Asp里的配置

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

if Action="statemodify" then
 ID=ChkStr(Request("ID"),2)
 Reply=CInt(ChkStr(Request("Reply"),2)) 
 
 Set rs= Server.CreateObject("ADODB.Recordset")
 sql="select * from WWW_QQCF_COM_CFWZ_Gbook Where ID="&ID
 rs.open sql,conn,3,2
 Content = Rs("Content")
 rs("Reply")=-1
 rs.update 

 If Reply=0 And Instr(Content,"|")>0 Then
  MyArray = Split(Content, "|")
  For I = 0 To UBound(MyArray)
   If LCase(Left(MyArray(I), Len("Title"))) = LCase("Title") Then Title = Mid(MyArray(I), Len("Title") + 2)
   If LCase(Left(MyArray(I), Len("ClassID"))) = LCase("ClassID") Then ClassID = Mid(MyArray(I), Len("ClassID") + 2)
   If LCase(Left(MyArray(I), Len("Url"))) = LCase("Url") Then Url = Mid(MyArray(I), Len("Url") + 2)
   If LCase(Left(MyArray(I), Len("Meno"))) = LCase("Meno") Then Meno = Mid(MyArray(I), Len("Meno") + 2)
  Next
  
  Response.Redirect "?Action=wzaddsave&Title="&Title&"&ClassID="&ClassID&"&Url="&Server.UrlEncode(Url)&"&Meno="&Meno&"&State=-1&ListID=0&Total=0"
  Response.End
 End If

 Call AlertUrl("处理成功","?action=gbooklist")
end if

if Action="gbookdel" then
 ID=ChkStr(Request("ID"),2) 

 Set rs= Server.CreateObject("ADODB.Recordset")
 sql="delete from WWW_QQCF_COM_CFWZ_Gbook Where ID="&ID
 rs.open sql,conn,3,2 

 Call AlertUrl("删除成功","?action=gbooklist")
end if

if Action="indexhtmmake" then

 Call IndexGx()

 Call AlertBack("更新静态首页成功!",1)
end if

if Action="classhtmmake" then
 
GetClass=ChkStr(Request("GetClass"),2)

If GetClass=0 Then
 FolderPath="List"
 CreateFolder(FolderPath)
 
 FolderPath="Go"
 CreateFolder(FolderPath)
 
 UrlHtm=Int(Request("UrlHtm"))
 Application("UrlHtm")=UrlHtm

 Sql="Update WWW_QQCF_COM_CFWZ_Admin Set UrlHtm="&UrlHtm
 Conn.Execute Sql
 
 Set Rs=Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From WWW_QQCF_COM_CFWZ_Class Order By ClassID Desc"
 Rs.Open Sql,Conn,1,1
 While Not Rs.Eof		
  AllClassID=AllClassID&Rs("ClassID")&","
 Rs.MoveNext
 Wend
 AllClassID=Left(AllClassID,Len(AllClassID)-1)
 MakeNum=0
Else
 AllClassID=ChkStr(Request("AllClassID"),1)
 MakeNum=Int(Request("MakeNum"))
End If

  MyArrary=Split(AllClassID,",")
  If MakeNum>Ubound(MyArrary) Then
   Call AlertUrl("全部生成完毕","QQCF_Admin_Manage.asp?Action=htmmake")
   Response.End
  End If
  
  ClassID=Int(MyArrary(MakeNum))
  Call ClassGx(ClassID,1)
  Response.write "分类:"&ClassID&"更新完毕，操作还在继续其它分类　　<a href='?QQCF_Admin_Manage.asp?Action=htmmake'><b>取消返回</b></a> <META HTTP-EQUIV='Refresh' CONTENT='0;URL=?Action=classhtmmake&GetClass=1&AllClassID="&AllClassID&"&MakeNum="&MakeNum+1&"'>"
  
  Response.End
End if


If Action="sqlexesave" Then
 Password=GoBack(ChkStr(Trim(Request("Password")),1),"请输入确认密码")

 Set Rs= Server.CreateObject("Adodb.RecordSet")
 Sql="Select * From WWW_QQCF_COM_CfWz_Admin"
 Rs.Open Sql,Conn,3,2
 If Md5(Password)<>Rs("Password") Then Call AlertBack("确认密码输入有错误",1)
 
 Sql = Request.Form("Sql")
 MyArray = Split(Sql, Chr(13) & Chr(10))
 
 For I = 0 To UBound(MyArray)
  If Len(MyArray(I))>5 Then Conn.Execute(MyArray(I))
 Next
 
 Call AlertBack("执行成功",1)
End If

If Action="dbys" Then

 If DbType=1 Then
 YsDbName="backup_"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&".mdb"
 TgDbName="backup_"&year(now)&month(now)&day(now)&hour(now)&minute(now)&(second(now)+1)&".mdb"

 Set Fs = Server.CreateObject("Scripting.FileSystemObject")
 Fs.copyfile Server.MapPath(DbPath),Server.MapPath("qqcf_data\"&YsDbName)
 
  Const JET_3X = 4
  Set Engine = CreateObject("JRO.JetEngine")
  on error resume next
  Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("qqcf_data\"&YsDbName) , "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("qqcf_data\"&TgDbName)

  Fs.CopyFile Server.MapPath("qqcf_data\"&TgDbName),Server.MapPath(DbPath)
  
 ElseIf DbType=2 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
 
 End If
 
 Call AlertBack("压缩成功",1)
End If

If Action="dbbackup" Then
 If DbType=1 Then
 Set Fs = Server.CreateObject("Scripting.FileSystemObject")
 Fs.copyfile Server.MapPath(DbPath),Server.MapPath("qqcf_data\backup_"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&".mdb")
 ElseIf DbType=2 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
 End If
 Call AlertBack("备份数据库成功!",1)
End If '数据库备份结束


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

 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("CfWZAdmin")=""
 Response.cookies("CfWZAdminCookie")=""
 Response.Redirect "QQCF_Admin.asp"
end if
%>