adminaccessstream.asp

程序网络论坛HigroupBBS v4.00 默认管理员帐号密码都是Marcos

<!--#include file="MarcosCB.asp"-->
<style>
<%=skinCss%>
</style>
<%
	getConn()
	isIn()
	isAdmin()
	closeConn()

	action=request("action")
	if action="backup" or action="restore" then
		On Error Resume Next
		dbs1=request("database1")
		dbs2=request("database2")
		Set objStream=server.createObject("ADODB.Stream")
		objStream.Type=1 ' adTypeBinary
		objStream.Open
		objStream.loadFromFile dbs1
		if err then
			echo "<script>alert('"&err.Description&"');location.href='adminAccess.asp';</script>"
			response.end
		end if
		objStream.saveToFile dbs2,2
		echo "<div align=center>操作成功！</div><br>"
	end if
	if action="compress" then
		dbs1=request("dbs1")
		compressdata(dbs1)   
	end if
  
	sub compressdata(dbs1)
	   if dbs1<>"" then
	  	  echo "<div align=center>"&compactdb(dbs1)&"</div><br>"
	   end if
	end sub

	function compactdb(dbs1)
		dim fso,engine, strdbs1,jet_3x
		On Error Resume Next
		strdbs1=left(dbs1,instrrev(dbs1,"\"))
		Set objStream=server.createObject("ADODB.Stream")
		objStream.Type=1 ' adTypeBinary
		objStream.Open
		objStream.loadFromFile dbs1
		if err Then
			compactdb=err.Description
		 else
			objStream.saveToFile strdbs1&"temp.mdb",2
			Set engine=createobject("JRO.JetEngine")
			engine.compactdatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&strdbs1&"temp.mdb",_
								   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&strdbs1&"temp1.mdb"
			objStream.loadFromFile strdbs1&"temp1.mdb"
			objStream.saveToFile dbs1,2
			set objStream=nothing
			set Engine=nothing
			compactdb="你的数据库, "&dbs1&", 已经压缩成功!<br>请手动删除"&strdbs1&"temp.mdb,temp1.mdb这两个临时文件."
		end if
	end function
%>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <form name="form1" method="post" action="?action=backup" onSubmit="form1.Submit.disabled=true">
  <tr align="center"> 
      <td height="20" colspan="2" class="tr"> 数据备份无FSO版 <a href="adminAccess.asp">｜FSO版｜</a></td>
  </tr>
  <tr> 
    <td width="242" height="20" align="right">源数据库路径：</td>
    <td width="512" height="20"><input name="database1" type="text" id="database1" value="<%=database1%>" size="60"></td>
  </tr>
  <tr> 
    <td height="20" align="right">目的数据库路径：</td>
    <td height="20">
	<input name="database2" type="text" id="database2" value="<%=database2%>\<%=date()%>.%5C" size="60">
    </td>
  </tr>
  <tr align="center"> 
      <td height="20" colspan="2" class="tr">
<input type="submit" name="Submit" value="开始备份"></td>
  </tr>
</form>
</table>
<br>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <form name="form3" method="post" action="?action=compress" onSubmit="javascript:form3.Submit8.disabled=true">
    <tr> 
      <td height="25" colspan="2" align="center" class="tr">系统数据库压缩</td>
    </tr>
    <tr> 
      <td width="239" align="right">压缩数据库：</td>
      <td width="515"> <input name="dbs1" type="text" id="dbs14" value="<%=database2%>\<%=date()%>.%5C" size="60"></td>
    </tr>
    <tr> 
      <td colspan="2" align="center" class="tr"> <input name="Submit8" type="submit" id="Submit8" value="开始压缩"> 
      </td>
    </tr>
  </form>
</table>
<br>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <form name="form2" method="post" action="?action=restore" onSubmit="form2.Submit2.disabled=true">
  <tr align="center"> 
      <td height="20" colspan="2" class="tr"> 数据恢复数据恢复(恢复后请重建缓存)</td>
  </tr>
  <tr> 
    <td width="242" height="20" align="right">源数据库路径：</td>
    <td width="512" height="20">
	<input name="database1" type="text" id="database223" value="<%=database2%>\<%=date()%>.%5C" size="60"></td>
  </tr>
  <tr> 
    <td height="20" align="right">目的数据库路径：</td>
    <td height="20"> 
      <input name="database2" type="text" id="database122" value="<%=database1%>" size="60"> 
    </td>
  </tr>
  <tr align="center"> 
      <td height="20" colspan="2" class="tr">
<input type="submit" name="Submit2" value="开始恢复"></td>
  </tr>
</form>
</table>
<br>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <tr> 
    <td height="25" align="center" class="tr"> </td>
  </tr>
  <tr> 
    <td height="60" align="center" bgcolor="#FFFFFF"><font face="Wingdings">v</font> 
      HigroupBBS <font face="Wingdings">v</font><br>
      Powered By <a href="javascript:;" title="QQ 26696782">Marcos</a> 2004.10</td>
  </tr>
</table>