郁闷 ASP不能更新ACCESS数据库了 看码

来源:百度知道 编辑:UC知道 时间:2024/05/17 00:38:48
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from zzLook_UserInfo where User_Name='"&User_Name&"'" ,conn,1,1

if not rs.eof then

if rs("User_Pass")=User_Pass then
Session("User_Name")=rs("User_Name")
rs.close
set rs=nothing
else
response.Write "<script LANGUAGE='javascript'>alert('登陆失败!您的密码有误!');history.go(-1);</script>"
response.end
end if

LoginTime=Now()
LoginIp=Request.ServerVariables("REMOTE_ADDR")
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [zzLook_UserInfo] where User_Name='"&Session("User_Name")&"'" ,conn,3,3
rs("User_LoginTime")=LoginTime
rs("User_LoginIp")=LoginIp
rs.update
rs.close
set rs=nothing

else
response.Write "<

LoginTime=Now()
LoginIp=Request.ServerVariables("REMOTE_ADDR")
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [zzLook_UserInfo] where User_Name='"&Session("User_Name")&"'" ,conn,3,3
rs.addnew'记得加这句才可以实现下面的rs.update
rs("User_LoginTime")=LoginTime
rs("User_LoginIp")=LoginIp
rs.update
rs.close
set rs=nothing