<html>
<head>
<!--#include file="conn.asp"-->
<!--这里的conn.asp是数据库连接文件-->
<!--省略了conn.asp文件的代码，楼主根据自己的数据来写-->
<title>下拉列表框动态变化</title>
<script language="javascript">
function selProject_Change(selValue)
{
var Url=self.location.href;
if(Url.indexOf('?')==-1)
self.location=Url+"?selProName="+selValue;
else
self.location=Url+"&selProName="+selValue;
}
</script>
</head>
<body>
<select name="selProject" onChange="selProject_Change(this.options[this.selectedIndex].value);" >请选择一个项目
<%
Dim rsPro,ProName,selProName'声明变量
'创建RecordSet记录集循环Project
Set rsPro=Server.CreateObject("ADODB.RecordSet")
'打开记录集这里的project是楼主的存储项目选项的数据表名称
'conn为ADODB.Connection数据库连接对象，这里省略conn的数据库连接代码
selProName=Request("selProName")'获得上一次选择的Project
rsPro.Open "select * from project",conn,1,1
ProName=""'临时变量用来筛除重复记录
IF rsPro.EOF Then'空数据判断
Response.Write "<option>数据库中无记录</option>"
Else
Do Until rsPro.EOF
IF rsPro("project")<>ProName Then'重复记录判断
IF selProName=rsPro("project") Then '判断上一次选中的项目
Response.Write "<option selected "
Response.Write "value="&rsPro("project")&" >"
Response.Write rsPro("project")&"</option>"
Else
Response.Write "<option value="&rsPro("project")&" >"
Response.Write "rsPro("project")&"</option>"
End IF
ProName=rsPro("project")
End IF
rsPro.MoveNext
Loop
End IF
'关闭用过的ADODB.RecordSet
rsPro.Close
Set rsPro=Nothing
%>
</select><br>
<%
Dim rsProChk'复选框读取ADODB.RecordSet
Set rsProChk=con.Execute("select * from project where project='"&selProName&"'")
IF rsProChk.EOF Then
Response.Write "数据库中找不到选择的项目"
Else
Do Until rsProChk.EOF
Response.Write "<input type=checkbox value="
Response.Write "rsProChk("model")&" >"&rsProChk("model")&"<br>"
rsProChk.MoveNext
Loop
End IF
rsProChk.Close
Set rsProChk=Nothing
%>
</body>
</html>
2008-10-26 18:22
