asp二级联动查询其他表数据
自己在研究ASP的时候遇到一个问题数据库中有2个表
表News_Cls
包含字段：id、oTitle、oId、oPath、oFile、oPx
表chengji
包含字段：id、Bid、SmId、xiangmu、mingci、jifen
index.asp 在这里选择根据 News_Cls表中产生的一级和二级联动列表
程序代码：<!--#include file="conn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<script language="javascript" type="text/javascript" src="Ajax.js"></script>
</head>
<body>
<form name="myform" action="MyList.asp" method="post">
<select name="BId" onChange="getoId(this.value,'');">
<option value="">请选择大类</option>
<%
Dim oRs,oSQL
Set oRs = server.CreateObject("adodb.recordset")
oSQL = "Select id,oTitle,oPx From News_Cls Where oId = 0 Order by oPx asc"
oRs.Open oSQL,Conn,1,1
If (oRs.EOF And oRs.BOF) Then
Response.Write("<option value="""">没有添加大类</option>")
Else
Do While Not oRs.EOF
Response.Write("<option value="""&oRs(0)&""">"&oRs(1)&"</option>")
oRs.MoveNext
Loop
End If
oRs.Close:Set oRs = Nothing
%>
</select>
<span id="SmClass"></span>
<input name="" type="submit" value="提交"/>
</form>
</body>
</html>mylist.asp 在这里能将chengji表中的数据根据查询的结果显示出来程序代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
Set Rs=Server.CreateObject("adodb.recordSet")
sql="Select * from chengji order by id desc"
dim Bid,SmId,xiangmu,mingci,jifen,Rs,sql
Rs.open sql,conn,1,2 <!--提示：ADODB.Recordset 错误 '800a0bb9'参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。-->
BId = Request.Form("BId")
SmId = Request.Form("SmId")
xiangmu = Request.Form("xiangmu")
mingci = Request.Form("mingci")
jifen = Request.Form("jifen")
%>
<div align="center">
<center>
<table border="1" width="778" height="48">
<tr>
<td width="84" height="17" align="center">年级</td>
<td width="90" height="17" align="center">班级</td>
<td width="90" height="17" align="center">项目</td>
<td width="114" height="17" align="center">成绩</td>
<td width="318" height="17" align="center">积分</td>
</tr><%'开始循环
if not rs.eof then '如果数据库中有相应的记录(不为空)时，开始循环
do while not rs.eof '循环语句%>
<tr>
<td width="84" height="9" align="center"><%=rs("BId")%></a></td>
<td width="90" height="9" align="center"><%=rs("SmId")%></td>
<td width="90" height="9" align="center"><%=rs("xiangmu")%></td>
<td width="114" height="9" align="center"><%=rs("mingci")%></td>
<td width="318" height="9" align="center"><%=rs("jifen")%></td>
</tr><%rs.movenext
loop
else '如果数据库中没有相应的记录(为空)时，显示下面文字%>
<tr>
<td width="774" height="3" align="center" colspan="6">没有记录</td>
</tr><%end if
rs.close
set rs=nothing '关闭数据库%>
</table>
</center>
</div>
</body>
</html>
另外需要在表的最后行插入一个总计行，对表中的<%=rs("jifen")%>进行总计。
请问大家有没有办法？
[ 本帖最后由 nationdo 于 2012-10-31 17:10 编辑 ]
