日期:2014-05-17 浏览次数:20869 次
<% 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) %>