admin_datamanage.asp

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

  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 width="100%" align="center" height="30" valign="middle" ><B>恢复备份数据库</B></td></tr>
<tr><td align=center>
<table cellpadding=3 cellspacing=1 border=0>
<form method="post" action="admin_datamanage.asp?action=RestoreData&act=Restore">
<tr><td height=90>
备份数据库路径(相对)：<input type=text size=40 name=DBpath value="databackup\dxy_<%=date()%>.asp">&nbsp;&nbsp;<BR>
目标数据库路径(相对)：<input type=text size=40 name="backpath" value="data/dxy.asp">

</td></tr></table></td></tr>
<tr><td>&nbsp;&nbsp;&nbsp;<b>注意：</b><br>
&nbsp;&nbsp;&nbsp;● <b>默认情况下目标数据库为当前系统数据库，也可使用新名称自行命名</b><br>
&nbsp;&nbsp;&nbsp;● 所有路径都是相对于程序空间根目录的相对路径<br>
&nbsp;&nbsp;&nbsp;● 您可以用这个功能来备份您的网站数据，以保证您的数据安全！<br>
</td></tr>
<tr><td align=center>
<input type=submit value="恢 复 数 据">
</td></tr></form>
</table>
</td></tr></table>
<%
end sub

sub restore()
			Dbpath=request.form("Dbpath")
			backpath=request.form("backpath")
			if dbpath="" then
			response.write "请输入备份数据库的路径和全名<br><br>"	
			else
			Dbpath=server.mappath(Dbpath)
			end if
			backpath=server.mappath(backpath)
		
			Set Fso=server.createobject("scripting.filesystemobject")
			if fso.fileexists(dbpath) then  					
			fso.copyfile Dbpath,Backpath
			response.write "<font color='#FF0000'><b>数据库已成功恢复！</b></font><br><br><a href='javascript:history.back(-1)'><<返回上一页</a>"
			else
			response.write "<font color='#FF0000'><b>没有找到备份数据库文件！</b></font><br><br><a href='javascript:history.back(-1)'><<返回上一页</a>"	
			end if
end sub

'====================备份数据库=========================
sub BackupData()
  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 width="100%" align="center" height="30" valign="middle" ><B>备份数据库</B></td></tr>
<tr><td align=center>
<table cellpadding=3 cellspacing=1 border=0>
<form method="post" action="admin_datamanage.asp?action=BackupData&act=Backup">
<tr><td height=90>
当前数据库地址(相对路径)：<input type=text size=40 name=dbpath value="data/dxy.asp"><BR>
备份数据库目录(相对路径)：<input type=text size=30 name=bkfolder value=databackup>&nbsp;如目录不存在，程序将自动创建<BR>
备份数据库名称(文件全名)：<input type=text size=30 name=bkDBname value="dxy_<%=date()%>.asp">&nbsp;如该文件存在将会被覆盖，如没有将自动创建<BR>
</td></tr></table></td></tr>
<tr><td>&nbsp;&nbsp;&nbsp;<b>注意：</b><br>
&nbsp;&nbsp;&nbsp;● 所有路径都是相对于程序空间根目录的相对路径<br>
&nbsp;&nbsp;&nbsp;● <b>请尽量避免使用 .mdb 的后缀名命名备份数据库</b><br>
&nbsp;&nbsp;&nbsp;● 您可以用这个功能来备份您的网站数据，以保证您的数据安全！<br>
</td></tr>
<tr><td align=center>
<input type=submit value="开 始 备 份">
</td></tr></form>
</table>
</td></tr></table>
<%
end sub

sub updata()
	    dbpath=server.mappath(request.form("dbpath"))
		bkfolder=request.form("bkfolder")
		bkdbname=request.form("bkdbname")
		Set Fso=server.createobject("scripting.filesystemobject")
		if fso.fileexists(dbpath) then
			If CheckDir(bkfolder) = True Then
			fso.copyfile dbpath,bkfolder& "\"& bkdbname
			else
			MakeNewsDir bkfolder
			fso.copyfile dbpath,bkfolder& "\"& bkdbname
			end if
			response.write "<font color='#FF0000'><b>备份数据库成功！</b></font> 您备份的数据库地址为：<br><br>" &bkfolder& "\"& bkdbname &"<br><br><a href='javascript:history.back(-1)'><<返回上一页</a>"
		Else
			response.write "找不到您所需要备份的数据库文件。<br><br><a href='javascript:history.back(-1)'><<返回上一页</a>"
		End if
end sub
'------------------检查某一目录是否存在-------------------
Function CheckDir(FolderPath)
	folderpath=Server.MapPath(".")&"\"&folderpath
    Set fso1 = CreateObject("Scripting.FileSystemObject")
    If fso1.FolderExists(FolderPath) then
       '存在
       CheckDir = True
    Else
       '不存在
       CheckDir = False
    End if
    Set fso1 = nothing
End Function
'-------------根据指定名称生成目录-----------------------
Function MakeNewsDir(foldername)
	dim f
    Set fso1 = CreateObject("Scripting.FileSystemObject")
        Set f = fso1.CreateFolder(foldername)
        MakeNewsDir = True
    Set fso1 = nothing
End Function


'====================压缩数据库 =========================
sub CompressData()
  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=100% bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF>
<tr><td width="100%" align="center" height="30" valign="middle" ><B>压缩数据库</B></td></tr>
<tr><td align=center>
<table cellpadding=3 cellspacing=1 border=0>
<form action="admin_datamanage.asp?action=CompressData" method="post">
<tr><td height=90 align=center>
压缩数据库地址(相对路径)：<input type="text" name="dbpath" value='databackup\dxy_<%=date()%>.asp' size=40><br><br><br>
<b>注意：</b>正在使用中的数据库不能压缩，请选择备份数据库进行压缩操作
</td></tr></table></td></tr>
<tr><td align=center>
<input type=submit value="开 始 压 缩">
</td></tr></form>
</table>
</td></tr>
</table>
<%
dim dbpath
dbpath = request("dbpath")

If dbpath <> "" Then
dbpath = server.mappath(dbpath)
	response.write(CompactDB(dbpath))
End If
end sub
'=====================压缩参数=========================
Function CompactDB(dbPath)
Dim fso, Engine, strDBPath
strDBPath = left(dbPath,instrrev(DBPath,"\"))
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(dbPath) Then
Set Engine = CreateObject("JRO.JetEngine")
	Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
		"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"

fso.CopyFile strDBPath & "temp.mdb",dbpath
fso.DeleteFile(strDBPath & "temp.mdb")
Set fso = nothing
Set Engine = nothing

	CompactDB = "<font color='#FF0000'><b>数据库压缩成功！</b></font><br><br>" & dbpath & vbCrLf

Else
	CompactDB = "<P><font color='#FF0000'><b>数据库名称或路径不正确，请重新输入！</b></font>" & vbCrLf
End If

End Function 	
%>