<%
Response.Buffer=True
session.timeout=20
on error resume next
DB="database/data.mdb"
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
conn.Open connstr

    Set rs=Server.CreateObject("ADODB.Recordset")
  sql="select * from MT_abc"
  rs.open sql,conn,1,3
   rs("username")=trim("mintao")

 rs.update
 rs.close
 conn.close
 set rs=nothing
 set conn=nothing

 response.write "<script language='javascript'>"
 response.write "alert('操作成功：**基本信息设置完成！');"
 response.write "location.href='index.asp';"
 response.write "</script>"
 response.end
%>