输出数据与表头不对应？

王者coco 2009-07-24 03:20:38

高中起点专科专科第二学历合计网上纸介单科选修专业进修
0 0 5 0 5 2 3

要实现以上效果，但现在运行页面显示的是这样的

高中起点专科专科第二学历合计网上纸介单科选修专业进修
0 0 2 3 5 0 5

sql语句中输出的字段是高中起点专科，专科第二学历，单科选修，专业进修，但是界面上还有合计，网上，纸介，
本来依次显示的数据现在填充到合计，网上，纸介上了，这样与表头不对应
哪位高手帮改改,以下是循环代码

<%
do while not rs.eof
if rs("number")="" or IsNull(rs("number")) then '判断是否为空
%>
<td><%response.Write("0") %></td>
<%else %>
<td><%=rs("number") %></td> '输出高中起点专科、专科第二学历、单科选修、专业进修 <%
end if
rs.MoveNext
loop
%>

<%
do while not rsTotal.eof
%>
<td><%=rsTotal("total") %></td> '合计
<td><%=rsTotal("internet") %></td> '网上
<td><%=rsTotal("paper") %></td> '纸介 <%
rsTotal.MoveNext
loop
%>

...全文

134 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

王者coco 2009-07-27

打赏
举报

自己up一下~

王者coco 2009-07-27

打赏
举报

哪位高手知道怎么修改？

王者coco 2009-07-24

打赏
举报

换位置没的用，还是那样

小坏猪猪 2009-07-24

打赏
举报

语句是对的，没有错误，是不是查询数据库的那条语句“ strStat="select count(*) as stat,sum(case when signstate=0 then 1 else 0 end) as internet,sum(case when signstate=1 then 1 else 0 end) as paper"
strStat=strStat+" from stusignsys as stu,fdzlist as fdz,studykindlist as st where stu.fdzid=fdz.fdzid and st.studykindid like 'a%'"
strStat=strStat+" and fdz.fdzid='11001' and stu.stu_level='" & stu_level & "' and stu.signdate between '" & SYear & "' and '" & EYear & "'"”查询的顺序不对，如果是对应的，你可以把这几条语句换一下位置 <td style="width: 20px"> <%=rsStat("stat") %> </td>
<td style="width: 20px"> <%=rsStat("internet") %> </td>
<td style="width: 20px"> <%=rsStat("paper") %> </td>

王者coco 2009-07-24

打赏
举报

<%
Set conn=server.CreateObject ("adodb.connection")
conn.ConnectionString =F_strconnection
conn.open

if err.number<>0 then
response.Write"数据库连接错误"
conn.Close
end if

set rsFwz = Server.CreateObject("ADODB.RecordSet")
strFwz="select fdzid,fdzname from fdzlist"
rsFwz.Open strFwz,conn,1,1

set rsStudyKind= Server.CreateObject("ADODB.RecordSet")
strStudyKind="select * from studykindlist order by studykindid"
rsStudyKind.Open strStudyKind,conn,1,1

range=request.Form("range")
fdzid=request.Form("fdzname")
stu_level=request.Form("stu_level")
sYear=request.Form("sYear")
sMonth=request.Form("sMonth")
sDay=request.Form("sDay")
eYear=request.Form("eYear")
eMonth=request.Form("eMonth")
eDay=request.Form("eDay")
SYear =sYear&"-"&sMonth&"-"&sDay
EYear =eYear&"-"&eMonth&"-"&eDay

set rsEducation= Server.CreateObject("ADODB.RecordSet")
strEducation="select st.studykind as studykinds,fdz.fdzname as fdznames"
strEducation=strEducation+" from stusignsys as stu,fdzlist as fdz,studykindlist as st"
strEducation=strEducation+" where stu.fdzid=fdz.fdzid and st.studykindid like 'a%' and stu.studykindid=st.studykindid"
strEducation=strEducation+" and fdz.fdzid='" & fdzid & "' and stu.stu_level='" & stu_level & "' and stu.signdate between '" & SYear & "' and '" & EYear & "'"
strEducation=strEducation+" group by st.studykind,fdz.fdzname,st.studykindid order by st.studykindid"
rsEducation.Open strEducation,conn,1,1

set rsNEducation= Server.CreateObject("ADODB.RecordSet")
strNEducation="select st.studykind as studykinds,fdz.fdzname as fdznames"
strNEducation=strNEducation+" from stusignsys as stu,fdzlist as fdz,studykindlist as st"
strNEducation=strNEducation+" where stu.fdzid=fdz.fdzid and st.studykindid like 'b%' and stu.studykindid=st.studykindid"
strNEducation=strNEducation+" and fdz.fdzid='" & fdzid & "' and stu.stu_level='" & stu_level & "' and stu.signdate between '" & SYear & "' and '" & EYear & "'"
strNEducation=strNEducation+" group by st.studykind,fdz.fdzname,st.studykindid order by st.studykindid"
rsNEducation.Open strNEducation,conn,1,1
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>招生报名信息统计</title>
<script type="text/javascript">
</script>
</head>
<body>
<div style="background:#CCFFFF;text-align:center;">
<div style="text-align:center"><b>招生报名信息统计表<br /></b>
<form name="form1" method="post" action="">
统计范围：<label id="lblRange"><%=range %></label>
<br />
入学年级：<label id="lblStu_level"><%=stu_level %></label> <br />
报名时间：<label id="lblSYear"><%=SYear%></label>~<label id="lblEYear"><%=EYear%></label>
<table border="1" style="width: 809px; height: 1px">
<tr>
<td rowspan="2" style="width: 20px">序号</td>
<td rowspan="2" style="width: 20px">教学服务站</td>
<td colspan="<%=CInt(rsEducation.RecordCount+3) %>" style="width:160px">
学历教育报名人数</td>
<td colspan="<%=CInt(rsNEducation.RecordCount+3) %>" style="width:160px">
<br />
非学历教育报名人数</td>
<td rowspan="2" style="width: 20px">总计</td>
<td rowspan="2" style="width: 20px">网上</td>
<td rowspan="2" style="width: 20px">纸介</td>
</tr>
<tr bgcolor="#66CCFF">
<td style="width: 20px">合计</td>
<td style="width: 20px">网上</td>
<td style="width: 20px">纸介</td>
<%
do while not rsEducation.eof
%>
<td style="width: 20px"><p><%=rsEducation("studykinds") %></p></td>
<%
rsEducation.MoveNext
loop
%>
<td style="width: 20px">合计</td>
<td style="width: 20px">网上</td>
<td style="width: 20px">纸介</td>
<%
do while not rsNEducation.eof
%>
<td style="width: 20px"><%=rsNEducation("studykinds") %></td>
<%
rsNEducation.MoveNext
loop
%>
</tr>
<%
stat=0
internet=0
paper=0
number=0
set rs = Server.CreateObject("ADODB.RecordSet")
dim strSql

strSql="select count(*) as number,st.studykind as studykinds,fdz.fdzname as fdznames,sum(case when signstate=0 then 1 else 0 end) as internet,sum(case when signstate=1 then 1 else 0 end) as paper"
strSql=strSql+" from stusignsys as stu,fdzlist as fdz,studykindlist as st"
strSql=strSql+" where stu.studykindID=st.studykindID and stu.fdzid=fdz.fdzid"
strSql=strSql+" and stu.stu_level='" & stu_level & "' and stu.signdate between '" & SYear & "' and '" & EYear & "'"
if range<>"全国" then
strSql=strSql+" and fdz.fdzid='" & fdzid & "'"
end if
strSql=strSql+" group by st.studykind,fdz.fdzname,st.studykindid order by st.studykindid"
rs.Open strSql,conn,1,1
response.Write strSql
%>
<%
i=1
do while not rs.eof
%>
<tr>
<td><%=i %></td>
<td style="width: 20px"><%=rs("fdznames") %></td>
<% '合计，网上，纸介
set rsStat = Server.CreateObject("ADODB.RecordSet")
dim strStat
strStat="select count(*) as stat,sum(case when signstate=0 then 1 else 0 end) as internet,sum(case when signstate=1 then 1 else 0 end) as paper"
strStat=strStat+" from stusignsys as stu,fdzlist as fdz,studykindlist as st where stu.fdzid=fdz.fdzid and st.studykindid like 'a%'"
strStat=strStat+" and fdz.fdzid='11001' and stu.stu_level='" & stu_level & "' and stu.signdate between '" & SYear & "' and '" & EYear & "'"
rsStat.Open strStat,conn,1,1
do while not rsStat.eof
%>
<td style="width: 20px"><%=rsStat("stat") %></td>
<td style="width: 20px"><%=rsStat("internet") %></td>
<td style="width: 20px"><%=rsStat("paper") %></td>
<%
rsStat.MoveNext
loop
%>

<% '学历教育
do while not rs.eof
if rs("number")="" or IsNull(rs("number")) then '判断是否为空
%>
<td style="width: 20px">
<a href="StatThree.asp?fdzid=<%=fdzid %>&SYear=<%=SYear %>&EYear=<%=EYear %>&studykind=<%=studykind %>&stu_level=<%=stu_level %>"><%response.Write("0") %></a>
</td>
<%else %>
<td style="width: 20px">
<a href="StatThree.asp?fdzid=<%=fdzid %>&SYear=<%=SYear %>&EYear=<%=EYear %>&studykind=<%=studykind %>&stu_level=<%=stu_level %>"><%=rs("number") %></a>
</td>
<%
end if
rs.MoveNext
loop
%>

<% '合计，网上，纸介
set rsTot = Server.CreateObject("ADODB.RecordSet")
dim strTot
strTot="select count(*) as tot,sum(case when signstate=0 then 1 else 0 end) as internet,sum(case when signstate=1 then 1 else 0 end) as paper"
strTot=strTot+" from stusignsys as stu,fdzlist as fdz,studykindlist as st where stu.studykindID=st.studykindID and stu.fdzid=fdz.fdzid and st.studykindid like 'b%'"
strTot=strTot+" and fdz.fdzid='11001' and stu.stu_level='" & stu_level & "' and stu.signdate between '" & SYear & "' and '" & EYear & "'"
rsTot.Open strTot,conn,1,1
do while not rsTot.eof
response.Write strTot
if isnull(rsTot("internet")) and isnull(rsTot("paper")) then
%>
<td style="width: 20px"><%response.Write("0") %></td>
<td style="width: 20px"><%response.Write("0") %></td>
<td style="width: 20px"><%response.Write("0") %></td>
<%else %>
<td style="width: 20px"><%=rsTot("tot") %></td>
<td style="width: 20px"><%=CInt(rsTot("internet")) %></td>
<td style="width: 20px"><%=CInt(rsTot("paper")) %></td>
<%
end if
rsTot.MoveNext
loop
%>

<% '总计，网上，纸介
set rsTotal = Server.CreateObject("ADODB.RecordSet")
dim strTotal
strTotal="select count(*) as total,sum(case when signstate=0 then 1 else 0 end) as internet,sum(case when signstate=1 then 1 else 0 end) as paper"
strTotal=strTotal+" from stusignsys as stu,fdzlist as fdz,studykindlist as st where stu.studykindID=st.studykindID and stu.fdzid=fdz.fdzid"
strTotal=strTotal+" and fdz.fdzid='11001' and stu.stu_level='" & stu_level & "' and stu.signdate between '" & SYear & "' and '" & EYear & "'"
rsTotal.Open strTotal,conn,1,1
do while not rsTotal.eof
%>
<td style="width: 20px"><%=rsTotal("total") %></td>
<td style="width: 20px"><%=rsTotal("internet") %></td>
<td style="width: 20px"><%=rsTotal("paper") %></td>
<%
rsTotal.MoveNext
loop
%>

<% '非学历教育
do while not rs.eof
if rs("number")="" or IsNull(rs("number")) then '判断是否为空
%>
<td style="width: 20px">
<a href="StatThree.asp?fdzid=<%=fdzid %>&SYear=<%=SYear %>&EYear=<%=EYear %>&studykind=<%=studykind %>&stu_level=<%=stu_level %>"><%response.Write("0") %></a>
</td>
<%else %>
<td style="width: 20px">
<a href="StatThree.asp?fdzid=<%=fdzid %>&SYear=<%=SYear %>&EYear=<%=EYear %>&studykind=<%=studykind %>&stu_level=<%=stu_level %>"><%=rs("number") %></a>
</td>
<%
end if
rs.MoveNext
loop
%>

</tr>
<%
i=i+1
loop
%>

</table>
<br />
<br />
<center><a href="StatOne.asp">继续统计</a></center>
</form>
</div>
</div>
</body>
</html>

小坏猪猪 2009-07-24

打赏
举报

你把你那个ASP文档全部复制出来，我看看

王者coco 2009-07-24

打赏
举报

select count(*) as number,st.studykind as studykinds,fdz.fdzname as fdznames,sum(case when signstate=0 then 1 else 0 end) as internet,sum(case when signstate=1 then 1 else 0 end) as paper from stusignsys as stu,fdzlist as fdz,studykindlist as st where stu.studykindID=st.studykindID and stu.fdzid=fdz.fdzid and stu.stu_level='200309' and stu.signdate between '2001-3-3' and '2009-10-3' and fdz.fdzid='11001' group by st.studykind,fdz.fdzname,st.studykindid order by st.studykindid
表咋给你撒，在服务器上

小坏猪猪 2009-07-24