<input type="text" nme="flag" value="">
加了还是不行啊。。。。。。
加了还是不行啊。。。。。。
不好意思，刚才有些事，不知道楼主从哪找来的程序，感觉错的一塌糊涂。
<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="text" name="flag" size="20" />
权 限 ：<input type="hidden" name="flag" size="20" vluae="这里要给个值"/> '或者写成这样
<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 if user="guest" and (pwd<>"vip" or pwd<>"guest") then '这里的逻辑关系不对
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>
"/>
