首先你的表设计的有点问题,所以要求表一 zbry里不能存在姓名一样的记录,假设这点成立。
第一种方法,接你的思路,写MyTel方法,根据姓名从表一 zbry读取电话 显示在页面上
第二种方法,关联表查询,推荐使用
SQL = "Select zbxx .*,a.Tel,b.Tel From zbxx inner join zbry as a on zbxx.zhuban=a.name inner join zbry as b on zbxx.fuban=b.name where time = #"&date5&"#"
...
name1=Rsw("zhuban")
name2=Rsw("fuban")
tel1=Rsw("a.Tel")
tel2=Rsw("b.Tel")
...
代码大约是这样
<%=MyTel(name1)%>
改为
<%=conn.Execute("select Tel from zbry where name=" & name1)(0)%>
<%=MyTel(name2)%>
改为
<%=conn.Execute("select Tel from zbry where name=" & name2)(0)%>
最下面的那行 rsw.close 删掉