📄 admincp.asp

📁 L-Blog是一套BLOG系统
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/md5code.asp" -->
<!--#include file="header.asp" -->
<%'On Error Resume Next%>
<table width="768" border="0" align="center" cellpadding="4" cellspacing="6" background="images/blog_main.gif">
  <tr>
    <td width="128" align="center" valign="top" nowrap align="center" bgcolor="#FFFFFF"><br>
    <br><div class="msg_head">管理面板导航</div><div class="msg_main"><a href="admincp.asp"><b>管理首页</b></a><br />
<%If Session("Admin")<>Empty Then%><a href="admincp.asp?action=setting"><b>一般设置</b></a><br />
<a href="admincp.asp?action=category"><b>分类管理</b></a><br />
<a href="admincp.asp?action=member"><b>会员管理</b></a><br />
<a href="admincp.asp?action=database"><b>数据管理</b></a><br />
<a href="admincp.asp?action=attachment"><b>附件管理</b></a><br />
<a href="admincp.asp?action=smilies"><b>表情管理</b></a><br />
<a href="admincp.asp?action=keywords"><b>关键字管理</b></a><br />
<a href="admincp.asp?action=links"><b>链接管理</b></a><br />
<a href="admincp.asp?action=linkscheck"><b>链接验证</b></a><br />
<a href="admincp.asp?action=favorite"><b>书签管理</b></a><br />
<a href="admincp.asp?action=logout"><b>退出登录</b></a></div>
<%End If%></div><br><br></td>
    <td width="100%" valign="top" bgcolor="#FFFFFF" align="center"><%If memStatus<>"SupAdmin" Then%><br /><br /><br /><div class="msg_content">对不起，你没有权限进入系统管理面板<br /><br /><a href="default.asp" target="_top">点击返回首页</a></div><br /><br /><%Else%>
	<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top" align="center"><%If Session("Admin")=Empty Then%>
      <br><br><br><br><table width="40%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
    <td bgcolor="#FFFFFF" class="siderbar_head">请输入管理员密码：</td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" align="center"><br><form name="adminlogin" method="post" action="admincp.asp?action=login"><input type="password" id="adminpassword" name="adminpassword">&nbsp;<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 blog_Member WHERE mem_Name='"&memName&"' AND mem_PassWord='"&md5(CheckStr(Request.Form("adminpassword")))&"'")
		SQLQueryNums=SQLQueryNums+1
		If AdminLogin.EOF And AdminLogin.BOF Then
			Session("Admin")=""
		Else
			Session("Admin")=memName
		End If
		Set AdminLogin=Nothing
		Response.Redirect("admincp.asp")
	End If
Else
	If Request.QueryString("action")="logout" Then
		Session("Admin")=""
		Response.ReDirect("default.asp")
	ElseIf Request.QueryString("action")="database" Then%>
<br>
<table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" align="center">
  <tr>
    <td bgcolor="#FFFFFF" class="siderbar_head"><%=SiteName%> 数据管理</td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">数据库文件路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")&AccessPath&"\"&AccessFile%></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">数据库文件空间占用：<%=GetTotalSize(Server.Mappath(AccessPath&"/"&AccessFile),"File")%></td>
  </tr>
   <tr><form action="admincp.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>&nbsp;<a href="admincp.asp?action=database&type=Compact">压缩</a></b>(压缩前最好备份一次)&nbsp;&nbsp;|&nbsp;&nbsp;<b><a href="admincp.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=""admincp.asp?action=database"">SQL语句执行成功，请点击返回</a>")
ElseIf Request.QueryString("type")="Compact" Then
	Dim FSO,Engine
	Set FSO=Server.CreateObject("Scripting.FileSystemObject")
	If Err<>0 Then
		Err.Clear
		Response.Write("服务器关闭FSO，无法压缩数据库")
	Else
		If FSO.FileExists(Server.Mappath(AccessPath&"/"&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(AccessPath&"/"&AccessFile), "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(AccessPath&"/"&AccessFile&".temp")
			FSO.CopyFile Server.Mappath(AccessPath&"/"&AccessFile&".temp"),Server.Mappath(AccessPath&"/"&AccessFile)
			FSO.DeleteFile(Server.Mappath(AccessPath&"/"&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=""admincp.asp?action=database"">请点击返回</a>")
		End If
	End If
	Set FSO=Nothing
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(AccessPath&"/"&AccessFile),Server.Mappath(AccessPath&"/"&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=""admincp.asp?action=database"">请点击返回</a>")
ElseIf Request.QueryString("type")="Restore" Then

ElseIf Request.QueryString("type")="DeleFile" Then
	If Request.QueryString("filename")=Empty Then
		Response.Write("<a href=""admincp.asp?action=database"">要删除的文件名不能为空，请点击返回</a>")
	Else
		If DeleteFiles(Server.MapPath(AccessPath&"/"&Request.QueryString("filename")))=1 Then
			Response.Write("<a href=""admincp.asp?action=database"">文件删除成功，请点击返回</a>")
		Else
			Response.Write("<a href=""admincp.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")
	If Err<>0 Then
		Err.Clear
		Response.Write("服务器关闭FSO，无法查看备份文件列表")
	Else
		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>&nbsp;&nbsp;|&nbsp;&nbsp;<b><a href=""blogdata/"&DataFileName&""">下载此文件</a></b>&nbsp;&nbsp;|&nbsp;&nbsp;<b><a href=""admincp.asp?action=database&type=DeleFile&filename="&DataFileName&""">删除此文件</a></b>&nbsp;&nbsp;|&nbsp;&nbsp;<b><a href=""admincp.asp?action=database&type=Restore&filename="&DataFileName&""">从此文件还原数据</a></b><br>")
			End If
		Next
	End If
	Set FSO=Nothing
End If

Function CopyFiles(TempSource,TempEnd)
    Dim FSO
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	If Err<>0 Then
		Err.Clear
		Response.Write("服务器关闭FSO，无法复制文件")
	Else
		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
		FSO.CopyFile TempSource,TempEnd
		Response.Write "已经成功复制文件 <b>"&TempSource&"</b> 到 <b>"&TempEnd&"</b>"
	End If
    Set FSO = Nothing
End Function
%></td>
  </tr>
</table>
<%ElseIF Request.QueryString("action")="category" Then%><br>
<table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" align="center">
  <tr>
    <td bgcolor="#FFFFFF" class="siderbar_head"><%=SiteName%> 分类管理</td>
  </tr><%If Request.QueryString("type")="EditCate" Then%>
  <tr>
    <td align="center" bgcolor="#FFFFFF" height="48"><%
	Dim Edit_CateID,Edit_CateName,Edit_CateOrder,Edit_CateEvery,Edit_CateNums,Edit_CateMoveTo
	Edit_CateNums=0
	Edit_CateID=Split(Request.Form("cate_ID"),",")
	Edit_CateName=Split(Request.Form("cate_Name"),",")
	Edit_CateOrder=Split(Request.Form("cate_Order"),",")
	Edit_CateMoveTo=Split(Request.Form("Edit_CateMoveTo"),",")
	For Each Edit_CateEvery  IN Edit_CateID
		If Edit_CateMoveTo(Edit_CateNums)<>0 Then
			Conn.ExeCute("UPDATE blog_Content SET log_CateID="&Edit_CateMoveTo(Edit_CateNums)&" WHERE log_CateID="&Edit_CateID(Edit_CateNums)&"")
			SQLQueryNums=SQLQueryNums+1
		End If
		Conn.Execute("UPDATE blog_Category SET cate_Name='"&CheckStr(Edit_CateName(Edit_CateNums))&"',cate_Order="&Edit_CateOrder(Edit_CateNums)&" WHERE cate_ID="&Edit_CateEvery&"")
		SQLQueryNums=SQLQueryNums+1
		Edit_CateNums=Edit_CateNums+1
	Next
	If Request.Form("cate_Dele")<>Empty Then
		Conn.Execute("DELETE * FROM blog_Category WHERE cate_ID IN ("&Request.Form("cate_Dele")&")")
		Conn.Execute("DELETE * FROM blog_Content WHERE log_CateID IN ("&Request.Form("cate_Dele")&")")
		SQLQueryNums=SQLQueryNums+2
	End If
	Dim new_CateName,new_CateOrder
	new_CateName=CheckStr(Request.Form("new_CateName"))
	new_CateOrder=CheckStr(Request.Form("new_CateOrder"))
	If new_CateName<>Empty AND new_CateOrder<>Empty Then
		Conn.Execute("INSERT INTO blog_Category(cate_Name,cate_Order) VALUES ('"&new_CateName&"',"&new_CateOrder&")")
		SQLQueryNums=SQLQueryNums+1
	End If
	Application.Lock()
	Application(CookieName&"_blog_Category")=""
	Application.UnLock()
	Response.Write("<a href=""admincp.asp?action=category"">操作成功，请点击返回</a>")%></td></tr>
  <%Else%><form name="edit_Category" method="post" action="admincp.asp?action=category&type=EditCate">
  <tr>
    <td align="center" valign="top" bgcolor="#FFFFFF"><table width="90%" border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
  <tr bgcolor="#EFEFEF">
12 3 4 下一页
💿 文件大小 153 K
👤 上传用户 bobey
📂 所属分类 SQL Server
🏷️ 相关标签

#L-Blog #BLOG
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -