我重写如下:
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"),再进行打开操作...