asp Access数据备份,还原,压缩类
<!--#include file="config.asp" -->
<!--#include file="Fun.asp" -->
<%
'数据库管理类
class Datas
'备份
public sub Bk()
Set fso=server.createobject("scripting.filesystemobject")
fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
set fso=nothing
response.Write("<mce:script language=javascript><!--
alert('备份成功！');window.location.href='DataManage.asp'
// --></mce:script>")
end sub
'还原
public sub Rt()
SDPath = server.mappath(SiteDataPath)
SDBPath = server.mappath(SiteDataBakPath)
set Fso=Server.CreateObject("Scripting.FileSystemObject")
if Fso.FileExists(SDBPath) then
Fso.CopyFile SDBPath,SDPath
Set Fso=nothing
response.Write("<mce:script language=javascript><!--
alert('成功：你已经成功恢复数据库!');window.location.href='DataManage.asp?action=rt'
// --></mce:script>")
else
response.Write("<mce:script language=javascript><!--
alert('失败：请检查路径和数据库名是否存在');window.location.href='DataManage.asp?action=rt'
// --></mce:script>")
end if
end sub
'压缩
public sub Dc()
SDBPath = server.mappath(SiteDataBakPath)
set Fso=Server.CreateObject("Scripting.FileSystemObject")
if Fso.FileExists(SDBPath) then
Set Engine =Server.CreateObject("JRO.JetEngine")
if request("boolIs") = "97" then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath & "_temp.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath & "_temp.mdb"
end if
Fso.Copy
相关文档：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if request("action")=1 then
Response.ContentType="application/ms-excel"
Response.AddHeader "content-disposition","attachment;filename=www.xls"
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//E ......
1.连接数据库ConnDB()类
package tool;
/****************************
**
**属性文件与数据库均在tool包下面
**
*****************************/
/* 数据访问组件 */
import java.io.IOException;
import java.io.InputStream;
import java.sql.Connection;
import java.sql.DriverManager;
impor ......
指针在C中经常提到，但是任何一种语言中都隐藏着指针。
asp也是如此，在我们传递参数给function或者sub时，我们如果传递的是一个变量，那么asp会把这个变量地址传过去，所以如果你在函数和过程里面更改这个参数，那么原变量也会改变。
'函数例子
Dim i1,i2
i1=1
'=======================
Function toadd(i)'或 ......
在设计access数据库时，表中字段属性有id项设为自动编号类型的，添加许多记录后，在该表中将所有记录删除，再新增记录并不会从1开始,如何操作可以使新增记录编号重新从1计数？
解决方法：删除表里所有数据 然后压缩修复数据库 再新增就从1编号了
注:
2000-2003压缩修复数据库点击:工具 ......
