% TCode=trim(Request("Code")) FCode=left(TCode,6) if FCode="" then FCode=trim(Request("SelB")) Strsql="FCode=''"&FCode&"''" set rs=conn.execute("exec Fresh_fzm_Info 'Fund_Data','Fid,NiceName,Regdate,Manager,OrgA','"&Strsql&"','Fid'") if rs.eof and rs.bof then set rs=Nothing call connclose() call BoxStr(0,404) else NiceName=rs(1) OrgA=trim(rs(4)) Scrsql="Fid="&rs("Fid") end if if Request("SDate")="" and Request("TDate")="" then SDate=DateAdd("yyyy",-1,Date) Scrsql=Scrsql&" and DateTime>=''"&SDate&"''" else SDate=trim(Request("SDate")) TDate=trim(Request("TDate")) Scrsql=Scrsql&" and (DateTime<=''"&TDate&"'' and DateTime>=''"&SDate&"'')" end if if TDate="" then TDate=date set rs=conn.execute("exec Fresh_fzm_List 'Fund_Date','Id,DateTime,Worth,Total,Increase,Rate,Bonus,Amount','"&Scrsql&"','DateTime',1") do while not rs.eof NVInfo=NVInfo&"["""&TimeStr(rs(1),"yymmdd","-")&""","""&NberStr(rs(2),4)&""","""&NberStr(rs(3),4)&""","""&NberStr(rs(4),4)&""","""&NberStr(rs(5),4)&""","""",""""]," rs.Movenext loop set rs=Nothing NVInfo=NewStr(NVInfo,0,1) set rs=conn.execute("exec Fresh_fzm_Page 'Fund_Date','*','"&Strsql&"','DateTime',1,1,1,0") DateTime=rs("DateTime") %>
★说明:绿色曲线为基金累计净值,蓝色曲线为基金单位净值,两线高度差=累计分红+累计拆分