Response.Write alert()对话框弹不出的问题

[gongyuelx]

请问一下,下面这段代码为什么跳不出对话框??(没有禁止脚本调试)

<%
Dim username
username = Request.Form("username")
If username = "" Then
Response.Write("<script>alert('用户名不能为空!);history.back();</script>")
Response.End
Else If username="aaa" then
Response.Redirect("http://www.baidu.com")
Response.End
Else
Response.Write("<script>alert('用户名错误，请重新输入');history.back();</script>")
Response.End
End If
%>

[hookee]

用户名不能为空!后面少一个单引号

<% 
Dim username 
username = Trim(Request.Form("username")) 
If username = "" Then
    Response.Write "<script>alert('用户名不能为空!');history.back();</script>"
    Response.End 
ElseIf username="aaa" then 
    Response.Redirect "http://www.baidu.com"
Else
    Response.Write "<script>alert('用户名错误，请重新输入');history.back(); </script>" 
    Response.End
End If 
%>

[gongyuelx]

还是不行啊。。
我把response.end去掉了，倒是可以了。。不知道什么原因。。

[gongyuelx]

[Quote=引用 1 楼 hookee 的回复:]
用户名不能为空!后面少一个单引号
VBScript code<%Dim username
username=Trim(Request.Form("username"))If username=""Then
Response.Write"<script>alert('用户名不能为空!');history.back();</script>"
Response.EndElseIf username="aaa"then
Response.Redirect"http://www.baidu.com"Else
Response.Write"<script>alert('用户名错误，请重新输入');history.back(); </script>"
Response.EndEndIf
%>
[/Quote]

还是不行啊。。 你那里可以？
我把response.end去掉了，倒是可以了。。不知道什么原因。。