把
<%
Err.Clear
dim db,conn,connstr
Db ="Database.mdb"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&Db&"") '填写你数据库路径
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。" Response.End
End If
%>保存为conn.asp
在引用页面加入
<!-- #include file="conn.asp" -->
用按钮来提交表单，然后通过SQL对ACCESS进行操作！
