求助！

xinaild 2006-11-25 10:27:03
我想在同一页实现<select>下拉菜单的值传递。求高手解决！
下面是代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/datasystem.asp" -->
<%
Dim menu_1
Dim menu_1_numRows

Set menu_1 = Server.CreateObject("ADODB.Recordset")
menu_1.ActiveConnection = MM_datasystem_STRING
menu_1.Source = "SELECT distinct xiang FROM tj_jcb"
menu_1.CursorType = 0
menu_1.CursorLocation = 2
menu_1.LockType = 1
menu_1.Open()

menu_1_numRows = 0
%>
<%
Dim menu_2
Dim menu_2_numRows

Set menu_2 = Server.CreateObject("ADODB.Recordset")
menu_2.ActiveConnection = MM_datasystem_STRING
menu_2.Source = "SELECT distinct cun FROM tj_jcb"
menu_2.CursorType = 0
menu_2.CursorLocation = 2
menu_2.LockType = 1
menu_2.Open()

menu_2_numRows = 0
%>
<%
Dim menu_time
Dim menu_time_numRows

Set menu_time = Server.CreateObject("ADODB.Recordset")
menu_time.ActiveConnection = MM_datasystem_STRING
menu_time.Source = "SELECT distinct sfsj FROM tj_jcb"
menu_time.CursorType = 0
menu_time.CursorLocation = 2
menu_time.LockType = 1
menu_time.Open()

menu_time_numRows = 0
%>
<%
Dim px_system
Dim px_system_numRows

Set px_system = Server.CreateObject("ADODB.Recordset")
px_system.ActiveConnection = MM_datasystem_STRING
px_system.Source = "SELECT distinct pxdx FROM px_kcb"
px_system.CursorType = 0
px_system.CursorLocation = 2
px_system.LockType = 1
px_system.Open()

px_system_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<link href="css/index.css" rel="stylesheet" type="text/css" />
</head>

<body>
<table width="778" height="453" border="0" align="center" cellpadding="0" cellspacing="0" class="index">
<tr>
<td><table width="778" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>监测数据查询</td>
</tr>
<tr>
<td><form id="form1" name="form1" method="post" action="project_datasystem_view.asp">
<table width="778" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle">请选择乡的查询条件</td>
<td height="20" align="center" valign="middle">请选择村的查询条件</td>
<td align="center" valign="middle">请选择查询的时间范围</td>
<td> </td>
</tr>
<tr>
<td align="center" valign="middle"><label>
<select name="menu_1" class="index_form1" id="menu_1">
<option value="请选择">请选择</option>
<%
While (NOT menu_1.EOF)
%>
<option value="<%=(menu_1.Fields.Item("xiang").Value)%>"><%=(menu_1.Fields.Item("xiang").Value)%></option>
<%
menu_1.MoveNext()
Wend
If (menu_1.CursorType > 0) Then
menu_1.MoveFirst
Else
menu_1.Requery
End If
%>
</select>
</label></td>
<td height="20" align="center" valign="middle"><select name="menu_3" class="index_form1" id="menu_3">
<option value="请选择">请选择</option>
<%
While (NOT menu_2.EOF)
%>
<option value="<%=(menu_2.Fields.Item("cun").Value)%>"><%=(menu_2.Fields.Item("cun").Value)%></option>
<%
menu_2.MoveNext()
Wend
If (menu_2.CursorType > 0) Then
menu_2.MoveFirst
Else
menu_2.Requery
End If
%>
</select></td>
<td align="center" valign="middle"><select name="select3" class="index_form1">
<option value="请选择">请选择</option>
<%
While (NOT menu_time.EOF)
%>
<option value="<%=(menu_time.Fields.Item("sfsj").Value)%>"><%=(menu_time.Fields.Item("sfsj").Value)%></option>
<%
menu_time.MoveNext()
Wend
If (menu_time.CursorType > 0) Then
menu_time.MoveFirst
Else
menu_time.Requery
End If
%>
</select></td>
<td align="right" valign="middle"><label>
<input name="Submit" type="submit" class="index_form1" value="开始查询" />
</label></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<hr />
<table width="778" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>培训数据查询</td>
</tr>
<tr>
<td><form id="form2" name="form2" method="post" action="">
<table width="778" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20" align="center" valign="middle">请选择培训人员的类别</td>
<td> </td>
</tr>
<tr>
<td height="20" align="center" valign="middle"><label>
<select name="menu_3" class="index_form1" id="menu_3">
<option value="请选择">请选择</option>
<%
While (NOT px_system.EOF)
%>
<option value="<%=(px_system.Fields.Item("pxdx").Value)%>"><%=(px_system.Fields.Item("pxdx").Value)%></option>
<%
px_system.MoveNext()
Wend
If (px_system.CursorType > 0) Then
px_system.MoveFirst
Else
px_system.Requery
End If
%>
</select>
</label></td>
<td align="right" valign="middle"><label>
<input name="Submit2" type="submit" class="index_form1" value="开始查询" />
</label></td>
</tr>
</table>
</form>
</td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
menu_1.Close()
Set menu_1 = Nothing
%>
<%
menu_2.Close()
Set menu_2 = Nothing
%>
<%
menu_time.Close()
Set menu_time = Nothing
%>
<%
px_system.Close()
Set px_system = Nothing
%>
...全文
236 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
Mapleleaf123 2006-11-28
  • 打赏
  • 举报
 回复
数据库设计
bigclass

id , classname

smallclass

id , classname , bigclassid

然后做个连动的应该不难吧
cloudgamer 2006-11-28
  • 打赏
  • 举报
 回复
帮顶
xinaild 2006-11-28
  • 打赏
  • 举报
 回复
这个问题解决。新问题出现，就我选择完成后，选项不能保留
代码如下：
<select name="menu_1" class="index_form1" id="menu_1" onchange="location.href='?menu_1='+this.options[this.selectedIndex].value;
">
<option value="">请选择</option>
<%
While (NOT menu_1.EOF)
%><option value="<%=(menu_1.Fields.Item("xiang").Value)%>"><%=(menu_1.Fields.Item("xiang").Value)%></option>
<%
menu_1.MoveNext()
Wend
If (menu_1.CursorType > 0) Then
menu_1.MoveFirst
Else
menu_1.Requery
End If
%>
</select>
每次选完就变成<option value="">请选择</option>的值不能保持在选项的选值。
lantersen 2006-11-28
  • 打赏
  • 举报
 回复
粗略看你的代码应该没什么问题,你可以在第一个select响应onchange=""//取到这个值;
再以这个值为关键字到数据库查找,再生成相关的option到你的第二级菜单;
xinaild 2006-11-27
  • 打赏
  • 举报
 回复
郁闷呀没有人帮我解决！
xinaild 2006-11-27
  • 打赏
  • 举报
 回复
问题是这样的：
我要做个级联得选项菜单
要求：1动态数据显示菜单一。
2.菜单二根据菜单一的选值，执行数据检索后，显示相应的选值。
然后要提交到下一页作为条件检索数据库。
jiangtao088 2006-11-27
  • 打赏
  • 举报
 回复
你要把问题理清楚然后写个简单明了的测试代码再发出来，不然你动不动就贴一大段代码出来，人还没看就怕了。
song1650 2006-11-27
  • 打赏
  • 举报
 回复
代码也太长了吧
求助！！！在python机器学习随机森林选参过程中遇到大问题
求助！！！在python机器学习随机森林选参过程中遇到大问题
动态链表头节点报错！求助！
动态链表头节点报错！求助！
华为开发者大赛云计算专场
1.华为企业云API使用讲解 该课程介绍如何通过华为企业云API进行二次开发，并选取一个实战案例。后把遇到问题的求助渠道介绍给大家。
求助！求助！求助！
网管！我2017年账上有钱，但是没有转成C币！请问怎么弄！ 求助！求助！求助！
求助！！WinSCP连接sftp时被拒绝访问，输入密码也不行
求助！！WinSCP连接sftp时被拒绝访问，输入密码也不行。 欢迎使用Markdown编辑器 你好！ 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章，了解一下...
JavaScript

87,910

社区成员

224,616

社区内容

发帖
与我相关
我的任务
社区描述
Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章