- <%=NiceName&"("&FCode%>) 收益率 统计日期：<%=TimeStr(DateTime,"yymmdd","-")%> 成立日：<%=Regdate%> 到期日：<%=Enddate%>
- 最近一周
<%=TimeStr(rs("Week"),"yymmdd","-")%>
- 最近一月
<%=TimeStr(rs("Month"),"yymmdd","-")%>
- 最近一季
<%=TimeStr(rs("Quarter"),"yymmdd","-")%>
- 最近半年
<%=TimeStr(rs("Half"),"yymmdd","-")%>
- 最近一年
<%=TimeStr(rs("Years"),"yymmdd","-")%>
- 今年以来
<%=TimeStr(rs("Since"),"yymmdd","-")%>
- 设立以来
<%=TimeStr(rs("Estab"),"yymmdd","-")%>
><%=NberStr(rs("WRate"),4)%>%
><%=NberStr(rs("MRate"),4)%>%
><%=NberStr(rs("QRate"),4)%>%
><%=NberStr(rs("HRate"),4)%>%
><%=NberStr(rs("YRate"),4)%>%
><%=NberStr(rs("SRate"),4)%>%
><%=NberStr(rs("ERate"),4)%>%
<%
set rs=conn.execute("exec Fresh_fzm_Page 'Fund_Trade','Id,DateTime,Opening,Tallest,Closing,Lowest,Amount,TMoney,Increase,Rate','"&Strsql&"','DateTime',1,'"&MaxPerPage&"','"&CurrentPage&"',0")
if Not (rs.eof and rs.bof) then
set rs1=conn.execute("exec Fresh_fzm_Page 'Fund_Trade','Id','"&Strsql&"','DateTime',1,'"&MaxPerPage&"','"&CurrentPage&"',1")
TotalPut=rs1(0)
set rs1=Nothing
AllPage=TotalPut/MaxPerPage
if Cint(AllPage)=AllPage then
TotalPage=Int(AllPage)
else
TotalPage=Int(AllPage)+1
end if
i=(CurrentPage-1)*MaxPerPage+1
j=CurrentPage*MaxPerPage
ListPage="当前数据
"&TotalPut&"条 页次"&CurrentPage&"/"&TotalPage
if CurrentPage>1 and TotalPage>1 then
ListPage=ListPage&"
第一页 上一页"
else
ListPage=ListPage&" 第一页 上一页"
end if
if TotalPage>CurrentPage then
ListPage=ListPage&"
下一页 最尾页"
else
ListPage=ListPage&" 下一页 最尾页"
end if%>
<%=ListPage%>
<%=NiceName&"("&FCode%>)每日最新交易情况列表
- 排序
- 日期
- 代码
- 简称
- 开盘
- 最高
- 收盘
- 最低
- 成交量(手)
- 成交额(万)
- 增长额
- 市值增率
<%
do while not rs.eof
Trade=trim(rs(7))/10000%>
- <%=i%>
- <%=TimeStr(rs(1),"yymmdd","-")%>
- <%=FCode%>
- <%=NiceName%>
- <%=NberStr(rs(2),3)%>
- <%=NberStr(rs(3),3)%>
- <%=NberStr(rs(4),3)%>
- <%=NberStr(rs(5),3)%>
- <%=formatnumber(rs(6),0)%>
- <%=formatnumber(Trade,2)%>
<%
if trim(rs(8))<=0 then%>
- <%=NberStr(rs(8),4)%>
- <%=NberStr(rs(9),4)%>%
<%else%>
- <%=NberStr(rs(8),4)%>
- <%=NberStr(rs(9),4)%>%
<%
end if%>
<%i=i+1
if i>j then exit do
rs.Movenext
loop%>
<%=ListPage%>
<%
end if
set rs=Nothing%>