如何同时读取相同数据库多个数据表,取不同数据表数据表分类汇总,字段有以下,其中a.asp 是主表,内容如下:
编号 学号 姓名 电话 邮件 确定班级(动态表) 确定成绩(动态表)
01 20061230 aa 88888 111@163.com 初二 优
02 20061532 bb 88888 111@163.com 高二 良
03 20061333 cc 88888 111@163.com 初三 中
04 20061231 dd 88888 111@163.com 高一 差
05 20061248 ee 88888 111@163.com 初一 优
06 20061554 ff 88888 111@163.com 高二 良
07 20061332 gg 88888 111@163.com 初三 优
08 20061233 hh 88888 111@163.com 高三 优
请问高手如何查找出列表为确定班级"高三"的所有行信息,
<!--#include file="fun.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from or where flag=0 order by id desc"
rs.open sqltext,conn,1,1
If rs.eof and rs.bof then
rs("id")%></td>
rs("use")%></td>
rs("name")%></td>
rs("tel")%></td>
rs("mail")%></td>
Getxinxi(rs("c_id"))%></td>
Getchengji(rs("cjtype"))%></td>
-----------------------------------------------------------
b.asp 是调用另外两个数据表数据表,b.asp程序如下:
<%
'******************
'取得班级名称
'******************
Function Getbanji(ZZID)
if trim(ZZID)="" then
exit Function
end if
set rec=server.createobject("adodb.recordset")
strsql="select c_name from xinxi where Id=" & ZZID & ""
rec.open strsql,conn,1,1
If Not rec.Eof Then
Getbanji=rec("c_name")
Else
Getbanji=""
End IF
rec.close
End Function
'******************
'取得成绩名称
'******************
Function Getchengji(ZZID)
if trim(ZZID)="" then
exit Function
end if
set rec=server.createobject("adodb.recordset")
strsql="select type from neirong where Id=" & ZZID & ""
rec.open strsql,conn,1,1
If Not rec.Eof Then
Getchengji=rec("type")
Else
Getchengji=""
End IF
rec.close
End Function
%>
-----------------------------------------------------------------------
请问高手如何查找出列表为确定班级"高三"的所有行信息,
