问个问题有关更新的
请问以下这段代码为什么不能更新纪录啊Response.write( objRS.Source)显示的语句是正确的直接在数据库执行也可以啊
<%
On Error Resume Next
' 注释:创建并打开Recordset对象
Set objRS = Session("objRS")
objRS.Source = "SELECT * FROM USERS WHERE USERNO='" & Request("USERNAME") & "' AND PASSWD='" & Request("OLDPASSWD") & "' "
' Response.Write( objRS.Source)
Response.Write("请返回重新登陆!")
objRS.Open
if objRS.BOF and objRS.EOF then
Response.write "<script language = 'javascript'>alert('地区名称或是密码错误!'); window.document.location.href='change.asp';</script>"
objRS.Close
Set objRS = Nothing
end if
if Not(objRS.BOF or objRS.EOF) then
objRS.Close
Set objRS = Nothing
Set objRS = Session("objRS")
objRS.Source ="UPDATE USERS SET PASSWD='" & Request("newpasswd") & "' WHERE USERNO='" & Request("USERNAME") & "' "
objRS.Execute(objRS.Source)
Response.write( objRS.Source)
Response.write "<script language = 'javascript'>alert('密码修改成功,请牢记!'); window.document.location.href='login.asp';</script>"
' response.Redirect("login.htm")
' response.end
objRS.Close
Set objRS = Nothing
end if
' 注释:关闭记录集
%>