<%
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>"
%>
