%
MaxPerPage=30
TCode=trim(Request("Code"))
FCode=left(TCode,6)
if not isempty(request("page")) then
CurrentPage=Cint(request("page"))
if CurrentPage=0 then CurrentPage=1
else
CurrentPage=1
end if
Strsql="FCode=''"&FCode&"''"
set rs=conn.execute("exec Fresh_fzm_Info 'Fund_Data','Fid,NiceName,WTime,Regdate,Enddate','type1>=10 and "&Strsql&"','Fid'")
if rs.eof and rs.bof then
set rs=Nothing
call connclose()
call BoxStr(0,404)
else
Fid=Clng(rs(0))
NiceName=rs(1)
WTime=rs(2)
Regdate=TimeStr(rs(3),"yymmdd","-")
Enddate=TimeStr(rs(4),"yymmdd","-")
Scrsql="Fid="&rs("Fid")
end if
conn.execute("update [Fund_Data] set Hits=Hits+1 where Fid="&Fid)
set rs=conn.execute("exec Fresh_fzm_Page 'Fund_Date','*','"&Strsql&"','DateTime',1,1,1,0")
DateTime=rs("DateTime")
if Nday=7 and DateDiff("d",DateTime,date)>=7 then '数据更新净值
if DateDiff("S",WTime,Now())>=6000 then call CjWorth(FCode,rs("Fid"),3)
end if
%>
- <%=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_Date','Id,DateTime,Worth,Total,Increase,Rate,RiseV,RiseR,CValue,CRate','"&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%>)每日最新净值列表
- 排序
- 日期
- 代码
- 简称
- 单位净值
- 累计净值
- 增长额
- 增长率
- 升贴水值
- 升贴水率
- 当日市值
- 市值增率
<%
do while not rs.eof%>
- <%=i%>
- <%=TimeStr(rs(1),"yymmdd","-")%>
- <%=FCode%>
- <%=NiceName%>
- <%=NberStr(rs(2),4)%>
- <%=NberStr(rs(3),4)%>
<%
if trim(rs(4))<=0 then%>
- <%=NberStr(rs(4),4)%>
- <%=NberStr(rs(5),4)%>%
<%else%>
- <%=NberStr(rs(4),4)%>
- <%=NberStr(rs(5),4)%>%
<%
end if%>
- <%=NberStr(rs(6),4)%>
- <%=NberStr(rs(7),4)%>%
- <%=NberStr(rs(8),3)%>
- <%=NberStr(rs(9),4)%>%
<%i=i+1
if i>j then exit do
rs.Movenext
loop%>
<%=ListPage%>
<%
end if
set rs=Nothing%>