Asp常用通用函数之创建MsAccess数据库

'函数名：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