📄 admincp.asp

📁 1、日志增加首页显示调用index_show.asp 2、日志增加用户的修改和删除权利 3、日志增加文件上传大小修改和限制 4、时间的动态修改 5、增加日志的日志推荐功能 6、用户的ip查询
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/md5code.asp" -->
<!--#include file="header.asp" -->
<script language="JavaScript" src="include/common.js" type="text/javascript"></script><script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
function Isvalidity(val,name){
if (val.value!='' && (isNaN(val.value) || val.value<=0))
    {alert(name+"应填有效数字！");
    val.value="";
     val.focus();}
}
</script><%On Error Resume Next %><table width="768" height="20" border="0" align="center" cellpadding="0" cellspacing="0" >
  <tr>
    <td background="images/index-mid.gif"><div align="center">
	<hr align="center" width="750">
	<table width="750" border="0" align="center" cellpadding="4" cellspacing="6"  >
      <tr>
        <td width="128" align="center" valign="top" nowrap 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="log_manage.asp"><b>日志管理</b></a><br>
              </div>
                <div class="msg_head">数据管理面版</div>
                 <div class="msg_main"> <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="blogvisit.ASP"><b>访问IP</b></a><br>
                <a href="ipview.asp"><b>IP查询</b>
                </a><br />
                 </div>
                <div class="msg_head">其他管理面版</div>
                <div class="msg_main"><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 /></div>
                <div class="msg_head">用户退出</div>
				<div class="msg_main"><a href="admincp.asp?action=logout"><b>退出登录</b></a></div>
            <%End IF%>   
            <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="index.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
		AdminLogin_OK=0
	Else
		AdminLogin_Ok=1
	End IF
	Set AdminLogin=Nothing
	IF AdminLogin_Ok=1 Then Session("Admin")=memName
	Response.Redirect("admincp.asp")
End IF
Else
IF Request.QueryString("action")="logout" Then
	Session("Admin")=""
	Response.ReDirect("index.asp")
ElseIF Request.QueryString("action")="database" Then%>
                    <br>
                    <table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC">
                      <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">
                      <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"),",")
12 3 4 下一页
⌨️ 快捷键说明

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