近来一直想着如何简化嵌套留言的代码

搜索及学习的同时，看到一对表进行(添加，修改，删除，查询)的简化代码

甚觉有用，便收藏了。

修改数据

<%

set conn=server.CreateObject("adodb.connection")

conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("数据库.mdb")

conn.execute("update 表 set 列1=´abc´,列2=´123´ where id=1")

conn.close

%>

添加数据

<%

set ok=server.CreateObject("adodb.connection")

ok.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("数据库.mdb")

ok.execute("insert into 表(列1,列2) values(´"&request.form("t1")&"´,´"&request.form("t2")&"´)")

ok.close

response.write "添加记录成功！"

%>

删除数据

<%

set conn=server.CreateObject("adodb.connection")

conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("数据库.mdb")

conn.execute("delete from 表 where id=3")

conn.close

response.write "删除成功！"

%>

查询数据

<%

set conn=Server.CREATEOBJECT("ADODB.CONNECTION")

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("数据库.mdb")

set rs=conn.execute("select * from 表",recordsaffected,adcmdtext)

while not rs.eof

response.write rs("列1")

response.write "<br>"

rs.movenext

wend

rs.close

set conn=nothing

%>