📄 7.9.asp
字号:
<%
dim user, flag, pwd, say
Response.buffer=true
Response.ContentType="text/HTML"
Response.Charset="gb2312"
user=Request.form("username")
pwd=Request.form("password")
say=Request.QueryString("say")
%>
<html>
<body bgColor= PowderBlue>
<form method="post" action="/7.9.asp">
<p><strong><font size=4>用户名 </font></strong>
<input name="username" size="12" ><br>
<font size=4><strong>口 令</strong></font>
<input type="password" name="password" size="12"><br></p>
<p><input type="submit" value=" 提交 " name="B1">
<input type="reset" value=" 取消 " name="B2"></p></form>
<%
if say=1 then
Response.Write " 欢迎光临 !"
end if
if say>1 then
Response.Write " 欢迎再次光临 !"
end if
if user="zhc" and pwd="1234" then
Response.Expires=1 ' 设置该页面在浏览器的缓冲中存储 1 分钟后过期。
flag=1
elseif user="guest" and pwd="1234" then
Response.Expires=0 ' 使缓存的页面立即过期。
Response.Clear ' 清空存储在缓存中的页面
flag=2
elseif user="slp" and pwd="1234" then
Response.Write " 欢迎 slp 光临我的网站！ "
flag=3
else
flag=0
Response.End ' 立即停止脚本处理，并将缓存中的页面输出
end if
Response.write "<p><a href='7.10.asp?flag="&flag&"'>单击一下这里，看看有什么反映</a></p>" ' 将变量 flag 的值传送给 7.10.asp
%>
<p> Response对象的练习</p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -