📄 admin_data.asp
字号:
set conn=nothing
%>
<br>
<table border="0" align="center" cellpadding="5" cellspacing="1" class="tableBorder">
<form action="admin_data.asp?action=CompressData" method="post">
<td height=20 align="center" bgcolor="#0099CF"><font color=#FFFFFF><strong>压缩数据库</strong></font>
<tr>
<td height=25 class="forumRow"><b class="redtext">注意：</b>
输入数据库所在相对路径,并且输入数据库名称（正在使用中数据库不能压缩，请选择备份数据库进行压缩操作 <br>
<span class="greentext">
<input type="checkbox" name="boolIs97" value="True">
如果使用 Access 97 数据库请选择
(默认为 Access 2000 数据库)</span></td>
</tr>
<tr>
<td class="forumRow"><span class="butext">压缩数据库</span>： <input name="dbpath" type="text" value='<%=artmdb%>' size="40"></td>
</tr>
<tr>
<td align="center" class="forumRaw"><input type="submit" value="开始压缩"></td>
</tr>
<form>
</table>
<%
dim dbpath,boolIs97
dbpath = request("dbpath")
boolIs97 = request("boolIs97")
If dbpath <> "" Then
dbpath = server.mappath(dbpath)
'调用服务器端的自定义函数 CompactDB 来压缩数据库
response.write(CompactDB(dbpath,boolIs97))
End If
end sub%>
<%
'以下为实际压缩数据库的自定义函数，在服务器端运行
'=====================压缩参数=========================
Function CompactDB(dbPath, boolIs97)
Dim fso, Engine, strDBPath,JET_3X
strDBPath = left(dbPath,instrrev(DBPath,"\"))
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(dbPath) Then
Set Engine = CreateObject("JRO.JetEngine")
'其实，和在Access中压缩数据库一样，我们仍然调用 JRO 来压缩修复数据库
'所不同的是在这里我们没有向Access那样采用“先引用”的方式（工具菜单选择引用）
'而是采用脚本所能使用的“后引用”方式建立 JRO 的实例 CreateObject("JRO.JetEngine")
If boolIs97 = "True" Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"
End If
'操作完成后将已经缩小体积的数据库 COPY 回原位，覆盖原始文件
fso.CopyFile strDBPath & "temp.mdb",dbpath
'删除无用的临时文件
fso.DeleteFile(strDBPath & "temp.mdb")
Set fso = nothing
Set Engine = nothing %>
<table border="0" align="center" cellpadding="5" cellspacing="1" class="tableBorder"><tr><td>
<% CompactDB = "你的数据库, " & dbpath & ", 已经压缩成功!" & vbCrLf
Else
CompactDB = "数据库名称或路径不正确. 请重试!" & vbCrLf
End If
End Function
%>
</td></tr></table>
<%sub resetdata%>
<br>
<table border="0" align="center" cellpadding="5" cellspacing="1" class="tableBorder">
<tr><td height=20 align="center" bgcolor="#0099CF" ><font color=#FFFFFF><strong>系统数据库初始化</strong></font></td>
</tr>
<tr height=100 ><td class="forumRow" align="center"><form action="admin_data.asp?action=deldata" method="post" name="form1" id="form1" onSubmit="return confirm('确实要清除选定的表吗？一旦清除将无法恢复！');">
<table border="0" cellspacing="0" cellpadding="5" width="80%">
<tr>
<td align="center"><b>请选择你要清空的数据库：</b></td>
</tr>
<tr>
<td>
<fieldset><legend>文章频道</legend>
<table width="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td ><input name="news" type="checkbox" id="news" value="yes">所有新闻</td>
<td ><input name="lm" type="checkbox" id="lm" value="yes">新闻栏目</td>
<td ><input name="newsmb" type="checkbox" id="newsmb" value="yes">新闻模版</td>
<td ><input name="newszt" type="checkbox" id="newszt" value="yes">新闻专题</td>
<td ><input name="newspl" type="checkbox" id="newspl" value="yes">新闻评论</td>
<td ><input name="Digg" type="checkbox" id="Digg" value="yes">Digg记录</td>
</tr>
</table>
</fieldset>
<br>
<fieldset><legend>会员系统</legend>
<table width="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td ><input name="User" type="checkbox" id="User" value="yes">所有用户</td>
<td ><input name="userGroup" type="checkbox" id="userGroup" value="yes">所有用户组</td>
<td ><input name="LogPoint" type="checkbox" id="LogPoint" value="yes">积分明细</td>
<td ><input name="Message" type="checkbox" id="Message" value="yes">所有短信息</td>
<td > </td>
<td > </td>
</tr>
</table>
</fieldset>
<br>
<fieldset><legend>其他</legend>
<table width="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td ><input name="webgg" type="checkbox" id="webgg" value="yes">站内公告</td>
<td ><input name="gbook" type="checkbox" id="gbook" value="yes">网友留言</td>
<td ><input name="link" type="checkbox" id="link" value="yes">友情连接</td>
<td ><input name="usertougao" type="checkbox" id="usertougao" value="yes">网友投稿</td>
<td ><input name="tp" type="checkbox" id="tp" value="yes">投票选项</td>
<td ><input name="blog" type="checkbox" id="blog" value="yes">所有日志</td>
</tr>
</table></fieldset>
</td></tr>
</table>
<input type="submit" name="Submit" value=" 清除数据 " class=button>
<br>
<br>
<div align="center">
<font color="red">注：清除数据库选定的表后，数据无法恢复，数据库结构不变。</font> </div>
</form></td></tr></table>
<%end sub
sub delData()%>
<br>
<table border="0" align="center" cellpadding="5" cellspacing="1" class="tableBorder">
<tr><td height=20 align="center" bgcolor="#0099CF" ><font color=#FFFFFF><strong>系统数据库初始化</strong></font></td>
</tr><tr height=100 ><td>
<%
dim z
z=0
if request("lm")="yes" then
conn.execute("delete From lm")
response.write "成功清除了所有新闻栏目！<br>"
z=z+1
end if
if request("news")="yes" then
conn.execute("delete from news")
response.write "成功清除了所有新闻！<br>"
z=z+1
end if
if request("newsmb")="yes" then
conn.execute("delete From newsmb")
response.write "成功清除了所有新闻模版！<br>"
z=z+1
end if
if request("newszt")="yes" then
conn.execute("delete from newszt")
response.write "成功清除了所有新闻专题！<br>"
z=z+1
end if
if request("newspl")="yes" then
conn.execute("delete from newspl")
response.write "成功清除了所有新闻评论！<br>"
z=z+1
end if
if request("Digg")="yes" then
conn.execute("delete from Art_Digg")
response.write "成功清除了所有Digg记录！<br>"
z=z+1
end if
if request("webgg")="yes" then
conn.execute("delete from webgg")
response.write "成功清除了所有站内公告！<br>"
z=z+1
end if
if request("gbook")="yes" then
conn.execute("delete From gbook")
response.write "成功清除了所有网友留言！<br>"
z=z+1
end if
if request("link")="yes" then
conn.execute("delete from link")
response.write "成功清除了所有友情连接！<br>"
z=z+1
end if
if request("tp")="yes" then
conn.execute("delete from tp ")
conn.execute("delete from tptitle")
response.write "成功清除了所有投票信息！<br>"
z=z+1
end if
if request("usertougao")="yes" then
conn.execute("delete From usertougao")
response.write "成功清除了所有网友投稿！<br>"
z=z+1
end if
if request("User")="yes" then
conn.execute("delete from Art_user ")
response.write "成功清除了所有用户！ <br>"
z=z+1
end if
if request("blog")="yes" then
conn.execute("delete from Art_blog")
response.write "成功清除了所有日志！<br>"
z=z+1
end if
if request("userGroup")="yes" then
conn.execute("delete from Art_Group")
response.write "成功清除了所有用户组！<br>"
z=z+1
end if
if request("LogPoint")="yes" then
conn.execute("delete from Art_LogPoint")
response.write "成功清除了所有积分明细！<br>"
z=z+1
end if
if request("Message")="yes" then
conn.execute("delete from Art_Message")
response.write "成功清除了所有短信息！<br>"
z=z+1
end if
if z>0 then
response.write cstr(z) & "个数据库被清空，你可以开始添加新内容。"
else
response.write "你没有选择任何数据库，0个数据库被清空。"
end if
end sub
%></td></tr></table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -