editok.asp

asp入门呵呵呵刚学的人看看asp入门呵呵呵刚学的人

<%
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("db1.mdb")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath

on error resume next
id=trim(request("id"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from info where id="&id
rs.open sql,conn,1,3
rs("name")=request.form("name")
rs("addr")=request.form("addr")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<script lanaguage="javascript">{window.alert('修改成功!请返回!');window.location.href='del.asp'}</script>