多层选择框的问题?

yaozhan109 2003-07-19 09:21:58
多层选择框,每个选择框中的数据从数据库中读出来,选中第一个后,第二个中的数据跟着变化,谁有原代码?请简单注释。
...全文
19 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
errorbug 2003-07-19
  • 打赏
  • 举报
回复
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<link rel="stylesheet" type="text/css" href="../style.css">

<title></title>
<base target="_parent">
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function radio1_onclick(picname,picid) {
window.parent.document.input.teaname.value=picname;
window.parent.document.input.tea_id.value=picid;
}

//-->
</SCRIPT>
</HEAD>
<%
set ecn=server.CreateObject("adodb.connection")
ecn.ConnectionString="driver={SQL Server};server="&application("server")&";uid="&application("user")&";pwd="&application("pwd")&";database=eschool2"
ecn.Open

%>
<BODY bgcolor="#E8FFE8" >
<div align=center>请选择一个</div>
<TABLE WIDTH=300 BORDER=1 CELLSPACING=0 CELLPADDING=0 >
<%
Set rs= Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From tea_info order by id",ecn,1,3

colcount=5
maincount=rs.RecordCount
if maincount>0 then
i=maincount
do while (i/colcount >=1)
Response.Write "<TR>"
for j=1 to colcount
teaname=rs("name")
tea_id=rs("id")
Response.Write "<TD width=60>"&rs("name")&"<INPUT type=radio id=radio1 name=radio1 vaule='"&teaname&"' onclick='return radio1_onclick(""&teaname&"",""&tea_id&"")'></TD>"
rs.MoveNext
next
Response.Write "</tr>"
i=i-colcount
loop
modnum=maincount mod colcount
if modnum<>0 then
Response.Write "<TR>"
for j=1 to modnum
teaname=rs("name")
tea_id=rs("id")
Response.Write "<TD width=60>"&rs("name")&"<INPUT type=radio id=radio1 name=radio1 vaule='"&teaname&"' onclick='return radio1_onclick(""&teaname&"",""&tea_id&"")'></TD>"
rs.MoveNext
next
for j=1 to colcount-modnum
Response.Write "<td width=60> </td>"
next

Response.Write "</tr>"
end if

else
Response.Write "无数据"
end if
rs.Close
set rs=nothing

ecn.close
set ecn=nothing
%>
</TABLE>

</body></html>

28,390

社区成员

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

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