＋设为首页 ＋添加到收藏夹
connString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.MapPath("data.mdb")
Set conna = Server.CreateObject("ADODB.Connection")
conna.Open connString
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from info"
rs.open sql,conna,1,3
rs.addnew
response.write ("OK")
rs("Issuedby").Value=Issuedby
rs("ContactNo").Value=ContactNo
rs("Usingdate").Value=Usingdate
rs("Dept").Value=Dept
rs("Purpose").Value=purpose
rs("Pickupplace").Value=Pickupplace
rs("Destination").Value=Destination
rs("Pickuptime").Value=Pickuptime
rs("Flightdetails").Value=Flightdetails
rs("Remarks").Value=Remarks
rs("Driver").Value=Driver
rs.update
rs.close
conna.Open connString 是这行 还是 rs.update 这行
连接字符串换成
db="data.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
