dw 中用session保存当前用户名代码是什么？

登陆时，将用户输入的用户名和密码，与数据库中的用户名和密码相比较，如果比较正确，就登陆成功，否则返回登陆页。

'读取登陆页输入的用户名和密码
username=request.form("username")
userpassword=request.form("userpassword")

'根据用户名读取数据库中的密码
sql="select * form user where username='"&username&"'"
ser rs=……

userpassword1=rs("userpassword")
'如果要记录id，可在这里加上读取ID的语句，如userid=rs("userid")
rs.close
set rs=nothing

'检验密码是否正确
if userpassword1=md5(userpassword) then
rsponse.write "恭喜，登陆成功！"
session("username")=username
'如果要保存ID，则换成session("userid")=userid
else
'这里是密码不正确时的处理语句
end if

在后面的分页中，根据session来判断是否登陆，如果session为空则表明没有登陆，只要将以下几行加在每个分类的前面，就可以了。

if session("username")="" then
response.write "<script language='javascript'>"
response.write "alert('抱歉