asp操作access数据库的读写删

打开数据库

 

< %
' On Error Resume Next
Set  conn  =  Server.CreateObject( " ADODB.Connection " )
connstr = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "   &  Server.MapPath( " data/db.mdb " )
conn.open connstr
% >

 

关闭数据库

 

< %
conn.close
set  conn = nothing
% >

 

修伽i数据库信息

 

< %
' 插入
sql = " INSERT INTO branchtype (branchname,sj) VALUES (' " & branchname & " ',' " & now () & " ') "
conn.execute(sql)

' 修改
sql = " update branchtype set branchname=' " & branchname & " ' where branchid= " & clng (branchid)
conn.execute(sql)

' 删除
sql = " delete * from newslist where id= " & id