📄 admin.asp
字号:
<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/md5code.asp" -->
<%Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<title><%=siteName%> －管理面板</title>
<link href="admin.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="include/common.js"></script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width=768 border="0" cellpadding="3" cellspacing="0" align="center" bgcolor="#FFFFFF">
<tr>
<td class="header"><%=SiteName%> －管理面板 <%=siteURL%></td>
</tr>
</table>
<table width=768 border="0" cellpadding="9" cellspacing="0" align="center" bgcolor="#FFFFFF">
<tr>
<td width="128" align="center" valign="top" nowrap class="rtd" align="center">
<br><table width="90%" align="center" cellpadding="4" cellspacing="1" class=header>
<tr class="leftbartop"><td align="center" class=leftbartop><b>管理面板导航</b></td>
</tr><tr align="center" class="leftbarmain"><td>
<div class="lt0" onmouseenter="mhEnter()" onmouseleave="mhLeave()"><a href="admin.asp"><b>管理首页</b></a></div>
<%IF Session(4)<>Empty Then%>
<div class="lt0" onmouseenter="mhEnter()" onmouseleave="mhLeave()"><a href="admin.asp?action=setting"><b>网站设置</b></a></div>
<div class="lt0" onmouseenter="mhEnter()" onmouseleave="mhLeave()"><a href="admin.asp?action=member"><b>会员管理</b></a></div>
<div class="lt0" onmouseenter="mhEnter()" onmouseleave="mhLeave()"><a href="admin.asp?action=database"><b>数据管理</b></a></div>
<div class="lt0" onmouseenter="mhEnter()" onmouseleave="mhLeave()"><a href="admin.asp?action=smilies"><b>表情管理</b></a></div>
<div class="lt0" onmouseenter="mhEnter()" onmouseleave="mhLeave()"><a href="admin.asp?action=WordFilter"><b>脏字过滤</b></a></div>
<div class="lt0" onmouseenter="mhEnter()" onmouseleave="mhLeave()"><a href="admin.asp?action=logout"><b>退出登录</b></a></div>
<%End IF%></td></tr>
</table><br></td>
<td width="100%" valign="top"><%IF memStatus<>1 Then%><br><br><br> <table width="95%" border="0" align="center" cellpadding="12" cellspacing="1" class=header>
<tr>
<td bgcolor="#FFFFFF" align="center">对不起，你没有权限进入系统管理面板<br><br><a href="index.asp" target="_top">点击返回首页</a></td>
</tr>
</table><%Else%><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" align="center"><%IF Session(4)=Empty Then%>
<br><br><br><br><table width="40%" border="0" align="center" cellpadding="4" cellspacing="1" class=header>
<tr>
<td bgcolor="#FFFFFF" class="leftbartop">请输入管理员密码：</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center"><br><form name="adminlogin" method="post" action="admin.asp?action=login"><input type="password" id="adminpassword" name="adminpassword"> <input type="submit" id="submit" name="submit" value=" 确定登陆 "></form></td>
</tr>
</table>
<%IF Request.QueryString("action")="login" Then
Dim AdminLogin,AdminLogin_OK
Set AdminLogin=Conn.ExeCute("SELECT mem_PassWord,mem_Name FROM 17u0_Member WHERE mem_Name='"&memName&"' AND mem_PassWord='"&md5(CheckStr(Request.Form("adminpassword")))&"'")
SQLQueryNums=SQLQueryNums+1
IF AdminLogin.EOF AND AdminLogin.BOF Then
AdminLogin_OK=0
Else
AdminLogin_Ok=1
End IF
Set AdminLogin=Nothing
IF AdminLogin_Ok=1 Then Session(4)=memName
Response.Redirect("admin.asp")
End IF
Else
IF Request.QueryString("action")="logout" Then
Session(4)=""
Response.ReDirect("index.asp")
ElseIF Request.QueryString("action")="database" Then%>
<br>
<table width="99%" border="0" align="center" cellpadding="5" cellspacing="1" class=header align="center">
<tr>
<td bgcolor="#FFFFFF" class="leftbartop"><%=SiteName%> 数据管理</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">数据库文件路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")&Replace(AccessFile,"/","\")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">数据库文件空间占用：<%=GetTotalSize(Server.Mappath(AccessFile),"File")%></td>
</tr>
<tr><form action="admin.asp?action=database&type=sqlquery" method="post">
<td bgcolor="#FFFFFF">SQL 查询执行(一次执行一个查询)：<input name="SQL_Query" value="" type="text" size="58"> <input type="submit" value=" 执行 "></td></form>
</tr>
<tr>
<td bgcolor="#FFFFFF">数据库文件操作：<b> <a href="admin.asp?action=database&type=Compact">压缩</a></b>(压缩前最好备份一次) | <b><a href="admin.asp?action=database&type=Backup">备份</a></b>(强烈推荐每日备份一次)</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" style="padding-left:18px;">
<%IF Request.QueryString("type")="sqlquery" Then
Dim SQL_Query
SQL_Query=Request.Form("SQL_Query")
Conn.ExeCute(SQL_Query)
SQLQueryNums=SQLQueryNums+1
Response.Write("<a href=""admin.asp?action=database"">SQL语句执行成功，请点击返回</a>")
ElseIF Request.QueryString("type")="Compact" Then
Dim FSO,Engine
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(Server.Mappath(AccessFile)) Then
Response.Write "压缩数据库开始，网站暂停一切用户的前台操作......<br>"
Conn.Close
Set Conn=Nothing
Application.Lock
FreeApplicationMemory
Application(CookieName & "_SiteEnable") = 0
Application(CookieName & "_SiteDisbleWhy") = "网站暂停中，请稍候几分钟后再来..."
Application.UnLock
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(AccessFile), "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(AccessFile & ".temp")
FSO.CopyFile Server.Mappath(AccessFile & ".temp"),Server.Mappath(AccessFile)
FSO.DeleteFile(Server.Mappath(AccessFile & ".temp"))
Set FSO = Nothing
Set Engine = Nothing
Response.write "压缩数据库完成..."
Application.Lock
Application(CookieName & "_SiteEnable") = 1
Application(CookieName & "_SiteDisbleWhy") = ""
Application.UnLock
Response.Write "<br>网站恢复正常访问..."
Response.Write("<br><a href='admin.asp?action=database'>请点击返回</a>")
End IF
ElseIF Request.QueryString("type")="Backup" Then
Response.Write "备份数据库开始，网站暂停一切用户的前台操作......<br>"
Conn.Close
Set Conn=Nothing
Application.Lock
Application(CookieName & "_SiteEnable") = 0
application(CookieName & "_SiteDisbleWhy") = "网站暂停中，请稍候几分钟后再来..."
Application.UnLock
CopyFiles Server.Mappath(AccessFile),Server.Mappath(AccessFile & "_" & DateToStr(Now(),"YmdHIS") &".BAK")
Response.write "<br>备份完成..."
Application.Lock
Application(CookieName & "_SiteEnable") = 1
Application(CookieName & "_SiteDisbleWhy") = ""
Application.UnLock
Response.write "<br>网站恢复正常访问..."
Response.Write("<br><a href='admin.asp?action=database'>请点击返回</a>")
ElseIF Request.QueryString("type")="Restore" Then
Response.Write "还原数据库开始，网站暂停一切用户的前台操作......<br>"
Conn.Close
Set Conn=Nothing
Application.Lock
Application(CookieName & "_SiteEnable") = 0
application(CookieName & "_SiteDisbleWhy") = "网站暂停中，请稍候几分钟后再来..."
Application.UnLock
IF Request.QueryString("filename")=Empty Then
Response.Write("<b>要还原的文件名不能为空</b>")
Else
Response.write "备份原数据库.<br>"
CopyFiles Server.Mappath(AccessFile),Server.Mappath(AccessFile & ".TEMP")
if DeleteFiles(Server.Mappath(AccessFile))=1 then response.write ("<br>原数据库删除成功")
Response.write "<br>更新数据库."
CopyFiles Server.Mappath(AccessPath)&"/"&Request.QueryString("filename"),Server.Mappath(AccessFile)
if DeleteFiles(Server.MapPath(AccessPath&"/"&Request.QueryString("filename")))=1 then response.write ("<br>Bak备份删除成功")
if DeleteFiles(Server.Mappath(AccessFile & ".TEMP"))=1 then response.write ("<br>Temp备份删除成功")
Response.write "<br>还原完成..."
end if
Application.Lock
Application(CookieName & "_SiteEnable") = 1
Application(CookieName & "_SiteDisbleWhy") = ""
Application.UnLock
Response.write "<br>网站恢复正常访问..."
Response.Write("<br><a href='admin.asp?action=database'>请点击返回</a>")
ElseIF Request.QueryString("type")="DeleFile" Then
IF Request.QueryString("filename")=Empty Then
Response.Write("<a href='admin.asp?action=database'>要删除的文件名不能为空，请点击返回</a>")
Else
IF DeleteFiles(Server.MapPath(AccessPath&"/"&Request.QueryString("filename")))=1 Then
Response.Write("<a href='admin.asp?action=database'>文件删除成功，请点击返回</a>")
Else
Response.Write("<a href='admin.asp?action=database'>文件删除失败，请点击返回</a>")
End IF
End IF
Else
Response.Write("<b>备份文件列表</b><br>")
Dim DataFolder,DataFileList,DataFile,DataFileName
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
Set DataFolder=FSO.GetFolder(Server.MapPath(AccessPath))
Set DataFileList=DataFolder.Files
For Each DataFile IN DataFileList
IF Ubound(Split(DataFile,"."))>=2 Then
DataFileName=DataFile.Name
Response.Write("<font color='#FF0000'>"&DataFileName&"</font> | <b><a href='"&AccessPath&"/"&DataFileName&"'>下载此文件</a></b> | <b><a href='admin.asp?action=database&type=DeleFile&filename="&DataFileName&"'>删除此文件</a></b> | <b><a href='admin.asp?action=database&type=Restore&filename="&DataFileName&"'>从此文件还原数据</a></b><br>")
End IF
Next
End IF
Function CopyFiles(TempSource,TempEnd)
Dim FSO
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(TempEnd) then
Response.Write "目标备份文件 <b>" & TempEnd & "</b> 已存在，请先删除!"
Set FSO=Nothing
Exit Function
End IF
IF FSO.FileExists(TempSource) Then
Else
Response.Write "要复制的源数据库文件 <b>"&TempSource&"</b> 不存在!"
Set FSO=Nothing
Exit Function
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -