adminfso.asp

本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

    <td width="100%" bgcolor="#F4F6FC" colspan="2" height="35" align="center">
    <input type="submit" value="     确  认  修  改     " name="B1"></td>
  </tr>
</table></div>
</form>


<%case"setadvok"
dim adv_num,ad_msg
set fso1 = server.createobject("scripting.filesystemobject")
Set openfile=fso1.OpenTextFile(Server.MapPath("../inc/ads.js"))
tmpstr=openfile.readall
tmp=split(tmpstr,chr(13)&chr(10))
ad_num=replace(tmp(1),"a = ","")
ad_num=int(replace(ad_num,";if(a==0){a=1}",""))
openfile.close
set fso1=nothing
adv_num=0
for ad_i=1 to ad_num+1
ad_tmp=replace(request.form("ad_v"&ad_i&""),"'","")
if trim(ad_tmp)<>"" or isnull(ad_tmp)then
adv_num=adv_num+1
ad_msg=ad_msg&"b["&adv_num&"].under ='"&ad_tmp&"'"&vbcrlf
end if
next
dim objFSO,objname
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objname=objFSO.CreateTextFile(Server.MapPath("../inc/ads.js"),True)
objname.Write"<!--"&vbcrlf&"a = "&adv_num&";if(a==0){a=1}"&vbcrlf&"var slump = Math.random();"&vbcrlf&"var talet = Math.round(slump * (a-1))+1;"&vbcrlf&"function create() { "&vbcrlf&"this.under = '' "&vbcrlf&"}"&vbcrlf&"b = new Array() "&vbcrlf&"for(var i=1; i<=a; i++) { b[i] = new create() } "&vbcrlf&ad_msg&"var visa = """";"&vbcrlf&"document.write(b[talet].under); "&vbcrlf&"//-->"
objname.close
set objfso=nothing
response.redirect"adminfso.asp?action=setadv"
%>
<%case"access"%>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
  <tr>
    <td width="100%" colspan="2" height="20" bgcolor="#F4F6FC">　</td>
  </tr>
<form method="POST" action="adminfso.asp?action=compact"><tr>
    <td class=td1 width="100%" colspan="2" height="32" bgcolor="#F4F6FC">&nbsp;<span style="font-weight: 400"><font color="#000000">压缩数据库：</font></span><input type="submit" value="  点击开始压缩  " name="B1"></td>
  </tr></form>
  <tr>
    <td width="100%" colspan="2" height="20" bgcolor="#F4F6FC">　</td>
  </tr><form method="POST" action="adminfso.asp?action=bak">
  <tr>
    <td class=td1 width="100%" colspan="2" height="28" background="pic/titlebg.gif">
    &nbsp;<span style="font-weight: 400"><font color="#000000">备份数据库</font></span></td>
  </tr>
  <tr>
    <td class=td2 width="30%" height="30">
    <p style="margin: 5"><span style="font-weight: 400"><font color="#000000">原来的数据库路径：</font></span></td>
    <td width="70%">
    <input type="text" name="using" size="39" value="data/原来的数据库名.mdb"></td>
  </tr>
  <tr>
    <td class=td2 height="30">
    <p style="margin: 5"><span style="font-weight: 400"><font color="#000000">备份的数据库路径：</font></span></td>
    <td><input type="text" name="bak" size="39" value="data/备份的数据库名.mdb"></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#F4F6FC" align="center" height="32">
    <input type="submit" value="   确  定  备  份   " name="B1"></td>
  </tr></form>
  <form method="POST" action="adminfso.asp?action=restore">
  <tr>
    <td class=td1 width="100%" colspan="2" bgcolor="#F4F6FC" height="20">
    　</td>
  </tr>
  <tr>
    <td class=td1 width="100%" colspan="2" height="28" background="pic/titlebg.gif">
    &nbsp;<span style="font-weight: 400"><font color="#000000">恢复数据库</font></span></td>
  </tr>
  <tr>
    <td class=td2 width="30%" height="30">
    <p style="margin: 5"><span style="font-weight: 400"><font color="#000000">备份的数据库路径：</font></span></td>
    <td width="70%">
    <input type="text" name="bak" size="39" value="data/备份的数据库名.mdb"></td>
  </tr>
  <tr>
    <td class=td2 height="30">
    <p style="margin: 5"><span style="font-weight: 400"><font color="#000000">原来的数据库路径：</font></span></td>
    <td><input type="text" name="using" size="39" value="data/原来的数据库名.mdb"></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#F4F6FC" align="center" height="32">
    <input type="submit" value="   确  定  恢  复   " name="B1"></td>
  </tr></form>
</table>
</div>
<%
case"compact"
closedb
Const JET_3X = 4
Dim fso, Engine
Set fso = CreateObject("Scripting.FileSystemObject")
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase ConnStr,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../data/temp.mdb")
fso.CopyFile Server.MapPath("../data/temp.mdb"),Server.MapPath(db)
fso.DeleteFile(Server.MapPath("../data/temp.mdb"))
Set fso = nothing
Set Engine = nothing
call send("压缩成功。")
%>
<%case"bak"
set fso=Server.CreateOBject("Scripting.FileSystemObject")
if fso.fileexists(Server.MapPath(Request("using"))) and trim(replace(request("using"),"'",""))=db then
fso.CopyFile Server.MapPath(Request("using")),Server.MapPath(Request("bak"))
call send("备份成功。")
else
call send("备份失败，请确定您输入的路径都正确。")
end if
set fso=nothing
%>
<%case"restore"
set fso=Server.CreateOBject("Scripting.FileSystemObject")
if fso.fileexists(Server.MapPath(Request("bak"))) and trim(replace(request("using"),"'",""))=db and instr(trim(replace(request("bak"),"'","")),"upload")<=0 then
fso.CopyFile Server.MapPath(Request("bak")),Server.MapPath(Request("using"))
call send("恢复成功。")
else
call send("恢复失败，请确定您输入的路径都正确。")
end if
set fso=nothing
case"upload"
%>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%" bgcolor="#F4F6FC">
        <tr>
      <td width="100%" height="32">&nbsp;&nbsp;&nbsp;
		<a href="adminupload.asp">上传文件详细列表管理</a>　</td>
    </tr>
<tr>
      <td width="100%" height="32">&nbsp;&nbsp;&nbsp;
		<a href="adminface.asp">上传头像详细列表管理</a>　</td>
    </tr>
        <tr>
      <td width="100%" height="32">&nbsp;&nbsp;&nbsp;
		<a href="adminfso.asp?action=delnovisit">清理超过一个月没有访问的文件</a></td>
    </tr>
    <tr>
      <td width="100%" height="32">&nbsp;&nbsp;&nbsp;
		<a href="adminfso.asp?action=deluphalfyear">
		清理半年前上传的文件</a></td>
    </tr>    <tr>
      <td width="100%" height="32">&nbsp;&nbsp; <a href="adminfso.asp?action=delnouse">
		清理帖子中没有使用到的文件</a></td>
    </tr>
  </table>
</div>
<%
dim folder,files,upname,errmsg
case"deluphalfyear"
set fso=server.createobject("scripting.filesystemobject")
if not fso.FolderExists(server.mappath("../upload/tobedel/")) then
fso.CreateFolder(server.mappath("../upload/tobedel/"))
end if
set folder=fso.Getfolder(server.MapPath("../upload/"))
set files=folder.files
for Each Upname In files
if datediff("d",upname.datecreated,now)>180 then
fso.MoveFile server.mappath("../upload/"&upname.name),server.mappath("../upload/tobedel/"&upname.name)
end if
next
call send("半年以前上传的文件已经被转移至upload/tobedel目录下。")
set folder=nothing
set files=nothing
set fso=nothing

case"delnovisit"
set fso=server.createobject("scripting.filesystemobject")
if not fso.FolderExists(server.mappath("../upload/tobedel/")) then
fso.CreateFolder(server.mappath("../upload/tobedel/"))
end if
set folder=fso.Getfolder(server.MapPath("../upload/"))
set files=folder.files
for Each Upname In files
if datediff("d",upname.DateLastAccessed,now)>30 then
'处理要删除的文件
fso.MoveFile server.mappath("../upload/"&upname.name),server.mappath("../upload/tobedel/"&upname.name)
end if
next
call send("超过一个月没有访问的上传文件已经被转移至upload/tobedel目录下。")
set folder=nothing
set files=nothing
set fso=nothing

case"delnouse"
set fso=server.createobject("scripting.filesystemobject")
if not fso.FolderExists(server.mappath("../upload/tobedel/")) then
fso.CreateFolder(server.mappath("../upload/tobedel/"))
end if
usedtable=application(prefix&"usedtable")
usedtable=split(usedtable,"|")
for i=1 to ubound(usedtable)
set rs=conn.execute("select id,filename from [upload] where bbsid=0 or (bbsid not in(select bbsid from bbs"&usedtable(i)&") and totable="&usedtable(i)&")")
do while not rs.eof
fso.MoveFile server.mappath("../upload/"&rs("filename")),server.mappath("../upload/tobedel/"&rs("filename"))
conn.execute("delete from [upload] where id="&rs("id")&"")
rs.movenext
loop
set rs=nothing
next
call send("帖子中没有使用的上传文件已经被转移至upload/tobedel目录下。")
set fso=nothing
%>

<%end select%></td>
  </tr>
</table>
<%call admindown%>