#12002/7/30 17:20:46
使用command对象
<%
commandp="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db1.mdb")
Set command1 = Server.CreateObject("ADODB.command")
command1.activeconnection=commandp
command1.commandtext="insert into xhtable(name,unit,cont,idea) values('"&name1&"','"&unit&"','"&cont&"','"&idea&"')"
command1.commandtype=1
command1.commandtimeout=0
command1.prepared=true
command1.execute()
%>