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

以下是我在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

　　%>