有关在asp网页中用"session"保存和读入用户信息的具体写法.急!!

P1.asp 中的内容如下：






<%
Dim user_name,age
user_name="卓云"
age=22
Session("user_name")=user_name
Session("age")=age
Response.Write "该程序仅用来存入Session值，请自己打开p_2.asp查看结果"
%>



P2.asp 的内容如下





<%
Dim user_name
user_name=Session("user_name")
Response.Write user_name&"您好，欢迎您
"
Response.Write "您的年龄是"&Session("age")
%>

Userlogin.asp

请选择用户名并输入密码

---

用户名:	VALUE=<%=Request("username")%> >
密码:

<%=Request("ErrorMessage")%>



UserLoginRespond.asp代码如下：
<%
Dim strNoName, strBadUserName, strBadPassword,flag
' 设置错误信息
strNoName = "请输入正确的用户名和密码"
strBadUserName = "对不起！输入的用户名错误!"
strBadPassword = "对不起！输入的密码错误!"
' 取得网页表单的值
strUserName = Request.Form("Username")
strUserPassword = Request.Form("Userpassword")
' 是否输入用户名和密码
If strUserName = "" or strUserPassword = "" Then
strUserName=""
Response.Redirect "UserLogin.asp?ErrorMessage=" & strNoName & "&UserName=" & strUserName
End If
' 检查密码
If strUsername="user" or strUsername="super" Then
' 密码正确，找到用户
If strUsername="user" and strUserPassword="001" Then
'进入网站的网页
Session("UserLevel")=1
Response.Redirect "main.asp"
Else If strUsername="super" and strUserPassword="002" Then
Session("UserLevel") =2
Response.Redirect "main.asp"
Else
'密码错误
Response.Redirect "UserLogin.asp?ErrorMessage=" & strBadPassword &_
"&UserName=" & strUserName
End If
End if
Else
'用户错误
strUserName=""
Response.Redirect "UserLogin.asp?ErrorMessage=" & strBadUserName &_
"&UserName=" & strUserName
strUserName
End If
%>