高考问答四世同堂测试题及答案:有关在asp网页中用"session"保存和读入用户信息的具体写法.急!!
来源：百度文库 编辑：高考问答 时间：2024/04/28 16:40:39
P1.asp 中的内容如下：
<html>
<head>
<title>Session用法事</title>
</head>
<body>
<%
Dim user_name,age
user_name="卓云"
age=22
Session("user_name")=user_name
Session("age")=age
Response.Write "该程序仅用来存入Session值，请自己打开p_2.asp查看结果"
%>
</body>
</html>
P2.asp 的内容如下
<html>
<head>
<title>Session用法示例</title>
</head>
<body>
<%
Dim user_name
user_name=Session("user_name")
Response.Write user_name&"您好，欢迎您<br>"
Response.Write "您的年龄是"&Session("age")
%>
</body>
</html>
Userlogin.asp
<HTML><HEAD>
<TITLE>用户登录</TITLE>
<LINK rel="stylesheet" href="common.css">
</HEAD>
<BODY><CENTER>
<FORM action="UserLoginRespond.asp" method="POST">
<P><FONT size="3"><B>请选择用户名并输入密码</B></FONT></P>
<HR size="1" width='50%'>
<TABLE border=1>
<TR>
<TD>用户名:</TD>
<TD><INPUT type="INPUT" NAME="Username" size="10"&_
VALUE=<%=Request("username")%> ></TD>
</TR>
<TR>
<TD>密码:</TD>
<TD><INPUT type="PASSWORD" NAME="UserPassword" size="10" ></TD>
</TR>
<TR>
<TD colspan=2 align="center"><INPUT type="SUBMIT" value="登 录"></TD>
</TR>
</TABLE></FORM>
<FONT color="red"><%=Request("ErrorMessage")%></FONT>
</CENTER>
</BODY></HTML>
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
%>