admin.asp
来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 233 行
ASP
233 行
<!--#include file="inc/pstart.asp"-->
<%Admin="bbs"%>
<!--#include file="../check.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/bbs_admin.asp"-->
<HTML><HEAD><TITLE>Hxcms管理中心——论坛管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="../inc/admin.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey))>
<%
'****************************************************
' Hxcms Ver7.6 Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.com.cn
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
'if session("adminlogin")<>sessionvar then
'Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='../admin.asp';</script>")
'response.end
'end if
select case request.querystring("act")
case "del_bbsid" call del_bbsid()
case "add_bbsid" call add_bbsid()
case "managebbsid" call managebbsid()
case "edit_bbsid_send" call edit_bbsid_send()
case "del_bbs" call del_bbs()
case "add_bbs" call add_bbs()
case "edit_bbs_send" call edit_bbs_send()
case "managebbs" call managebbs()
case "managebbssetsend" call managebbssetsend()
case "add_diary" call add_diary()
case "del_diary" call del_diary()
case "add_admin" call add_admin()
case "edit_admin_send" call edit_admin_send()
case "del_admin" call del_admin()
case "managebzhu" bbs_admin_bzhu_send()
end select
%>
<table width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr>
<td valign="top" align="center">
<%select case request.querystring("type")
case "1" call bbs_admin_set_bbs()
case "2" call bbs_admin()
case "3" call managebbsset()
case "4" call upload()
case "5" call diary1()
case "6" call bbs_admin_set_bbsid()
case "7" call bbs_admin_bzhu()
case "8" call bbs_data()
case "edit_bbs" call edit_bbs()
case "edit_bbsid" call edit_bbsid()
case "edit_admin" call edit_admin()
case else call bbs_admin_set_bbs()
end select%>
</td>
</tr>
</table>
<%
sub bbs_data()
if Request.QueryString("action")="back" then
currf=request.form("currf")
currf=server.mappath(currf)
backf=request.form("backf")
backf=server.mappath(backf)
backfy=request.form("backfy")
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.Folderexists(backf) then
else
Set fy=objfso.CreateFolder(backf)
end if
objfso.copyfile currf,backf& "\"& backfy
response.write "<script>alert(""备份数据库成功"");history.back();</script>"
end if
'===========================================
if Request.QueryString("action")="ys" then
currf=request.form("currf")
currf = server.mappath(currf)
ys=request.form("ys")
Const JET_3X = 4
strDBPath = left(currf,instrrev(currf,"\"))
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(currf) then
Set Engine = CreateObject("JRO.JetEngine")
on error resume next
If ys = 1 Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "fytemp.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 & "fytemp.mdb"
End If
objfso.CopyFile strDBPath & "fytemp.mdb",currf
objfso.DeleteFile(strDBPath & "fytemp.mdb")
Set objfso = nothing
Set Engine = nothing
if err then
err.clear
response.write "<script>alert(""错误：很抱歉，由于系统错误，压缩失败:！"");history.back();</script>"
response.end
end if
response.write "<script>alert(""压缩数据库成功"");history.back();</script>"
response.end
Else
response.write "<script>alert(""错误:找不到数据库文件！"");history.back();</script>"
response.end
End If
end if
'==============================================
if Request.QueryString("action")="reload" then
currf=request.form("currf")
currf=server.mappath(currf)
backf=request.form("backf")
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
%>
<form name="form1" method="POST" action="?type=8&action=back">
<tr class=Hxcmsss>
<td colspan="2">备份论坛数据库</td>
</tr>
<tr class=Hxcmsds>
<td height=22 colspan="2" align="center">你的空间只有支持fso才可以进行如下操作，否则你只能手动备份</td>
</tr>
<tr class=Hxcmsds>
<td width="30%" align="right">当前数据库路径：</td>
<td><input type="text" name="currf" size="20" value="<%=bbsmdb%>"></td>
</tr>
<tr class=Hxcmsds>
<td align="right">备份数据目录：</td>
<td><input type="text" name="backf" size="20" value="back"></td>
</tr>
<tr class=Hxcmsds>
<td align="right">备份数据库名称：</td>
<td><input type="text" name="backfy" size="20" value="backbbs.asp"></td>
</tr>
<tr class=Hxcmsds>
<td align="right"> </td>
<td>
<input type="submit" name="Submit" value="提 交" class="button">
<input type="reset" name="Submit2" value="重 置" class="button">
</td>
</tr>
</form>
<form name="form1" method="POST" action="?type=8&action=ys">
<tr align="center" class=Hxcmsss>
<td colspan="2" height=22>压缩论坛数据库</td>
</tr>
<tr align="center" class=Hxcmsds>
<td height=22 colspan="2">你的空间只有支持fso才可以进行如下操作，否则你只能手动压缩</td>
</tr>
<tr class=Hxcmsds>
<td width="30%" align="right">数据库路径：</td>
<td><input type="text" name="currf" size="20" value="back/backbbs.asp"></td>
</tr>
<tr class=Hxcmsds>
<td align="center" colspan="2">
<input type="radio" value="1" name="ys">使用 Access 97 数据库<input type="radio" value="2" checked name="ys">使用 Access 2000 数据库</td>
</tr>
<tr class=Hxcmsds>
<td align="center" colspan="2">
（为了安全，请注意用备份的数据库文件来压缩，不要用当前正在运行的数据库文件）</td>
</tr>
<tr class=Hxcmsds>
<td> </td>
<td>
<input type="submit" name="Submit" value="提 交" class="button">
<input type="reset" name="Submit2" value="重 置" class="button">
</td>
</tr>
</form>
<form name="form1" method="POST" action="?type=8&action=reload">
<tr class=Hxcmsss>
<td colspan="2">恢复论坛数据库</td>
</tr>
<tr align="center" class=Hxcmsds>
<td height=22 colspan="2">你的空间只有支持fso才可以进行如下操作，否则你只能手动恢复</td>
</tr>
<tr class=Hxcmsds>
<td width="30%" align="right">当前数据库路径：</td>
<td>
<input type="text" name="currf" size="20" value="<%=bbsmdb%>"> </td>
</tr>
<tr class=Hxcmsds>
<td width="30%" align="right">备份数据路径：</td>
<td>
<input type="text" name="backf" size="20" value="back/backbbs.asp"> </td>
</tr>
<tr class=Hxcmsds>
<td width="20%" align="right"> </td>
<td>
<input type="submit" name="Submit" value="提 交" class="button">
<input type="reset" name="Submit2" value="重 置" class="button">
</td>
</tr>
</form>
<%
end sub
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?