很简单的问题搞了一个上午,很久没碰ASP了,帮我看看吧

pdysuny 2007-08-14 11:48:46
问题:我需要在登录的时候,用户第一次登录成功后,同时把用户名更新到表 yaccount(不是用户注册时候的表) 中,之后转到user.asp,但现在问题,已经更新到yaccount的用户(我自己加进去的)再次登录就可以转到 user.asp ,第一次登录的用户,yaccount中usname也没有更新,也没有跳转,验证页:check.asp 一片空白,什么也没有,帮我看看吧,怎么写?

<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from User where username='"&username&"' and password1='"&userpassword&"' " ,conn,1,3
if not(rs.bof and rs.eof) then
if userpassword=rs("password1") then

session("username")=rs("username")
session("regid")=rs("id")

rs("lastlogin")=now()
rs("endip") = Request.ServerVariables("REMOTE_ADDR")
rs.Update
rs.Close
set rs=nothing

set rsa=server.CreateObject("adodb.recordset")
rsa.Open "select * from yaccount where userid="&session("regid")&"",conn,1,3
if not(rsa.bof and rsa.eof) then
response.redirect "user.asp"

else

rsa.addnew
rsa("username")=session("username")
rsa.Update
rsa.Close
set rsa=nothing
end if

response.redirect "user.asp"

else
response.write "<script LANGUAGE='javascript'>alert('对不起,您的用户名或密码有误!');history.go(-1);</script>"
end if
end if
%>
...全文
240 13 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
pdysuny 2007-08-14
  • 打赏
  • 举报
回复
rsa.addnew 这个是插入啊,发现添加时候条件不对,因为第一次登录根本不符合条件,所以,添加不了,又改为下面,还是不行啊,怎么搞的哦?

else

rsa.addnew
rsa("username")=session("username")
rsa.Update
=======================================》
else
set rsb=server.CreateObject("adodb.recordset")
rsb.Open "select * from yaccount",conn,1,3
rsb.addnew
rsb("username")=session("username")
rsb.Update
impeller 2007-08-14
  • 打赏
  • 举报
回复
第一次登录你的yaccount中没有它的记录要用插入,以后登录才能用更新
pdysuny 2007-08-14
  • 打赏
  • 举报
回复
littlelam(竹子岌):
还是不行,check.asp 还是一片空白,不能更新,也不能跳转
littlelam 2007-08-14
  • 打赏
  • 举报
回复
try
if not(rs.bof and rs.eof) then
===============
if not rs.eof then


if not(rsa.bof and rsa.eof) then
=================================
if not rsa.eof then
littlelam 2007-08-14
  • 打赏
  • 举报
回复
try
if not(rs.bof and rs.eof) then
===============
if not rs.bof then


if not(rsa.bof and rsa.eof) then
=================================
if not rsa.bof then
pdysuny 2007-08-14
  • 打赏
  • 举报
回复
现在这样直接插入数据都不行了,打开数据表看什么也没有,不知道什么回事啊?

<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from User where username='"&username&"' and password1='"&userpassword&"' " ,conn,1,3
if not(rs.bof and rs.eof) then
if userpassword=rs("password1") then

session("username")=rs("username")
session("regid")=rs("id")

rs("lastlogin")=now()
rs("endip") = Request.ServerVariables("REMOTE_ADDR")
rs.Update
rs.Close
set rs=nothing

set rsa=server.CreateObject("adodb.recordset")
rsa.Open "select * from yaccount",conn,1,3
rsa.addnew
rsa("username")=session("username")
rsa.Update
rsa.Close
set rsa=nothing
end if

pdysuny 2007-08-14
  • 打赏
  • 举报
回复
peijunfeng:哪里设置啊?注册时候可以注册的,现在是一个道理
pdysuny 2007-08-14
  • 打赏
  • 举报
回复
huole() 的一样不行,miefeng:不是这里问题,用户表不是user,我用自己手工添加用户id到yaccount表,可以登录的,但第一次登录时更新不了,唉,都检查遍了,还是空白页
peijunfeng 2007-08-14
  • 打赏
  • 举报
回复
db.mdb的属性-安全性有没有设置匿名账户可修改权限呢?
miefeng 2007-08-14
  • 打赏
  • 举报
回复
rs.Open "select * from [User] where username='"&username&"' and
pdysuny 2007-08-14
  • 打赏
  • 举报
回复
帮看看,头都晕了
huole 2007-08-14
  • 打赏
  • 举报
回复
....
response.write("SESSION VALUE:" & session("username"))
rsa.addnew
rsa("username")=session("username")
rsa.Update
rsa.Close
set rsa=nothing
end if
pdysuny 2007-08-14
  • 打赏
  • 举报
回复
帮看看啊

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧