你好老师:
以下是截图情况,感谢!
代码如下:
<%Case "YiLou"%>
<%
Orderby=" where SD_QIH>='"&StartQih&"' AND SD_QIH<='"&EndQih&"'"
Orderby=Orderby&"group by SD_LYE order by SD_LYE asc"
set Waitrs=WS_S.HX_SetRSD("SD_LYE,count(SD_LYE) as LYE","SD_HAOMAB",Orderby)
%>
<table cellpadding='2' cellspacing='1' border='0' class='border' align=center>
<form action="sdzonghe.asp" method="get" name="search"><tr class='Navigationtdbg'>
<td>日期:
<%
set ERs=WS_S.HX_SetRSD("SD_QIH","SD_HAOMAB"," order by SD_QIH desc")
%>第
<input name="StartQih" type="text" value="2002001" size="7" maxlength="7" autocomplete=off> 至
<input name="EndQih" type="text" value="<%=ERs("SD_QIH")%>" size="7" maxlength="7" autocomplete=off>
<%ERs.close:set ERs=nothing%>
<input type="submit" name="Submit2" value=" 查 看 " class="button">
<input name="Action" type="hidden" value="YiLou">
</td>
</tr></form>
</table><br>
<table cellpadding='2' cellspacing='1' border='0' class='border' align=center>
<tr class='title'>
<td colspan="4">综合</td>
</tr>
<tr class='Navigationa'>
<td width="25%">日期</td>
<td width="25%">方案</td>
<td width="25%">类别</td>
<td width="25%">概率</td>
</tr>
<%
if Waitrs.recordcount<=0 then
%>
<tr>
<td colspan=4 class="titletdbg" height=25 align=center>暂无符合条件的信息,请输入查询条件!</td>
</tr>
<%
else
sumlye1=0
do while not Waitrs.EOF
%>
<tr align=center class='titletdbg'>
<td><%=EndQih+1%></td>
<td>1</td>
<td><%=Waitrs("SD_LYE")%></td>
<%
Orderby1=" where SD_QIH>='"&StartQih&"' AND SD_QIH<='"&EndQih&"'"
set Waitrs1=WS_S.HX_SetRSD("SD_LYE","SD_HAOMAB",Orderby1)
i = 0
j = 0
num = 0
daoer = 0
isgao = true
do while not Waitrs1.eof
j = j + 1
if Waitrs1("SD_LYE")=Waitrs("SD_LYE") then
isgao = false
daoer=i
end if
if isgao then
i = i + 1
else
if i > num then
num = i
end if
i = 0
isgao = true
end if
a=CStr(i)
b=CStr(j)
c=Waitrs("LYE")
Waitrs1.movenext
loop
%>
<%if (a/((b-c)/(c+1)))>1.57079 then%>
<%sumlye1=sumlye1+(a/(3.14*((b-c)/(c+1))))+1.25248%><%else%>
<%sumlye1=sumlye1+a/((b-c)/(c+1))%><%end if%>
<%if (a/((b-c)/(c+1)))>1.57079 then%>
<td><%=formatnumber((((a/(3.14*((b-c)/(c+1))))+1.25248)
/ sumlye1 ),5,-1)%></td><%else%>
<td><%=formatnumber(((a/((b-c)/(c+1)))
/ sumlye1 ),5,-1)%></td><%end if%>
</tr>
<%
Waitrs1.close:set Waitrs1=nothing
%>
<%
Waitrs.movenext
loop
end if
Waitrs.close:set Waitrs=nothing
%>
</table>
[
本帖最后由 anjincheng 于 2009-11-17 18:50 编辑 ]