为什么不能弹出消息对话框~！

[jinco]

在下面的代码中的msgbox弹出消息的对话框，为什么不弹出来呢？好象不起作用一样？我把他改成 response.write("<script> alert('dfasfd');history.go(-1)</script>")这样还是不行，这是为什么？
但我看别人的程序在里有这样的代码，又可以弹出来~！


<%@ Language=VBScript %>
<!--#include file="conn.asp"-->
<%
dim rs,tsql
dim rst
set rst=server.CreateObject("ADODB.RecordSet")

rst.open "select * from admin",conn,3,3
if request("name")="" or request("pass")="" then
%>
<script language=VBscript>
msgbox "用户名和密码不能为空!"
</script>

<% else
rst.addnew
rst("Username")=request("name")
rst("Passwd")=request("pass")
end if
rst.update
%>
<script language=VBscript>
msgbox "添加新用户成功!"
</script>
<%
rst.close
response.redirect "add_user.asp"
response.end
%>

[whb147]

一定是你上面的语句写错了

[zhongmao]

ASP程序的问题，单独运行
<script language=VBscript>
msgbox "添加新用户成功!"
</script>
没有错误，检查一下你的asp代码

[os586]

我认为你写的脚本没什么错误，刚才调试了一下是正确的
可能你哪儿写错了，msgbox()正常执行

[cwxhao]

你使用的jscript,语法错误，少了一个“；”，下面应该可以。

response.write("<script language=JAVAscript> alert('dfasfd');history.go(-1);</script>")

[azh9703]

检查if request("name")="" or request("pass")="" then是否发生了弹出对话框的条件。那两句单独都没有问题。
你不妨先测试前半部分
<%@ Language=VBScript %>
<!--#include file="conn.asp"-->
<%
dim rs,tsql
dim rst
set rst=server.CreateObject("ADODB.RecordSet")

rst.open "select * from admin",conn,3,3
if request("name")="" or request("pass")="" then
%>
<script language=VBscript>
msgbox "用户名和密码不能为空!"
</script>
end if