admin_datamanage.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

<!-- #include file="include/admin_onlogin.asp" -->
<%
dim tmp1,tmp2,tdim
tit_fir="数据库管理"
tit="数据库管理"
call admin_header(0,0)
%>
<tr><td align=center colspan=2 height=30>
  <table border=0>
  <tr>
  <td><a href='?'><%response.write tit%></a></td>
  <td width=10></td>
  <td><a href='?action=BackupData'<%if action="BackupData" then response.write " class=red"%>>备份数据库</a></td>
  <td width=10></td>
  <td><a href='?action=CompressData'<%if action="CompressData" then response.write " class=red"%>>压缩数据库</a></td>
  <td width=10></td>
  <td><a href='?action=RestoreData'<%if action="RestoreData" then response.write " class=red"%>>恢复数据库</a></td>
  <td width=10></td>
  <td><a href='?action=SpaceSize'<%if action="SpaceSize" then response.write " class=red"%>>系统空间占用</a></td>
  </tr>
  </table>
</td></tr>

<%

action=trim(request("action"))

dim dbpath,bkfolder,bkdbname,fso,fso1

select case action
case "CompressData"
		dim tmprs
		dim allarticle
		dim Maxid
		dim topic,username,dateandtime,body
		call CompressData()

case "BackupData"
		if request("act")="Backup" then
		call updata()
		else
		call BackupData()
		end if

case "RestoreData"
dim backpath
		if request("act")="Restore" then
		call restore()
		else
		call RestoreData()
		end if

 case "SpaceSize"	
		call SpaceSize()

end select

set conn=nothing

'====================系统空间占用=======================
sub SpaceSize()
on error resume next
  call admin_td(tit)
%>
<tr>
<td>
  <table border=0 width='100%'>
  <tr><td align=center><%response.write tit_fir%>需要服务器支持<B><FONT COLOR="#FF0000">FSO</FONT></B>功能，<B><FONT COLOR="#FF0000">FSO</FONT></B> 相关帮助请看微软网站。<P><P></td></tr>
  <tr><td align=center><%response.write tit_fir%>插件由 <a href='http://dxy.9126.net' target=_blank>丁香苑社区</a> 制作</td></tr>
  </table>
</td>
<td>
<table border=1 cellspacing=0 cellpadding=3 width=600 bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF>
<tr>
<td height=25 align=center>
<b>系统空间占用情况</b>
</td>
</tr> 	
<tr><td>
<blockquote><br>
<%response.write img_admin("s_imp","")%>&nbsp;<b>系统文件占用空间情况：</b><br><br>
<%response.write img_admin("","")%>&nbsp;程序文件占用空间：&nbsp;<img src="images/vote/vb1.gif" width=<%=drawspecialbar%> height=10>&nbsp;<%showSpecialSpaceinfo("Program")%><br> 			
<%response.write img_admin("","")%>&nbsp;数据文件占用空间：&nbsp;<img src="images/vote/vb2.gif" width=<%=drawbar("data_jk")%> height=10>&nbsp;<%showSpaceinfo("data_jk")%><br>
<%response.write img_admin("","")%>&nbsp;备份数据占用空间：&nbsp;<img src="images/vote/vb3.gif" width=<%=drawbar("databackup")%> height=10>&nbsp;<%showSpaceinfo("databackup")%><br>
<%response.write img_admin("","")%>&nbsp;网站Skin占用空间：&nbsp;<img src="images/vote/vb4.gif" width=<%=drawbar("skin")%> height=10>&nbsp;<%showSpaceinfo("skin")%><br>
<%response.write img_admin("","")%>&nbsp;站点图片占用空间：&nbsp;<img src="images/vote/vb5.gif" width=<%=drawbar("images")%> height=10>&nbsp;<%showSpaceinfo("images")%><br><br>
<%response.write img_admin("s_imp","")%>&nbsp;<b>上传文件占用空间情况：</b><br><br>
<%response.write img_admin("","")%>&nbsp;新闻图片占用空间：&nbsp;<img src="images/vote/vb6.gif" width=<%=drawbar("upload/news")%> height=10>&nbsp;<%showSpaceinfo("upload/news")%><br>
<%response.write img_admin("","")%>&nbsp;文章图片占用空间：&nbsp;<img src="images/vote/vb7.gif" width=<%=drawbar("upload/article")%> height=10>&nbsp;<%showSpaceinfo("upload/article")%><br>
<%response.write img_admin("","")%>&nbsp;下载系统图片占用：&nbsp;<img src="images/vote/vb8.gif" width=<%=drawbar("upload/down")%> height=10>&nbsp;<%showSpaceinfo("upload/down")%><br>
<%response.write img_admin("","")%>&nbsp;论坛图片占用空间：&nbsp;<img src="images/vote/vb9.gif" width=<%=drawbar("upload/forum")%> height=10>&nbsp;<%showSpaceinfo("upload/forum")%><br>
<%response.write img_admin("","")%>&nbsp;图库文件占用空间：&nbsp;<img src="images/vote/vb10.gif" width=<%=drawbar("upload/gallery")%> height=10>&nbsp;<%showSpaceinfo("upload/gallery")%><br>
<%response.write img_admin("","")%>&nbsp;网站推荐占用空间：&nbsp;<img src="images/vote/vb5.gif" width=<%=drawbar("upload/website")%> height=10>&nbsp;<%showSpaceinfo("upload/website")%><br><br>
<%response.write img_admin("s_imp","")%>&nbsp;<b>系统占用空间总计：</b><br><br><img src="images/vote/vb1.gif" width=<%=drawbar(".")%> height=10> <%showspecialspaceinfo("All")%>
</blockquote> 	
</td></tr>
</table>
<%
end sub

'=====================系统空间参数=========================
	Sub ShowSpaceInfo(drvpath)
 		dim fso,d,size,showsize
 		set fso=server.createobject("scripting.filesystemobject") 		
 		drvpath=server.mappath(drvpath) 		 		
 		set d=fso.getfolder(drvpath) 		
 		size=d.size
 		showsize=size & "&nbsp;字节" 
 		if size>1024 then
 		   size=(size\1024)
 		   showsize=size & "&nbsp;KB"
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&nbsp;MB"		
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&nbsp;GB"	   
 		end if   
 		response.write "<font face=verdana>" & showsize & "</font>"
 	End Sub	
 	
 	Sub Showspecialspaceinfo(method)
 		dim fso,d,fc,f1,size,showsize,drvpath 		
 		set fso=server.createobject("scripting.filesystemobject")
 		drvpath=server.mappath("images")
 		drvpath=left(drvpath,(instrrev(drvpath,"\")-1))
 		set d=fso.getfolder(drvpath) 		
 		
 		if method="All" then 		
 			size=d.size
 		elseif method="Program" then
 			set fc=d.Files
 			for each f1 in fc
 				size=size+f1.size
 			next	
 		end if	
 		
 		showsize=size & "&nbsp;Byte" 
 		if size>1024 then
 		   size=(size\1024)
 		   showsize=size & "&nbsp;KB"
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&nbsp;MB"		
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&nbsp;GB"	   
 		end if   
 		response.write "<font face=verdana>" & showsize & "</font>"
 	end sub 	 	 	
 	
 	Function Drawbar(drvpath)
 		dim fso,drvpathroot,d,size,totalsize,barsize
 		set fso=server.createobject("scripting.filesystemobject")
 		drvpathroot=server.mappath("images")
 		drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
 		set d=fso.getfolder(drvpathroot)
 		totalsize=d.size
 		
 		drvpath=server.mappath(drvpath) 		
 		set d=fso.getfolder(drvpath)
 		size=d.size
 		
 		barsize=cint((size/totalsize)*400)
 		Drawbar=barsize
 	End Function 	
 	
 	Function Drawspecialbar()
 		dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize
 		set fso=server.createobject("scripting.filesystemobject")
 		drvpathroot=server.mappath("images")
 		drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
 		set d=fso.getfolder(drvpathroot)
 		totalsize=d.size
 		
 		set fc=d.files
 		for each f1 in fc
 			size=size+f1.size
 		next	
 		
 		barsize=cint((size/totalsize)*400)
 		Drawspecialbar=barsize
 	End Function

'====================恢复数据库=========================
sub RestoreData()