<% 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%>-每日最新净值查询-第一基金网
  • <%=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%>
当天即时汇率计算器