<%
'------------------------------------------------------------
'获取表单数据
userpwd=request.Form("userpwd")
if trim(userpwd)="" then 
response.Write("请输入密码，密码不能为空")%>
<a href="lx9-3-2b.asp">返回</a>
<%response.end
end if
dim cnn
set cnn=server.CreateObject("adodb.connection")
cnnstr="driver={microsoft access driver (*.mdb)};"& _
"dbq="&server.MapPath("jxgl.mdb")
cnn.open cnnstr
strsql2="update user set userpwd='"&userpwd&"' where id="&session("id")
cnn.execute(strsql2)
response.Write("你已经成功修改")
%>