<%Strsql="FCode=''"&FCode&"''"
set rs=conn.execute("exec Fresh_fzm_Page 'Fund_Date','Id,DateTime,Worth,Total,Increase,Rate,Bonus,Amount','"&Strsql&"','DateTime',1,'"&MaxPerPage&"','"&CurrentPage&"',0")
if Not (rs.eof and rs.bof) then
set rs1=conn.execute("exec Fresh_fzm_Page 'Fund_Date','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%>)每日最新净值列表
- 排序
- 日期
- 代码
- 简称
- 日收益(元/万份)
- 7日年化收益率(%)
- 成立日
- 基金经理
<%
do while not rs.eof%>
- <%=i%>
- <%=TimeStr(rs(1),"yymmdd","-")%>
- <%=FCode%>
- <%=NiceName%>
- <%=NberStr(rs(2),5)%>
- <%=NberStr(rs(3),5)%>
- <%=Regdate%>
- <%=Manager%>
<%i=i+1
if i>j then exit do
rs.Movenext
loop%>
<%=ListPage%>
<%
end if
set rs=Nothing%>