在第一个窗口里，设文本框名为text1，窗口名为window1,弹出新窗口名为window,在第二个窗口里建一函数

在数据的点击事件中调用些函数
dim i
i=1
do while not rs.eof
parts_code=rs("parts_code")
response.write i&"、"
response.write rs("parts_code")&" "
rs.movenext
i=i+1
loop
这样就大功告成。

多选项参数的传递曾经困扰了我好久，现在找到了几种解决的办法，不过这次贴
的是ASP的，我直接把我写的改了一下，所以会有数据库的操作在，考虑到一般多
选项常用在数据库的应用中，我也就没有去掉。

今天先贴出原码.

'########选择页，checkbox.asp
<%@language=VBScript %>
<%
set conn=server.CreateObject ("ADODB.Connection")
set rs=server.CreateObject("ADODB.RECORDSET")
conn.open "dsn=;uid=;pwd=;database=;driver={SQL SERVER}"
qq = "SELECT * from"
rs.Open qq,conn,1,1,1
If rs.Eof or rs.Bof then
Response.Write "没什么东西可以显示的哦！"
else
response.write ""
rs.pagesize=14
booktime = selectdate
lTotal = rs.pagecount
lPageNo = 1
if lPageNo<1 then lPageNo=1
if request("inputpage")<>"" then lPageNo=cint(request("inputpage"))
rs.absolutepage=lPageNo
dim lCountNo
lCountNo=14
do until (rs.Eof or lCountNo = 0) '## Display Forum
%>

" value="<%=trim(rs("id"))%>">
<%=trim(rs("id"))%>

<%
rs.MoveNext
loop%>
传递

<% rs.close
end if%>

'#######数据接收页，checkbox_tst.asp
<%
if request("dotype") = "tst" then
CountNo=1
do until (CountNo > 14)
if request(cstr(CountNo)) ="1" then
msgname = "msgname" & cstr(CountNo)
response.write request(msgname) &"
"
'########这里可以写相关的操作：）
end if
CountNo= CountNo + 1
loop
end if
%>