[求助]同时调用SQL两个数据表，显示在一个地方 - ASP技术论坛

cainiao_zhan

等　级：新手上路
帖　子：4
专家分：0
注　册：2007-8-24

楼主

问题点数：0 回复次数：2

[求助]同时调用SQL两个数据表，显示在一个地方

图一

图二

各位，我在修改一个ASP程序，程序界面见上图，我现在想将“时间”和“项目”放到打分员的前面显示，

图二的处的代码如下：

<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from pingfen where username='"& session("username")&"'",conn,1,3
on error resume next

%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="tab6" style="display: none">
<tr>
<td height="20" width="12%" align="center" bgcolor="eae7ea">打分员</td>
<td height="20" width="10%" align="center" bgcolor="eae7ea">源语言理解</td>
<td height="20" width="10%" align="center" bgcolor="eae7ea">语言组织</td>
<td height="20" width="10%" align="center" bgcolor="eae7ea">专业词汇</td>
<td height="20" width="10%" align="center" bgcolor="eae7ea">排版</td>
<td height="20" width="40%" align="center" bgcolor="eae7ea">简评</td>
<td height="20" width="8%" align="center" bgcolor="eae7ea">平均</td>
</tr>
<%
do while not rs.eof %>
<tr>
<td height="20" align="center"> <%=rs("adminuser")%></td>
<td align="center"> <%=rs("yuanyuyan")%></td>
<td align="center"> <%=rs("yuyanzuzhi")%></td>
<td align="center"> <%=rs("zhuanyecihui")%></td>
<td align="center"> <%=rs("paiban")%></td>
<td align="center"> <%=rs("jianping")%></td>
<td align="center" bgcolor="#CCCCCC"> <%=rs("pingjun")%></td>
</tr>
<%
sum1=sum1+rs("yuanyuyan")
sum2=sum2+rs("yuyanzuzhi")
sum3=sum3+rs("zhuanyecihui")
sum4=sum4+rs("paiban")
sum5=sum5+rs("pingjun")
rs.movenext

loop
countpf=rs.recordcount
rs.close
set rs=nothing

%>
<tr>
<td height="20" align="center" bgcolor="#CCCCCC"> 平均</td>
<td align="center" bgcolor="#CCCCCC"> <%=Cint(sum1/countpf)%></td>
<td align="center" bgcolor="#CCCCCC"> <%=Cint(sum2/countpf)%></td>
<td align="center" bgcolor="#CCCCCC"> <%=Cint(sum3/countpf)%></td>
<td align="center" bgcolor="#CCCCCC"> <%=Cint(sum4/countpf)%></td>
<td align="center" bgcolor="#CCCCCC"> </td>
<td align="center" bgcolor="#CCCCCC"> <%=Cint(sum5/countpf)%></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>


<table width="100%" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#FFFFFF" bordercolorlight="#996699">
<tr onclick="s(tab5)">
<td width="97%" height="20" bgcolor="#FF0000"><span class="STYLE1"><a href="#" name="jifen"></a>■积分</span></td>
<td width="3%" bgcolor="#FF0000"><A href="#top">TOP</A></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#FFFFFF" bordercolorlight="#FF0000" id="tab5" style="display: none">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from jifen where username='"& session("username")&"'",conn,1,1
if rs.bof and rs.eof then
response.write "暂时没有"
end if

%>
<tr>
<td width="18%" align="center" bgcolor="#CCCCCC">时间</td>
<td width="15%" align="center" bgcolor="#CCCCCC">项目</td>
<td width="15%" align="center" bgcolor="#CCCCCC">客户</td>
<td width="12%" align="center" bgcolor="#CCCCCC">语言</td>
<td width="10%" align="center" bgcolor="#CCCCCC">类型</td>
<td width="10%" align="center" bgcolor="#CCCCCC">专业</td>
<td width="5%" align="center" bgcolor="#CCCCCC">数量</td>
<td width="5%" align="center" bgcolor="#CCCCCC">金额</td>
<td width="5%" align="center" bgcolor="#CCCCCC">评分</td>
<td width="5%" align="center" bgcolor="#CCCCCC">积分</td>
</tr>
<%
num=0
do while not rs.eof%>
<tr>
<td align="center"><%=rs("date1")%>→<%=rs("date2")%></td>
<td align="center"><%=rs("xiangmu")%></td>
<td align="center"><%=rs("kehu")%></td>
<td align="center"><%=rs("yuan")%>→<%=rs("mubiao")%></td>
<td align="center"><%=rs("leixing")%></td>
<td align="center"><%=rs("zhuanye")%></td>
<td align="center"><%=rs("shuliang")%></td>
<td align="center"><%=rs("money")%></td>
<td align="center"><%=rs("pingfen")%></td>
<td align="center"><%=rs("suohuojifen")%></td>
</tr>
<%

rs.movenext
loop

rs.close
set rs=nothing

%>
</table></td>
</tr>
</table>

</td>
</tr>
</table></td>
</tr>
</table>