⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.asp

📁 后台登陆地址flashgbook/admin/index.asp用户名:admin密码:admin
💻 ASP
字号:
🔍 
<!--#include file="admin_conn.asp"-->
<% 
	if session("admin_name")="" then
		response.redirect"admin.asp"
	end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>STONE空间 flash留言本  后台管理</title>
<meta name="keywords" content="STONE,STONE空间 flash留言本">
<meta http-equiv="STONE空间 flash留言本" content="http://stone-stone.vip.sina.com">
<meta name="description" content="本程序由 STONE 设计编写！程序有问题请到 STONE空间 flash留言本 提出，谢谢！">
<link href="css.css" rel="stylesheet" type="text/css">
</head>

<body>
<div align="center">
<!--#include file="top.asp" -->
<br>
<% 
dim bakfolder,bakname
'备份数据库的文件夹
bakfolder="../data/bak"
'备份数据库的文件
bakname="bak.asp"
bakdb=bakfolder&"/"&bakname
set fileobj=server.createobject("scripting.filesystemobject")
	if fileobj.FileExists(server.mappath(bakdb)) then
	bakdatar="存在"
	end if
set fileobj=nothing
Function GetFileSize(FileName)
	set fso=server.createobject("scripting.filesystemobject")
	drvpath=server.mappath(FileName)
	set d=fso.getfile(drvpath)	
	size=d.size
	showsize=size & "&nbsp;Byte" 
	if size>1024 then
	   size=(Size/1024)
	   showsize=round(size,2) & "&nbsp;KB"
	end if
	if size>1024 then
	   size=(size/1024)
	   showsize=round(size,2) & "&nbsp;MB"		
	end if
	if size>1024 then
	   size=(size/1024)
	   showsize=round(size,2) & "&nbsp;GB"	   
	end if   
	set fso=nothing
	GetFileSize = showsize
End Function
' 检测服务器是否支持某一对象
Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
'查看文件修改时间
Function GetFileModified(FileName)
	set fso=server.createobject("scripting.filesystemobject")
	set d=fso.getfile(server.mappath(FileName))	
	set fso=nothing
	GetFileModified = d.datelastmodified
End Function
%>
<% 
select case request("action")
	case "gopage"
		call manage()

	case "info"
		call info()
		
	case "canshu"
		call canshu()
		
	case "gmhuifu"
		call gmhuifu()
		
	case "canshu_edit"
		call canshu_edit()
		
	case "manage"
		call manage()
		
	case "edit_pwd"
		call edit_pwd()
		
	case "edit_pwd_save"
		call edit_pwd_save()
		
	case "view"
		call view()
		
	case "del"
		call del()
		
	case "shujuku"
		call shujuku()
		
	case "beifen"
		call beifen()
		
	case "yasuo"
		call yasuo()
		
	case "huifu"
		call huifu()
end select
sub canshu_edit()
	set rs=server.CreateObject("adodb.recordset")
	sql="select * from gbook_set where id in(1)"
	rs.open sql,conn,3,2
	rs("gbookname")=trim(request.form("gbookname"))
	rs("homehave")=trim(request.form("homehave"))
	rs("homeurlu")=trim(request.form("homeurlu"))
	rs("homeurlk")=trim(request.form("homeurlk"))
	rs("homename")=trim(request.form("homename"))
	rs.update		
	rs.close
	set rs=nothing
	response.write"<script language='javascript'>alert('设置成功！');location.href('?action=canshu');</script>"
end sub
sub gmhuifu()
	set rs=server.CreateObject("adodb.recordset")
	sql="select * from gbook where id in("&request("id")&")"
	rs.open sql,conn,3,2
	rs("name")=trim(request.form("name"))
	
	if trim(request.form("blog"))="" then
	rs("blog")=null
	else
	rs("blog")=trim(request.form("blog"))
	end if
	
	if trim(request.form("homepage"))="" then
	rs("homepage")=null
	else
	rs("homepage")=trim(request.form("homepage"))
	end if
	
	if trim(request.form("qq"))="" then
	rs("qq")=null
	else
	rs("qq")=trim(request.form("qq"))
	end if
	
	if trim(request.form("email"))="" then
	rs("email")=null
	else
	rs("email")=trim(request.form("email"))
	end if
	
	rs("title")=trim(request.form("title"))
	rs("content")=trim(request.form("content"))
	
	if trim(request.form("gmcontent"))<>"" then
	rs("gmcontent")=trim(request.form("gmcontent"))
	rs("gmdate")=date()
	else
	rs("gmcontent")=null
	rs("gmdate")=null
	end if
	
	rs.update		
	rs.close
	set rs=nothing
	response.write"<script language='javascript'>alert('编辑成功！');location.href('?action=manage');</script>"
end sub
sub edit_pwd_save()
	  admin=trim(request.form("name"))
      pwd=trim(request.form("pwd"))
	  pwd2=trim(request.form("pwd2"))	  
	  if admin="" or pwd="" then
	  	 response.write"<script language='javascript'>alert('用户名和密码不能为空！');location.href('?action=edit_pwd');</script>"
	  end if
	  if pwd2<>pwd then
	  	 response.write"<script language='javascript'>alert('两次密码不一致！');location.href('?action=edit_pwd');</script>"
	  end if
      set rs=server.createobject("adodb.recordset")
	  sql="select * from admin where id=1"
	  rs.open sql,conn,3,2
	  rs("adminname")=admin
	  rs("adminpwd")=pwd
	  rs.update
	  rs.close
	  set rs=nothing
	  response.write"<script language='javascript'>alert('修改成功！');location.href('?action=info');</script>"
end sub
sub del()
		set rs=server.CreateObject("adodb.recordset")
		sql="select * from gbook where id="&request("id")&""
		rs.open sql,conn,3,2
		rs.delete		
		rs.close
		set rs=nothing
        response.write"<script language='javascript'>alert('删除成功！');location.href('?action=manage');</script>"
end sub
'备份数据库
sub beifen()
	  Set Fso=server.createobject("scripting.filesystemobject")
	  If Fso.fileexists(server.mappath(db)) then
			Fso.copyfile server.mappath(db),server.mappath(bakdb)
	  end if
	  set Fso=nothing
	  	Set fso = CreateObject("Scripting.FileSystemObject")
	fso.CopyFile server.mappath(bakdb),server.mappath(bakfolder) & "temp.mdb"
	Set Engine = CreateObject("JRO.JetEngine")
	Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(bakfolder) & "temp.mdb", _
  	"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(bakfolder) & "temp1.mdb"
	fso.CopyFile server.mappath(bakfolder) & "temp1.mdb",server.mappath(bakdb)
	fso.DeleteFile(server.mappath(bakfolder) & "temp.mdb")
	fso.DeleteFile(server.mappath(bakfolder) & "temp1.mdb")
	Set fso = nothing
	Set Engine = nothing

      response.write "<script language=javascript>alert('备份数据库成功！');location.href('?action=shujuku');</script>"
end sub
'压缩数据库
sub yasuo()
	Set fso = CreateObject("Scripting.FileSystemObject")
	fso.CopyFile server.mappath(bakdb),server.mappath(bakfolder) & "temp.mdb"
	Set Engine = CreateObject("JRO.JetEngine")
	Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(bakfolder) & "temp.mdb", _
  	"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(bakfolder) & "temp1.mdb"
	fso.CopyFile server.mappath(bakfolder) & "temp1.mdb",server.mappath(bakdb)
	fso.DeleteFile(server.mappath(bakfolder) & "temp.mdb")
	fso.DeleteFile(server.mappath(bakfolder) & "temp1.mdb")
	Set fso = nothing
	Set Engine = nothing
    response.write "<script language=javascript>alert('压缩数据库成功！');location.href('?action=shujuku');</script>"
end sub
'恢复数据库
sub huifu()
	  Set Fso=server.createobject("scripting.filesystemobject")
	  If Fso.fileexists(server.mappath(bakdb)) then
			Fso.copyfile server.mappath(bakdb),server.mappath(db)
	  end if
	  set Fso=nothing
      response.write "<script language=javascript>alert('恢复数据库成功！');location.href('?action=shujuku');</script>"
end sub
 %>
<table width="760" border="1" cellpadding="1" cellspacing="1" bordercolor="66ccff">
  <tr>
    <td><table width="100%" border="0" cellpadding=2 cellspacing=2 class="k1" style="border-collapse: collapse">
        <tr align="center" bgcolor="#3399CC" class="fontmenu2">
          <td colspan="2" bgcolor="#006699">如果您使用了此留言本，请到我的博客留下您的地址，这样更新后能通知您！<br>
            <a href="http://www.stonemx.com/blog/archives/2006/flashgbook.html" target="_blank">http://www.stonemx.com/blog/archives/2006/flashgbook.html<br>
            </a>此留言本版本:2.0(2006-4-21)
            <table border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td>最新版本： </td>
                  <td><iframe src="http://www.stonemx.com/design/flashgbook/bb.html" width="100" marginwidth="0" height="14" marginheight="0" scrolling="no" frameborder="0"></iframe></td>
                </tr>
                        </table></td>
        </tr>
        
        <tr align="center" bgcolor="#3399CC" class="fontmenu2">
          <td height=12 colspan="2">服务器基本参数</td>
        </tr>
        <tr bgcolor="#eeeeee" class="fontmenu2">
          <td width="18%" height=25 bgcolor="#66CCFF" class="fonthei">&nbsp;服务器名：</td>
          <td width='82%' bgcolor="#006699">&nbsp;<%=Request.ServerVariables("SERVER_NAME")%></td>
        </tr>
        <tr bgcolor="#eeeeee" class="fontmenu2">
          <td height=25 bgcolor="#66CCFF" class="fonthei">&nbsp;服务器IP：</td>
          <td bgcolor="#006699">&nbsp;<%=Request.ServerVariables("LOCAL_ADDR")%></td>
        </tr>
        <tr bgcolor="#eeeeee" class="fontmenu2">
          <td height=25 bgcolor="#66CCFF" class="fonthei">&nbsp;服务器端口：</td>
          <td bgcolor="#006699">&nbsp;<%=Request.ServerVariables("SERVER_PORT")%></td>
        </tr>
        <tr bgcolor="#eeeeee" class="fontmenu2">
          <td height=25 bgcolor="#66CCFF" class="fonthei">&nbsp;服务器时间：</td>
          <td bgcolor="#006699">&nbsp;<%=now%></td>
        </tr>
        <tr bgcolor="#eeeeee" class="fontmenu2">
          <td height=25 bgcolor="#66CCFF" class="fonthei">&nbsp;IIS版本：</td>
          <td bgcolor="#006699">&nbsp;<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
        </tr>
        <tr bgcolor="#eeeeee" class="fontmenu2">
          <td height=25 bgcolor="#66CCFF" class="fonthei">&nbsp;服务器操作系统：</td>
          <td bgcolor="#006699">&nbsp;<%=Request.ServerVariables("OS")%></td>
        </tr>
        <tr bgcolor="#eeeeee" class="fontmenu2">
          <td height=25 bgcolor="#66CCFF" class="fonthei">&nbsp;脚本超时时间：</td>
          <td bgcolor="#006699">&nbsp;<%=Server.ScriptTimeout%> 秒</td>
        </tr>
        <tr bgcolor="#eeeeee" class="fontmenu2">
          <td height=25 bgcolor="#66CCFF" class="fonthei">&nbsp;站点物理路径：</td>
          <td bgcolor="#006699">&nbsp;<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
        </tr>
        <tr bgcolor="#eeeeee" class="fontmenu2">
          <td height=25 bgcolor="#66CCFF" class="fonthei">&nbsp;服务器CPU数量：</td>
          <td bgcolor="#006699">&nbsp;<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
        </tr>
        <tr bgcolor="#eeeeee" class="fontmenu2">
          <td height=25 bgcolor="#66CCFF" class="fonthei">&nbsp;服务器解译引擎：</td>
          <td bgcolor="#006699">&nbsp;<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
        </tr>
        <tr bgcolor="#eeeeee" class="fontmenu2">
          <td height=25 bgcolor="#66CCFF" class="fonthei">&nbsp;本文件路径：</td>
          <td bgcolor="#006699"><%bwjlj=Request.ServerVariables("PATH_TRANSLATED")%>            <%=  Replace(bwjlj, "\", "/") %></td>
        </tr>
        <tr bgcolor="#eeeeee" class="fontmenu2">
          <td height=25 bgcolor="#66CCFF" class="fonthei">&nbsp;文件夹大小：</td>
          <td bgcolor="#006699">
<%If IsObjInstalled("Scripting.FileSystemObject") = False Then%>
		此功能要求服务器支持文件系统对象（FSO），而你当前的服务器不支持！
		
<%else
	
Set fso1 = CreateObject("Scripting.FileSystemObject")  
Set ff = fso1.GetFolder(server.MapPath("../")) 
%>
<%=  Replace(ff, "\", "/") %> &nbsp;&nbsp;此目录下共&nbsp;&nbsp;
<% 
	size=ff.size
	showsize=round(size,2) & "&nbsp;Byte" 
	if size>1024 then
	   size=(Size/1024)
	   showsize=round(size,2) & "&nbsp;KB"
	end if
	if size>1024 then
	   size=(size/1024)
	   showsize=Round(size,2) & "&nbsp;MB"		
	end if
	if size>1024 then
	   size=(size/1024)
	   showsize=Round(size,2) & "&nbsp;GB"	   
	end if   
	set fso1=nothing
 %>
            <%=showsize%>
			<% End If %></td>
        </tr>
        
      </table></td>
  </tr>
</table>
<br>
<!--#include file="bottom.asp" -->
</div>
</body>
</html>

⌨️ 快捷键说明

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