dataPath="database/Test.accdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Server.MapPath(dataPath)
id=1
conntent="测试数据"
sql="insert into newtable(ID,Content) values('"&id&"','"&conntent&"')"
conn.Execute(sql)
conn.close
set conn= nothing
页面错误
Microsoft JScript 编译错误 错误 '800a03ec'
缺少 ';'
/index.asp,行 14
Set conn = Server.CreateObject("ADODB.Connection")
----^
我access 是 2010 版本
------解决方案--------------------
- VBScript code
<% response.buffer=true '启用缓冲处理 dim conn,db dim connstr db="database/test.mdb"'数据库链接路径 connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr If Err Then err.Clear Set Conn = Nothing Response.Write "数据库连接出错,请检查数据库连接文件中的数据库参数设置。" Response.End End If id=1 conntent="测试数据" sql="insert into newtable(ID,Content) values('"&id&"','"&conntent&"')" conn.Execute(sql) %>