<script language="javascript">
function SubForm()
{
var tmp = 0;
for(i=0;i<document.all("select1").length;i++)
{
if(document.all("select1").options[i].selected)
{
window.alert("请插入硬件编码为："+document.all("select1").options[i].innerText+" 的卡再按确定，谢谢合作！");
window.open("MapCommision.asp?id=" + document.all("select1").options[i].value,'_blank',"");
tmp++;
}

}
if(tmp==0)
{
window.alert("请至少选择一个硬件编码");
return false;
}
window.alert("全部授权完毕");
}
</script>

<p align="center" class="style1"> <font color="#000000">授权信息</font></p>
<form method="post" name="downform" action="MapCommision.asp">
<table border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<select name="select1" size="25" multiple>
<%
UserName=Session("UserName")
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from MapCommision where Username='"&UserName&"'"
rs.Open rs.Source,conn,1,3

if not rs.EOF then
while not rs.EOF
Response.Write "<option value="""&rs("id")&""">"&rs("HardWareNo") &"</option>"
rs.MoveNext
wend
else
Response.Write "<option value=''>目前还没有</option>"
end if
rs.Close
set rs=nothing
%>
</select>
</td>
<tr>
<tr>
<td><p align="center"><input type="button" value=" 数据授权 " onclick="SubForm()"></p></td>
</tr>
</table>
</form>
1。弹出窗口后窗口有一个关闭窗口“X”,当点击“X ”时，窗口关闭了，可程序依然执行。回不到弹出窗口前的状态。请问怎么解决呢？
2。还有多选时如何判断所有的id已经传送完毕，当所有id都传送完后再弹出一个框 window.alert("全部授权完毕，一共授权的xxx 条数据");
如何取得用户选择的所有id条数。这怎么实现呀？
如果1。不容易解决，请先帮忙解决2。谢谢！！

[此贴子已经被作者于2006-9-5 13:24:27编辑过]

顶一下

我改好了 我用 window.confirm()方法也不行，请帮帮我吧，没有思路呀

window.alert("请插入硬件编码为："+document.all("select1").options[i].innerText+" 的卡再按确定，谢谢合作！");   
弹出这个窗口后弹出窗口后，窗口有一个关闭窗口“X”,当点击“X ”时，窗口关闭了，可程序依然执行。回不到弹出窗口前的状态。请问怎么解决呢？

&lt;form method="post" name="downform" action="MapCommision.asp"&gt;
&lt;table border="0" cellspacing="0" cellpadding="0" align="center"&gt;
  &lt;tr&gt;
    &lt;td&gt;
&lt;select name="select1" size="25" multiple&gt;
&lt;%
UserName=Session("UserName")
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from  MapCommision  where Username='"&amp;UserName&amp;"'"
rs.Open rs.Source,conn,1,3

if not rs.EOF then
  while not rs.EOF
  Response.Write "&lt;option value="""&amp;rs("id")&amp;"""&gt;"&amp;rs("HardWareNo") &amp;"&lt;/option&gt;"
  rs.MoveNext
  wend
else
    Response.Write "&lt;option value=''&gt;目前还没有&lt;/option&gt;"
end if
rs.Close
set rs=nothing
%&gt;
&lt;/select&gt;
  &lt;/td&gt;
  &lt;tr&gt;
  &lt;tr&gt;
    &lt;td&gt;&lt;p align="center"&gt;&lt;input type="button" value=" 数据授权 " onclick="SubForm()"&gt;&lt;/p&gt;&lt;/td&gt;
  &lt;/tr&gt;
&lt;/table&gt;
返回到点击“数据授权”前的状态

点“X”就是把对话框关闭，因为用户没准备好或是用户那出了点小问题 ，需要返回到原来状态。重新授权

[此贴子已经被作者于2006-9-5 13:28:19编辑过]