response1.asp

《动态网页设计基础教程》,胡杰,科学出版社

    <% 'Response.buffer=true ' 开启缓冲页面功能 %>
<%  Response.ContentType="text/HTML"
    Response.Charset="gb2312"
%>
<%
    answer=Request.QueryString("answer")
    
    If answer=1 then
       Response.Write " 欢迎光临 !"
    ElseIf answer > 1 then
       Response.Write " 欢迎再次光临!"
    End If
%>

<% If Isempty(Request.form("B1")) Then   %>
    <form method="POST" action=<%=request.servervariables("script_name")%>>
用户名 :<input type="text" name="username" size="12"> 口 令 :<input type="password" name="password" size="12">  
<br>
    <input type="submit" value=" 提交 " name="B1">
    <input type="reset" value=" 取消 " name="B2">   
    </form> 
<%Else  
    Dim user
    Dim flag
    Dim pwd
    Dim answer

    user=Request.Form("username")
    pwd=Request.Form("password")
    If user="admin" and pwd="admin" Then
       Response.Expires=1 ' 设置该页面在浏览器的缓冲中存储 1 分钟后过期。
       response.write "您是超级管理员。" 
       flag=1
    ElseIf user="guest" and pwd="guest" Then
       Response.Expires=0 ' 使缓存的页面立即过期。
       Response.Clear ' 清空存储在缓存中的页面 
       response.write "您是客人。"
       flag=2
    ElseIf user="vip" and pwd="vip" Then
       Response.Write " 欢迎 VIP 光临 ASP 网站 "
       flag=3
    Else
       flag=0
       Response.End ' 立即停止脚本处理，并将缓存中的页面输出
    End If
    Response.write "<p><a href='response2.asp?flag="&flag&"'> 回到动态网站设计response对象实践练习 </a></p>" 
' 将变量 flag 的值传送给 热response2.asp
End If
%>