<%i=2 Dim List_0(9),List_1(9),List_2(9),List_3(9) FCode=trim(Request("Code")) if Not len(FCode)=6 then FCode="000001" Strsql="FCode=''"&FCode&"''" set rs=conn.execute("exec Fresh_fzm_Info 'Fund_Data','Fid,NiceName,type1,type2,Regdate,Enddate','"&Strsql&" and Show=1 and type1<=9','Fid'") if rs.eof and rs.bof then set rs=Nothing call connclose() call BoxStr(0,404) else Fid=Clng(rs(0)) NiceName=trim(rs(1)) end if set rs=Nothing '读取最新估值 set rs=conn.execute("exec Fresh_fzm_Info 'Fund_Estime','DateTime,Worth,Estimate,DRate,Dateline,NWorth','Fid="&Fid&"','Id'") DateTime=rs(0) if IsNull(rs(1)) or Not IsNull(rs(5)) then List_1(1)="未公布" if IsNull(rs(5)) then List_0(1)=TimeStr(rs(0),"yymmdd","-") List_2(1)=NberStr(rs(2),4) else List_0(1)=TimeStr(rs(4),"yymmdd","-") List_2(1)=NberStr(rs(5),4) end if List_3(1)=">未公布" else Trow="yes" List_0(1)=TimeStr(rs(0),"yymmdd","-") List_1(1)=NberStr(rs(1),4) List_2(1)=NberStr(rs(2),4) if trim(rs(3))<=0 then List_3(1)="class=""b1"">"&NberStr(rs(3),2)&" %" else List_3(1)="class=""a1"">"&NberStr(rs(3),2)&" %" end if end if set rs=Nothing '读取历史估值 set rs=conn.execute("exec Fresh_fzm_Page 'Fund_Date','DateTime,Worth,Estimate,DRate','"&Strsql&"','DateTime',1,9,1,0") if Trow="yes" then rs.MoveNext do while not rs.eof List_0(i)=TimeStr(rs(0),"yymmdd","-") List_1(i)=NberStr(rs(1),4) List_2(i)=NberStr(rs(2),4) if trim(rs(3))<=0 then List_3(i)="class=""b1"">"&NberStr(rs(3),2)&" %" else List_3(i)="class=""a1"">"&NberStr(rs(3),2)&" %" end if i=i+1 rs.MoveNext loop rs.close if i<=9 then For i=i to 9 List_0(i)="----" List_1(i)="----" List_2(i)="----" List_3(i)="----" Next end if %> <%=NiceName%>净值估算图-第一基金网 <% if Cj="yes" then%> '"><% end if%>
您现在的位置：基金净值查询首页 >> 开放式基金净值估算系统 >> <%=NiceName%>基金净值估算图
<% rs.open "select top 2 * from [Fund_Index] order by Sortid",conn,1,1%>
<%rs.close set rs=conn.execute("exec Fresh_fzm_Link 'Fund_Stock right join Stock_Trade on Fund_Stock.SCode=Stock_Trade.SCode','PK_Fund_Stock','Fund_Stock.DateTime,Fund_Stock.SName,Fund_Stock.SCode,Fund_Stock.Have,Stock_Trade.AC,Stock_Trade.DateTime,Stock_Trade.Rate,Stock_Trade.Dateline',10,0,'Fund_Stock.Fid="&Fid&"','','Fund_Stock.DateTime desc,Stock_Trade.SCode asc'") if rs.eof and rs.bof then%>未公布<%else%>
  • 股票代码
  • 股票名称
  • 仓位
  • 涨跌幅
  • 影响涨幅
  • 更新时间
<%j=0 do while not rs.eof Times=TimeValue(rs(7)) UT=replace(Times,":","") if DateDiff("d",rs(5),date)=0 then if Cj="yes" or UT<=150000 then if DateDiff("S",rs(7),Now())>=300 then StockList=StockList&rs(4)&rs(2)&"," end if else StockList=StockList&rs(4)&rs(2)&"," end if EsTime=trim(rs(3))*trim(rs(6))/100%>
  • <%=rs(2)%>
  • <%=rs(1)%>
  • <%=NberStr(rs(3),2)%>%
    • <% if trim(rs(6))<=0 then%>
  • <%=NberStr(rs(6),4)%>%
  • <%=NberStr(EsTime,4)%>%
    • <% else%>
  • <%=NberStr(rs(6),4)%>%
  • <%=NberStr(EsTime,4)%>%
    • <% end if%>
  • <%=Times%>
<%j=j+1 Sall=Sall+trim(rs(3))*100 Eall=Eall+EsTime Tdate=rs(0) rs.MoveNext if Not Tdate=rs(0) then exit do loop if Not StockList="" then CCj=CjStock(NewStr(StockList,0,1))%>
  • 估值依据 <%=j%> 支重仓股
  • <%=Sall/100%>%
  • 重仓日：<%=TimeStr(Tdate,"mmdd","月日")%> 涨跌幅估值: <%=NberStr(Eall,4)%> %
<%end if rs.close set rs=Nothing%>