·我写的用户登陆函数,登陆后 只要改变传递的参数值就可以进入别的用户的管理界面有谁能帮我修复这个BUG急

Function checksysUser()
sql="SELECT * FROM xyxx WHERE username='"&username&"'"
Set rs=Server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,1
if rs.eof then
checksysUser=FALSE
else
passwd=trim(rs("password"))
if passwd=password then
Session("adminuser")=username
Session("mima")=gmn
Session("id")=rs("id")
session.timeout=500
checksysUser=TRUE
else
checksysUser=FALSE
end if
End if
rs.close
conn.close
End Function

b=checksysUser()
if b=true then
Response.Redirect ("user.asp?gmn="&gmn)
end if
登陆后
只要改动 如: user.asp?gmn=9 改成 user.asp?gmn=12
就会转到别的用户的管理界面 有什么办法可修复这个BUG
急!急!急!急!

·我写的用户登陆函数,登陆后 只要改变传递的参数值就可以进入别的用户的管理界面有谁能帮我修复这个BUG急 我用一个用户登陆XP后， 我的XP登陆时要点击用户帐户登陆? vb登陆界面用户身份的验证通过数据库中的表查询后确定是否合法用户代码怎么写? 用户登陆的问题 我的电脑开机用户登陆问题 我的电脑有另外用户登陆 windowxp点击用户登陆后自动注销，又回到欢迎使用的用户登陆界面，怎么回事？？？ 我的电脑不能登陆邮箱以及所有登陆用户的网站,都不能登陆，为什么？ 电脑的登陆页面的用户登陆图标不见了，不登陆，我该怎么办？