compact.asp

来自「电子公文传输管理系统」· ASP 代码 · 共 43 行

<%
option explicit

if instr(Request.ServerVariables("http_referer"),""&Request.ServerVariables("server_name")&"") = 0 then
response.write "<script>alert('来源错误！');history.back();</script>"
response.end
end if
Const JET_3X = 4

Function CompactDB(dbPath, boolIs97)
	Dim fso, Engine, strDBPath
	strDBPath = left(dbPath,instrrev(DBPath,"\"))
	Set fso = CreateObject("Scripting.FileSystemObject")
	If fso.FileExists(dbPath) Then
		Set Engine = CreateObject("JRO.JetEngine")
		'是acess97
		If boolIs97 = "True" Then
			Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
				"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb;" _
				& "Jet OLEDB:Engine Type=" & JET_3X
		Else
			Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
				"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.asp"
		End If
		fso.CopyFile strDBPath & "temp.asp",dbpath
		fso.DeleteFile(strDBPath & "temp.asp")
		Set fso = nothing
		Set Engine = nothing
		CompactDB = "<script>alert('压缩成功！');history.back();</script>"
	Else
		CompactDB = "<script>alert('找不到数据库！\n请检查数据库路径是否输入错误！');history.back();</script>"
	End If
End Function

Dim dbpath,boolIs97
dbpath = request("dbpath")
boolIs97 = request("boolIs97")

If dbpath <> "" Then
	dbpath = server.mappath(dbpath)
	response.write(CompactDB(dbpath,boolIs97))
End If
%>