Set tqconn = Server.CreateObject("ADODB.Connection")
'Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
'Strconn=Strconn & "DBQ=" & Server.MapPath("tqzhigao.mdb")
cs="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
tqconn.connectionstring=cs & Server.MapPath("tqzhigao.mdb")
tqconn.Open Strconn
set tqrs=server.CreateObject("adodb.recordset")
'sqlstr="select * from xiaozhangdenglu where username='"&session("username1")&"' and password='"&oldpassword&"'"
'tqrs.open sqlstr,tqconn,1,1
if oldpassword<>session("passw") then
  response.write"你输入的原始密码不正确，请"
  %>
<a href="javascript:" onclick='history.go(-1) '>返回</a>
<%response.end()
else
'sqlstr1="update xiaozhangdenglu set password='"&newpassword1&"'where username='"&session("username1")&"'"
sqlstr1="update xiaozhangdenglu set password='" + newpassword1 + "'where username='" +session("username1") + "'" 


tqconn.execute(sqlstr1)
'tqconn.execute(sqlstr)
'tqrs.open sqlstr,tqconn,1,2
'tqrs.execute(sqlstr)
'tqrs.close
'set tqrs=nothing
response.write"修改成功,请"
%>
<a href="xiaozhangchakan.asp" target="_parent">重新登录</a>
<%
end if
tqrs.close
set tqrs=nothing
tqconn.close
set qtconn=nothing
'response.Redirect("xiaozhangchakan.asp")
else
response.Write"你还没有登录，"
response.write"<a href='../yemian/xiaozhangxinxiang.asp'>登录</a>"
end if
%>
[color=FF0000]错误类型：
Microsoft JET Database Engine (0x80040E14)
UPDATE 语句的语法错误。[/color]