高手们,快帮帮小弟阿!!!!!!

hrbzzh 2003-08-24 04:05:43
请问如何解决在网页中同时在多个下拉列表框里显示多条数据库中的纪录!
我的页面上是每行10个录入表单,行数可以通过在最上面的下拉列表框里选择显示的行数。
现在的问题是,只能在第一行下拉列表框里显示可供选择的纪录
其它几行是空纪录(就是<option>中的值)
我准备用两个方法解决他,但不知可行否
一、用记录集数组
dim rs2(10)
for pp=0 to 9
set rs2(pp)=conn.execute("select distinct 学院名称 from 专业名称代码表")
next
二、用二维数组纪录rs记录集,然后在需要的地方用数组来显示数据

我的初步代码如下:
<%@ Language=VBScript %>
<!--#include file="../conn.int"-->
<%
if request("type")<>"" then
set rs=conn.execute("select distinct 专业名称 from 专业名称代码表 where 学院名称='"&request("type")&"'")

set rsdd=conn.execute("select 考场号 from 考试地点视图 where 学院名称='"&request("type")&"'")

else
set rs=conn.execute("select 专业名称 from 专业名称代码表")
set rsdd=conn.execute("select 考场号 from 考试地点视图")
end if
%>
<%
'dim rs2(10)
'for pp=0 to 9
'set rs2(pp)=conn.execute("select distinct 学院名称 from 专业名称代码表")
'next
'set rs2=conn.execute("select distinct 学院名称 from 专业名称代码表")
sql="select distinct 学院名称 from 专业名称代码表"
set rs2 = server.CreateObject("adodb.recordset")
rs2.Open sql,conn
'response.Write rs2(0)
'response.End
for i=0 to rs2.recordcount

next
%>
<%

set rs3=conn.execute("select * from 考试时间安排表 ")
%>

<%

'set rs=conn.execute("select 专业名称 from 专业名称代码表")


'set rs2=conn.execute("select distinct 学院名称 from 专业名称代码表")

%>
<base target="main">
设定每次添加记录条数
<select style="width: 40; border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF" align="absmiddle" onchange="javascript:document.location=this.value">
<%for i=1 to 10%>

<%if cint(request("i"))=cint(i) then%>
<option value="multiluru.asp?i=<%=i%>" selected><%=i%>
<%else%>
<option value="multiluru.asp?i=<%=i%>"><%=i%>
<%end if%>
<%next%>
</select>


<form action="multiupdate.asp" method="post">
<TABLE id="Table1" cellSpacing="1" cellPadding="1" border="1" height="65">
<TR height=27 bgcolor=#164DA8>
<TD align="center" width="70"><font color=#FFFFFF>院系名称</TD>
<TD align="center" width="79"><font color=#FFFFFF>专业</TD>
<TD align="center" width="38"><font color=#FFFFFF>年级</TD>
<TD align="center" width="96"><font color=#FFFFFF>考试课程</TD>
<TD align="center" width="41"><font color=#FFFFFF>主考教师</TD>
<TD align="center" width="8"><font color=#FFFFFF>人数</TD>
<TD align="center" width="34"><font color=#FFFFFF>考试方式</TD>
<TD align="center" ="20"><font color=#FFFFFF>月</TD>
<TD width="16" align="center" ="20"><font color=#FFFFFF>日</TD>
<TD align="center" width="70"><font color=#FFFFFF>考试时间</TD>
<TD align="center" width="50"><font color=#FFFFFF>考试地点</TD>
<TD align="center" width="204"><font color=#FFFFFF>监考</TD>
<%
if request("i")="" then
number=1
else
number=request("i")
end if
for j=1 to number
z=0
%>
<TR>
<TD>
<select name="<%=j%><%=z%>" style="width: 110; border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF" align="absmiddle" onchange="javascript:document.location=this.value">
<%
do while not rs2.eof%>
<%if request("type")=rs2("学院名称") then%>
<option value="multiluru.asp?type=<%=rs2("学院名称")%>" selected><%=rs2("学院名称")%>
<%else%>
<option value="multiluru.asp?type=<%=rs2("学院名称")%>"><%=rs2("学院名称")%>
<%end if%>
<%
rs2.movenext
loop
%>
</select></td>
<TD>
<select name="<%=j%><%=z+1%>" style="width: 100; border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF" align="absmiddle" >
<%
rs.movefirst
do while not rs.eof%><option><%=rs("专业名称")%><%rs.movenext
loop%>
</select></td>
<TD><select name="<%=j%><%=z+2%>"><%for i=0 to 5%><option>0<%=i%><%next%></select>
<TD><select name="<%=j%><%=z+3%>"><option>开卷<option>闭卷</select>
<TD><input type=text size=10></TD>
<TD><input type="text" name="textfield" size="8"></TD>
<TD><select name="<%=j%><%=z+4%>"><option>开卷<option>闭卷</select></TD>
<TD><select name="<%=j%><%=z+5%>"><%for i=1 to 12%><option><%=i%><%next%></select></TD>
<TD><select name="<%=j%><%=z+6%>"><%for i=1 to 31%><option><%=i%><%next%></select></TD>
<TD><select name="<%=j%><%=z+7%>">
<%do while not rs3.eof%>
<option value="<%=rs3("时间编号")%>" >
<%=rs3("考试起始时间") & "-" & rs3("考试结束时间")%>

<% rs3.movenext
loop%>

</select> </TD>

<TD ><select name="<%=j%><%=z+8%>">
<%
'rsdd.movefirst
do while not rsdd.eof%>
<option selected ><%=rsdd("考场号")%>
<%rsdd.movenext
loop%>

</select></TD>
<TD width="50"> </TD>
</TR>
<%next%>

</TABLE>
<table border=0 align=center>
<tr height=27><td colspan=2></td></tr>
<tr><td><input type=submit value="提   交"></td><td>    <input type=reset value="重新设置"></td></tr>

</table>
</form>







我的msn id 是:hrbjeff218@hotmail.com
欢迎沟通,我12小时在线

十万火急,谢谢啦!
...全文
17 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧