<%

Connstr="DBQ="+server.mappath("main.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;" set conn=server.createobject("adodb.connection") conn.open Connstr

sqlstr="select * from main" set rs=server.CreateObject("adodb.recordset") rs.open sqlstr,conn,1,3

rs.addnew

rs("text01")=request("text01") rs("text02")=request("text02") rs("text03")=request("text03")

rs.update

rs.close set rs=nothing conn.close set conn=nothing response.write "<script>window.alert('恭喜\n\n添加成功，点击返回');window.location.href='default.asp'</script>" %>