关闭

我在网易ASP专栏拷了份ASP源代码下来,不能运行,提示好像是每行都有错误,很不能理解!请大家帮我看看,谢谢!

57人阅读 评论(0) 收藏 举报
以下是我在ASP教程中直接COPY下来的两份源代码,但是试了下都不能运行,系统貌似是每一行代码都有语法问题,但是我都看了,没有问题啊,而且是官方给的应该不会有什么问题吧

以下是两份源代码:

asp7.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&"\\\'>动态网站设计十八般武艺 --ASP 篇 (7) 实践练习 < /a>< /p>"
\\\' 将变量 flag 的值传送给 asp7b.asp
  %>
  < p>动态网站设计十八般武艺 --ASP 篇 (7) 实践练习 < /p>



asp7b.asp:
<%
  Dim saysay=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
  %>

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1131次
    • 积分:154
    • 等级:
    • 排名:千里之外
    • 原创:15篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章存档