简单的试验程序如下：
<%
Dim i
for i=1 to 9
if i=5 then
response.write(Cstr(i))
response.write "<script language=JavaScript>"
response.write "if(confirm(有"+Cstr(i)+"))"
Response.Write(Cstr(i))
end if
next
%>
第一句response.write(Cstr(i))能执行，但下面希望它出现的对话框就没有出现，
即没有执行第二句response.write(Cstr(i))，是我写错了还是另外什么原因？

试试下面的
注意： 在你点确定前已经显示数字 1 2 3 4 5
在点确定后继续显示6 7 8 9
自己想想为什么会这样

<%
Dim i
for i=1 to 9
response.write i&"<br>"
if i=5 then
response.write "<script language=JavaScript>"
response.write "alert('已经是i=5了');"
response.write "</script>"
end if
next
%>