我重写如下:
dim strconn,objDB,strSQL
strconn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.MapPath("liuyan.mdb") 
set objDB=server.createObject("ADODB.connection")
objDB.open strconn
strSQL=="insert into gongcheng (id,dizhi,biaoti,neirong) values (32,'rwer','23ewr','dasdasd')" 
objDB.execute strSQL这样乐观估计可以运行了,呵呵....可以加分不?另外纠正:
1,var rs=Server.CreateObject("adodb.recordset") 
其中var 应改为 SET
2,连接数据库时应该先建立一个连接对象实例,即set objDB=server.createObject("ADODB.connection"),再进行打开操作...

解决方案 »

  1.   

    Dim strConn,objDB,strSQL
    strConn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.MapPath("liuyan.mdb") Set objDB=Server.CreateObject("ADODB.connection") 
    objDB.open strConn  strSQL=="insert into gongcheng (id,dizhi,biaoti,neirong) values (32,'rwer','23ewr','dasdasd')" 
    objDB.Execute(strSQL) strConn.Close
    Set strConn=Nothing
    别忘了关闭数据库连接哦!呵呵!