|
#2
Adalmy1232008-02-05 18:22
怎么都没有人帮忙啊。。。。
 |
ASP-11.asp
<body>
<% 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 name="form1" method="post" action="ASP-12.asp">
用户名：<input type="text" name="username" size="20" /><br>
密 码 ：<input type="password" name="password" size="20" />
<br>
<input type="submit" name="B1" value="提交" />
<input type="reset" name="B2" value="重置" />
</form>
<% if say=1 then
Response.Write"欢迎书生大架光临！"
End if
if say>1 then
Response.Write"欢迎再次光临书生的ASP网站！"
End if
if user="Admin" And pwd="shengshu" then
Response.Expires=1// 1 分钟后过期。
flag=1
else
if user="guest" And pwd="guest" then
Response.Expires=0//立刻过期。
Response.Clear()
flag=2
else
if user="guest" And pwd="vip" then
flag=3
else
flag=0
Response.End()//立即停止脚本处理，并将缓存中的页面输出
End if
End if
End if
Response.write "<p><a href=ASP-12.asp?flag="&flag&">动态网站设计十八般武艺 --ASP 篇 (7) 实践练习 </a></p>"
%>
<p>动态网站设计十八般武艺 --ASP 篇 (7) 实践练习 </p>
</body>
ASP-12.asp
<body>
<%
say=Request.Form("flag")
select case say
case "1"
Response.Redirect"ASP-11.asp?say=1"
case "2"
Response.Redirect"ASP-11.asp?say=2"
case "3"
Response.Redirect"ASP-11.asp?say=3"
case "0"
Response.Redirect"ASP-11.asp?say=0"
End select
%>
</body>
好象没有运行Redirect啊。。。。。。
"/>
