asp连接access数据库

dim conn,connstr,TimesDB,rsTimesDB="data/data.mdb"connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&TimesDB&"")On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.open connstr If Err Then err.Clear Set Conn = Nothing Response.Write "<center>数据库连接错误，请检查Conn.asp文件连接字符串！</center>" Response.End End If
set rs=server.CreateObject("adodb.recordset")
这几句什么意思啊？网页提示说：数据库连接错误，请检查Conn.asp文件连接字符串！怎样解决？

dim conn,connstr,TimesDB:rsTimesDB="data/data.mdb"   ' 连写语句要用 ：分隔，第一个不妥之处
  On Error Resume Next
  Set conn=server.CreateObject("ADODB.Connection")
  connstr="Provider=Microsoft.Jet.OLEDB.4.0;data source="&server.MapPath(rsTimesDB)   ' 直接引用变量，不需要加引号 
  conn.Open connstr

  If Err.number<>0 Then
   response.write"<script>window.alert(""数据库连接错误,"&Err.Description&""")</script>"
   Err.clear
   conn.close
  Set conn=Nothing 

   response.End
  End If

dim conn,connstr,//TimesDB,

rsTimesDB="data/data.mdb"connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&TimesDB&"")    '有问题

On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.open connstr If Err Then err.Clear Set Conn = Nothing Response.Write "<center>数据库连接错误，请检查Conn.asp文件连接字符串！</center>" Response.End End If set rs=server.CreateObject("adodb.recordset") 将你以上的代码这样改：

<% On Error Resume Next '错误的话继续执行 Dim conn,connstr,TimesDB '定义变量

TimesDB="/data/data.mdb" '赋路径 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(TimesDB) '用OLEDE提供者的方式来链接ACCESS数据库 Set conn=Server.CreateObject("ADODB.Connection") '建立链接 conn.Open connstr '打开链接

If Err Then '如果错误     Err.clear '则清空     Response.Write"数据库连接出现错误！" '显示数据库连接出现错误     Response.End '结束response End If '结束判断 %>

定义了几个变量，分别是conn connstr TimesDB rs。 TimesDB这个为数据库路径变量，他的值为data/data.mdb，你检查一下路径是否正确。其它的变量就不用解释了吧。

你唯一可能出错的地方就是数据库路径 。再不懂可以加我qq437960263，慢慢指导，嘿！

那你试试修改为：

Dim Conn,ConnStr,rs,TimesDB

TimesDB="data/data.mdb" Set Conn=Server.CreateObject("Adodb.Connection") ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(TimesDB) Conn.open ConnStr If err Then    err.clear    Set Conn = Nothing    Response.Write "数据库连接错误，请检查Conn.asp文件连接字符串!"    Response.End End If %>

connstr="provider=microsoft.jet.4.0;data source="&server.mappath(rstimesdb)

你的路径有没有问题！

data/data.mdb