'函数名：CrDb_MsAccess

'作 用：创建MsAccess数据库

'参 数：DbPath ---- 目标目录信息

'参 数：DbFileName ---- 目标库文件名称

'参 数：DbUpwd ---- 目标库打开密码

'返回值：建立成功返回 True 否则 False

'**************************************************

Public Function CrDb_MsAccess(ByVal DbPath,ByVal DbFileName,ByVal DbUpwd)

CrDb_MsAccess=False

On Error GoTo 0

On Error Resume Next

DIM fxztxt,fu_fu_db_str,fu_db_str

fxztxt=Chr(60)&"%Response.end()%"&Chr(62)

If Right(DbPath,1)"\" Then DbPath=DbPath & "\"

fu_fu_db_str="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&DbPath&"temp.mdb;"

fu_db_str ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&DbPath&DbFileName&";Jet OLEDB:Database Password="&DbUpwd&";"

Set fu_Ca = Server.CreateObject("ADOX.Catalog")

fu_Ca.Create fu_fu_db_str

Set fu_Ca = Nothing

Set fu_Je = Server.CreateObject("JRO.JetEngine")

fu_Je.CompactDatabase fu_fu_db_str,fu_db_str

Set fu_fso = CreateObject("Scripting.FileSystemObject")

fu_fso.DeleteFile(DbPath&"temp.mdb")

Set fu_Je = Nothing

Set fu_fso = Nothing

set fu_Conn =server.createobject("ADODB.Connection")

set fu_Rs =server.createobject("ADODB.Recordset")

fu_Conn.open fu_db_str

fu_Sql_Str="CREATE TABLE [0] ([0] Text DEFAULT Notxt NOT NULL,[11] int IDENTITY (1, 1) NOT NULL PRIMARY KEY)"

fu_Conn.Execute(fu_Sql_Str)

fu_Sql_Str="Select * From [0]"

fu_Rs.open fu_Sql_Str,fu_Conn,1,3

fu_Rs.addnew

fu_Rs("0")=fxztxt

fu_Rs.update

fu_Rs.Close

fu_Conn.Close

Set fu_Rs = Nothing

Set fu_Conn = Nothing

If Err.Number = 0 Then

CrDb_MsAccess=True

End If

On Error GoTo 0

End function