我的程序如下:
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("download.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
dim name,pass,email
name=Request("user")
pass=Request("pass")
email=Request("email")
sql="Insert into s1(name,pass,email)Values('"& name &"','"& pass &"','"& email &"')"
Set rs=conn.Execute(sql)