关于ASP与ACCESS数据 的 删除和修改???,请高手帮忙! !

关于ASP与ACCESS数据 的 删除和修改???,请高手帮忙! !

del.asp 忘了把连接打开了，变量写重了一个
<%
set conn=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath=Server.MapPath("..\common\DataBase\pgc.mdb")
connstr="PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source=" & DBPath
conn.open connstr
dim id
id=request.querystring("id")
str="delete from ddmxb where id='"&id&"'"
conn.execute(str)
%>

edit21.asp
<%
set conn=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath=Server.MapPath("..\common\DataBase\pgc.mdb")
connstr="PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source=" & DBPath
conn.open connstr
dim id
id=request.querystring("id")
str="select * from ddmxb where id='"&id&"'"
set rs=server.createobject("adodb.recordset")
rs.open str,conn,1,1
session("id")=rs("id")
%>


xg21.asp
<%
set conn=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath=Server.MapPath("..\common\DataBase\pgc.mdb")
connstr="PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source=" & DBPath
conn.open connstr
dim id,name
id=session("id")
name=request.form("name")
str="update ddmxb set name='"&name&"' where id='"&id&"'"
conn.execute(str)
%>