欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

着实不好意思,请朋友帮忙,按愿望给写段代码

更新时间: 2014-01-05 00:56:09 责任编辑: Author_N1

 

实在不好意思,请朋友帮忙,按愿望给写段代码
    有个access数据库。数据库文件名是db1.mdb,里面有个表,表名是data。表中有四个字段:id、姓名、班级、学校。见下图。
 
    求助能人帮我写段asp下拉框代码,实现下列功能:如下图

    1、点击选择学校下拉框:出现学校字段中不重复A小学、B小学、C小学……
    2、选择学校下拉框中的A小学,在选择班级下拉框出现班级字段中A小学的所有不重复所有班级的选项。
    3、选择班级下拉框中的一个班级,在选择学生的下拉框中出现姓名字段中该班级的所有学生姓名选项。
    我是个刚刚接触asp者,实在没能力实现上面程序,请会的朋友帮忙,先表谢意。

--参考方法--
写了一个,本地测试通过的,把下面代码保存到同一个页面,你确定下数据库路径就可以直接用了:
<%
dim conn,db 
dim connstr 
db="./db1.mdb" '自己指定下路径
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 

set conn=server.createobject("ADODB.CONNECTION") 
If Err Then
    err.Clear
    Set Conn = Nothing
response.Write db
    Response.Write "数据库连接出错,请检查数据库连接文件中的数据库参数设置。"
    Response.End
Else 
conn.open connstr 
End If

school = Request.form("school")
banji = Request.form("banji")
xingming = Request.form("xingming")

Set rs = server.CreateObject("adodb.recordset")
%>

<form action="" method="POST">
<select name="school" onchange="javascript:submit()">
<option value="">请选择学校</option>
<%
sql = "Select distinct(学校) from data"
rs.open sql,conn,1,1
Do While Not rs.eof 
%>
<option value="<%=rs("学校")%>" <% if rs("学校")=school then response.write "selected"%>><%=rs("学校")%></option>
<%
rs.movenext
Loop 
rs.close
%>
</select>
<select name="banji" onchange="javascript:submit()">
<option value="">请选择班级</option>
<%
sql = "Select distinct(班级) from data where 学校='"& school &"'"
rs.open sql,conn,1,1
Do While Not rs.eof 
%>
<option value="<%=rs("班级")%>" <% if rs("班级")=banji then response.write "selected"%>><%=rs("班级")%></option>
<%
rs.movenext
Loop 
rs.close
%>
</select>
<select name="xingming" onchange="javascript:submit()">
<option value="">请选择姓名</option>
<%
sql = "Select 姓名 from data where 学校='"& school &"' and 班级='" & banji & "'"
rs.open sql,conn,1,1
Do While Not rs.eof 
%>
<option value="<%=rs("姓名")%>" <% if rs("姓名")=xingming then response.write "selected"%>><%=rs("姓名")%></option>
<%
rs.movenext
Loop 
rs.close
%>
</select>
</form>
</div>
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 00:56:09
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/1541/
本文WWW.DOC100.NET DOC100.NET版权所有。