📄 admin_main.asp

📁 本代码是一个个人主页
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file=../include/function.asp-->
<!--#include file="admin_common.asp"-->
<%
if session("userid")="" and request.cookies("usercookie")="" Then
  response.redirect "../index.asp"
end if
action=request("action")
stype=request("stype")
mktype=request("mktype")
skintype=request("skintype")
id=request("id")
txtname=request("txtname")
length=request("length")
dim db,connstr,sqlnum
sqlnum=0
ii=0
Server.ScriptTimeOut = 90
Session.CodePage=65001
Response.Buffer = True
connstr="provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("../data/fwyblog.mdb")
set db=server.createobject("adodb.connection")
db.open connstr
If Err Then
	Err.Clear
	Set Conn = Nothing
	Response.Write("<head><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" /><title>数据库连接出错，请检查连接字串</title></head><body><div align=""center"" style=""width:400px;height:100px;padding: 8px;font-size:9pt;border: 1px solid ThreeDShadow;POSITION:absolute;top:expression((document.body.offsetHeight-100)/2);left:expression((document.body.offsetWidth-400)/2);""><table width=""100%"" height=""100%"" style=""font-size:12px;font-family:Tahoma;""><tr><td align=""center""><strong>数据库连接出错，请检查连接字串</strong></td></tr></table></div></body>")
	Response.End
End If
  Set rs=server.CreateObject("adodb.recordset")
  sql="select basic_blogindex,basic_blogname,basic_indexface,basic_blogpage,basic_mastername,basic_masteremail,basic_masterqq,basic_bloginfo,basic_date,basic_plpage,basic_off,basic_gk from blog_basic where id=1"
  rs.open sql,db
  sqlnum=sqlnum+1
  basic_blogindex2=UnReplaceStr(rs("basic_blogindex"))
  basic_blogname2=UnReplaceStr(rs("basic_blogname"))
  basic_indexface2=UnReplaceStr(rs("basic_indexface"))
  basic_blogpage2=UnReplaceStr(rs("basic_blogpage"))
  basic_mastername2=UnReplaceStr(rs("basic_mastername"))
  basic_masteremail2=UnReplaceStr(rs("basic_masteremail"))
  basic_masterqq2=UnReplaceStr(rs("basic_masterqq"))
  basic_bloginfo2=UnReplaceStr(rs("basic_bloginfo"))
  basic_date2=UnReplaceStr(rs("basic_date"))
  basic_plpage2=rs("basic_plpage")
  basic_off2=UnReplaceStr(rs("basic_off"))
  basic_gk2=rs("basic_gk")
  rs.close
  set rs=nothing
%>
<!--#include file=../common.asp-->
<html xmlns="http://www.w3.org/1999/xhtml" lang="UTF-8">
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta http-equiv="Content-Language" content="UTF-8" />
<meta name="robots" content="all" />
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="F-BLOG,F-Blog,BLOG,BLOG">
<meta name="Description" content="">
<TITLE><%=basic_blogname%>-后台管理 </TITLE>
<link rel="stylesheet" href="css.css" type="text/css">
<script language="javascript">
function changegroupicon(value,id){
document.getElementById(id).src="../images/icons/"+value+".gif";
}
</script>
</HEAD>
<body>
<%
Function MainForm()
  response.write "<div id=admin_main><div id=admin_left><iframe name=admin_left src=admin_main.asp?action=menu width=100% height=100% frameborder=0 scrolling=no></iframe>  </div><div id=admin_right><iframe name=main_right width=100% height=100% src=admin_main.asp?action=info frameborder=0 scrolling=yes></iframe></div></div>"
End Function 

Function MainMenu()
  f="<div id=admin_left_title>管理页面</div>"
  f=f&"<div id=admin_left_list><ul><li><a href=admin_main.asp?action=info target=main_right>服务器信息</a></li><li><a href=admin_main.asp?action=basic target=main_right>基本设置</a></li><li><a href=admin_main.asp?action=class target=main_right>分类管理</a></li><li><a href=admin_main.asp?action=rz target=main_right>日志管理</a></li><li><a href=admin_main.asp?action=pl target=main_right>评论管理</a></li><li><a href=admin_main.asp?action=ly&mktype=1 target=main_right>留言管理</a></li><li><a href=admin_main.asp?action=mk target=main_right>模块管理</a></li><li><a href=admin_main.asp?action=skin target=main_right>皮肤设置</a></li><li><a href=admin_main.asp?action=data target=main_right>数据库管理</a></li><li><a href=admin_main.asp?action=link target=main_right>友情链接管理</a></li><li><a href=admin_main.asp?action=key target=main_right>关键字管理</a></li><li><a href=admin_main.asp?action=ca target=main_right>清除缓存</a></li><li><a href=../index.asp target=_top>退出管理</a></li><li>F-BLOG v2.0</li></ul></div>"
  response.write f
End Function 

Function admin_info()
  Osinfo2="OsInfo"
  f="<div id=admin_right_title>F-BLOG信息</div>"
  f=f&"<div id=admin_right_content><div id=admin_right_content_1>Powered by F-BLOG v1.8<br/>此后台功能不完整，切记</div></div>"
  f=f&"<div id=admin_right_title>服务器基本信息</div>"
  f=f&"<div id=admin_right_content><div id=admin_right_content_1>服务器时间:"&Now()&" | 服务器IP地址:"&request.servervariables("local_addr")&"<br/>服务器IIS版本:"&request.servervariables("server_software")&" | 脚本解释引擎:"&ScriptEngine & "/" &ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."&ScriptEngineBuildVersion&"<br/>站点物理路径:"&request.servervariables("appl_physical_path")&" | 脚本超时设置:"&server.scripttimeout&"<br/>服务器CPU信息:"&GetSysInfo("CPUInfo")&"<br/></div></div>"
  f=f&"<div id=admin_right_title>服务器组件安装情况</div>"
  f=f&"<div id=admin_right_content><div id=admin_right_content_1>FileUP上传组件:"&CheckObjInstalled("fileUp.upload")&" | FSO文本读写:"&checkobjinstalled("scripting.filesystemobject")&"<br/>数据库:"&checkobjinstalled("adodb.connection")&" | Jmail组件支持:"&checkobjinstalled("Jmail.smtpmail")&"<br/>GflSDK组件支持:"&checkobjinstalled("gflax190.gflax")&" | EasyMail邮件支持:"&checkobjinstalled("easymail.mailsend")&"<br/>无组件上传-ADODB.Stream:"&checkobjinstalled("scripting.dictionary")&" | 无组件上传-Scripting.Dictionary:"&checkobjinstalled("scripting.Dictionary")&"</div></div>"
  response.write f
End Function 

Function admin_basic()
  if txtname<>"" Then
    response.write "<div id=admin_right_body><div id=admin_info><strong>"&txtname&"</strong>的最长字符数为:"&length&",请注意！</div></div>"
  else
    If stype=1 Then
      response.write "<div id=admin_right_body><div id=admin_info>已经成功保存设置</div></div>"
    Else
      Call admin_basic_html
    End If
  end if
  response.write "数据库执行次数 "&sqlnum
End Function 

Function admin_class()
if txtname<>"" Then
  response.write "<div id=admin_right_body><div id=admin_info><strong>"&txtname&"</strong>的最长字符数为:"&length&",请注意！</div></div>"
else
If stype="" then
  Set rs=server.CreateObject("adodb.recordset")
  sql="select * from blog_class order by id desc"
  rs.open sql,db
  sqlnum=sqlnum+1
  f="<div id=admin_right_body><div id=admin_right_title>分类列表</div><div id=admin_right_content_1><div id=admin_right_class_2><ul><li id=a>分类图标</li><li id=b>分类名称</li><li id=c>分类是否有外部链接(没有不填)</li><li id=d>操作</li></ul></div>"
  j=1
  If Not rs.eof then
  Do While Not rs.eof
  f=f&"<form name=form"&j&" action=admin_getpost.asp?type=editclass&formid="&j&"&id="&rs("id")&" method=post>"
  f=f&"<div id=admin_right_class_2><ul><li id=a><img src=../images/icons/"&rs("class_icon")&".gif id=icon"&j&"><select name=class_icon"&j&" onchange=javascript:changegroupicon(this.options[this.selectedIndex].value,'icon"&j&"');>"
  For i=1 To 24
  f=f&"<option value="&i&""
  If rs("class_icon")=CStr(i) Then
  f=f&" selected"
  End If
  f=f&">"&i&"</option>"
  Next
  f=f&"</select></li><li id=b><input type=text name=class_name"&j&" value='"&rs("class_name")&"' size=15></li><li id=c><input type=text name=class_address"&j&" value='"&rs("class_address")&"' size=25></li><li id=d><input type=submit class=button2 value=修改> | <a href=admin_getpost.asp?type=delclass&id="&rs("id")&" onclick=""{if(confirm('注意：此操作会删除该类别下所有的日志和评论，且不能恢复，真的要删除吗？')){return true;}return false;}"">删除</a></li></ul></div></form>"
  j=j+1
  rs.movenext
  Loop
  Else
  f=f&"<div id=admin_right_class_2>还没有任何分类，请添加</div>"
  End If 
  rs.close
  Set rs=nothing
  f=f&"</div></div>"
  f=f&"<div id=admin_right_body><div id=admin_right_title>添加分类</div><div id=admin_right_content_1><div id=admin_right_class_2><ul><li id=a>分类图标</li><li id=b>分类名称</li><li id=c>分类是否有外部链接(没有不填)</li><li id=d>操作</li></ul></div>"
  f=f&"<form name=form action=admin_getpost.asp?type=addclass method=post>"
  f=f&"<div id=admin_right_class_2><ul><li id=a><img src=../images/icons/1.gif id=icon><select name=class_icon onchange=javascript:changegroupicon(this.options[this.selectedIndex].value,'icon');>"
  For i=1 To 24
  f=f&"<option value="&i&""
  f=f&">"&i&"</option>"
  Next
  f=f&"</select></li><li id=b><input type=text name=class_name size=15></li><li id=c><input type=text name=class_address size=25></li><li id=d><input type=submit class=button1 value=添加></li></ul></div></form>"
  f=f&"</div></div>"
ElseIf stype=1 Then
  response.write "<div id=admin_right_body><div id=admin_info>已经成功保存设置</div></div>"
End If
end if
  response.write f&"执行数据库次数 "&sqlnum
End Function 
'=============================================================
'日志
'=============================================================
Function admin_rz()
if mktype="" then
  Set rs=server.CreateObject("adodb.recordset")
  if stype="" then
    sql="select * from blog_content where content_gk='0' order by id desc"
  Elseif stype=1 then
    sql="select * from blog_content where content_gk='1' order by id desc"
  Else
    sql="select * from blog_content where content_group='"&request.form("group")&"' order by id desc"
  end if
  rs.open sql,db,1,3
  sqlnum=sqlnum+1
  f="<div id=admin_right_body><div id=admin_right_title><form name=form method=post action=admin_main.asp?action=rz&stype=2><a href=admin_main.asp?action=rz>日志列表</a> | <a href=admin_main.asp?action=rz&stype=1>隐藏日志</a> "&blog_class(3)&" <input type=submit name=submit3 value=查询 class=button1></form></div><div id=admin_right_content_1><div id=admin_right_class_1><ul><li id=a2><strong>删除</strong></li><li id=a2><strong>ID</strong></li><li id=b><strong>日志标题</strong></li><li id=c><strong>日志类型 | 发表时间</strong></li><li id=d><strong>操作</strong></li></ul></div><form name=form1 id=form1 method=post action=admin_getpost.asp?type=rzalldel>"
  if not rs.bof and not rs.eof then
    page_size=20
    if request("page_no")="" then
      page_no=1
    else
      page_no=cint(request("page_no"))
    end if
    session("page_no")=page_no
    rs.pagesize=page_size	
    page_total=rs.pagecount
    rs.absolutepage=page_no
    i=0
    j=page_size
  Do While Not rs.eof and j>0
  i=i+1
  j=j-1
  ii=ii+1
  f=f&"<div id=admin_right_class_1><ul><ul><li id=a2><input type=checkbox name=box"&ii&" value="&rs("id")&"><input type=hidden name=hidden"&ii&" value='"&rs("content_group")&"'></li><li id=a2>"&rs("id")&"</li><li id=b>"&Left(rs("content_title"),20)&"</li><li id=c>"&rs("content_group")&" | "&rs("content_date")&"</li><li id=d>"
  If rs("content_gk")=0 Then
  f=f&"<a href=admin_getpost.asp?type=rzyc&done=1&id="&rs("id")&">隐藏</a>"
  Else
12 3 下一页
⌨️ 快捷键说明

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