夏天解说我的世界生存:有关ASP中的 response 和 requesst 对象使用时遇到的问题

来源：百度文库 编辑：中科新闻网 时间：2024/05/04 13:28:33
这里有两个ASP页面：
asp7.asp-->

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<% Dim user,flag,pwd,say
Response.ContentType="text/html"
Response.Charset="gb2312"
Response.buffer=true ' 开启缓冲页面功能
user=Request.Form("username")
pwd=Request.Form("password")
say=Request.QueryString("say")
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
%>
<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>

<% Response.write "<p><a href='asp7b.asp?flag="&flag&"'> 动态网站设计十八般武艺 --ASP 篇 (7) 实践练习 </a></p>" ' 将变量 flag 的值传送给 asp7b.asp %>
<p> 动态网站设计十八般武艺 --ASP 篇 (7) 实践练习 </p>
</body>
</html>

asp7b.asp-->

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<% Dim say=Request.QueryString("flag")
Select case say
case "1" Response.Redirect "asp7.asp?say=1"
case "2" Response.Redirect "asp7.asp?say=2"
case "3" Response.Redirect "asp7.asp?say=3"
case "0" Response.Redirect "asp7.asp?say=0"
End Select
%>
</body>
</html>

当我访问asp.asp这个页面,出现了以下的错误提示:

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误 错误 '800a0408'

无效字符

/jun/asp7.asp，行11

Response.ContentType="text/html"

请哪位大侠帮小弟一把,帮我看看,我的要求不高,我只要它能正常运行,谢谢。

把：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
改为：
If user="Adm" and pwd="shusheng" 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="vip" and pwd="vip" Then Response.Write "欢迎VIP光临书生的ASP网站" flag="3"
Else flag="0" Response.End ' 立即停止脚本处理，并将缓存中的页面输出
End If
end if
end if
也就是说加上2个end if

第1个报错是：/iisHelp/common/500-100.asp页面，代码？

有关ASP中的 response 和 requesst 对象使用时遇到的问题 ASP中的response.redirect的一些问题 VB中有没有像ASP中的response.end？ 那位大虾帮忙解释一下asp中的response语句啊? response.redirect "admin.asp"区别和联系 ASP编程问题 Response.Redirect和window.onclose() 为什么我家ASP中request和response对象不可用 ASP中echo和response.write是否一样? ASP里response问题 ASP RESPONSE.WRITE小问题