asp7.asp

asp教程

<%
Dim  user
Dim  flag
Dim  pwd
Dim  say
Response.buffer=true '开启缓冲页面功能
Response.ContentType="text/HTML"
Response.Charset="gb2312"
user=Request.Form("username")
pwd=Request.Form("password")
say=Request.QueryString("say")
%>
　　<form method="POST" action="asp7.asp">
　　<p>用户名:<input type="text" name="username" size="12"><br>
　　口令:<input type="password" name="password" size="12"><br>
　　<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 "欢迎再次光临书生的ASP网站!"
End if
If user="Adm" and pwd="shusheng" Then
 Response.Expires=1'设置该页面在浏览器的缓冲中存储1分钟后过期。
 flag=1
ElseIf user="guest" and pwd="guest" Then
 Response.Expires=0'使缓存的页面立即过期。
 Response.Clear'清空存储在缓存中的页面
 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='asp7b.asp?flag="&flag&"'>动态网站设计十八般武艺--实践练习</a></p>"
  '将变量flag的值传送给asp7b.asp
%>