optimize.asp

西亚电子购物系统

<!--#include file="../manage/check-4.asp"-->

<link href="../conn/css.css" rel="stylesheet" type="text/css">

<form action=optimize.asp>
<b>注意：</b>( 需要FSO支持，FSO相关帮助请看微软网站 ) <br>输入数据库所在相对路径,并且输入<font color="red">正确</font>的数据库名称和密码，名称和密码同时正确数据库才会被压缩成功。（<font color="red">正在使用中数据库不能压缩，请选择备份数据库进行压缩操作</font>）

<BR>压缩数据库：<input type="text" name="dbpath" value=backup/sia-cart.asp class="textbox">
<BR>数据库密码：<input type="text" name="password" class="textbox">      
<BR><input type="submit" value="开始压缩" class="textbox-1">

</form>
<%
Dim dbpath,password
dbpath = request("dbpath")
password = request("password")

If dbpath <> "" Then
Const JET_3X = 4

dbpath = server.mappath(dbpath)
	response.write(CompactDB(dbpath))
End If


Function CompactDB(dbPath)
Dim fso, Engine, strDBPath
strDBPath = left(dbPath,instrrev(DBPath,"\"))
strDBPath = strDBPath & "temp.asp"
Set fso = CreateObject("Scripting.FileSystemObject")


If fso.FileExists(dbPath) Then
Set Engine = CreateObject("JRO.JetEngine")
On Error Resume Next

		Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='" & password & "';Data Source=" & dbpath, _
		"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='" & password & "';Data Source=" & strDBPath
	

fso.CopyFile strDBPath ,dbpath
fso.DeleteFile(strDBPath)
Set fso = nothing
Set Engine = nothing

	CompactDB = "操作完成。<br>如果密码正确你的数据库, " & dbpath & ", 将会被压缩!" & vbCrLf

Else
	CompactDB = "数据库名称或路径不正确. 请重试!" & vbCrLf
End If

End Function
%>