%
MaxPerPage=100
TCode=trim(Request("Code"))
FCode=left(TCode,6)
Strsql="FCode=''"&FCode&"''"
set rs=conn.execute("exec Fresh_fzm_Info 'Fund_Data','Fid,NiceName,type1','"&Strsql&"','Fid'")
if rs.eof and rs.bof then
set rs=Nothing
call connclose()
call BoxStr(0,404)
else
Fid=rs(0)
NiceName=rs(1)
type1=Cint(rs(2))
Scrsql="Fid="&rs("Fid")
end if
%>
<%=NiceName%>基金历史分红信息
查询其他基金历史分红信息:
- 排序
- 代码
- 简称
- 年份
<%
if type1<10 then%>
- 每份分红
- 登记日
- 除息日
- 分红方式
- 红利转再投资日
- 再投资赎回日
- 至除息日累计分红
<%else%>
- 税前每份分红
- 税后每份分红
- 登记日
- 除息日
- 实施方案
- 税前累计分红
- 税后累计分红
<%
end if%>
<%i=1
set rs=conn.execute("exec Fresh_fzm_Page 'Fund_Bonus','Id,BYear,BGive,SGive,Rday,Xday,Gway,Turns,Claim,Estab,STotal,Count','Fid="&Fid&" and Type=1','Xday',1,'"&MaxPerPage&"',1,0")
if type1<10 then
do while not rs.eof%>
- <%=i%>
- <%=FCode%>
- <%=NiceName%>
- <%=rs(1)%>
- <%=NberStr(rs(2),4)%>
- <%=TimeStr(rs(4),"yymmdd","-")%>
- <%=TimeStr(rs(5),"yymmdd","-")%>
- <%=rs(6)%>
- <%=TimeStr(rs(7),"yymmdd","-")%>
- <%=TimeStr(rs(8),"yymmdd","-")%>
- <%=NberStr(rs(9),4)%>
<%i=i+1
rs.Movenext
loop
else
do while not rs.eof%>
- <%=i%>
- <%=FCode%>
- <%=NiceName%>
- <%=rs(1)%>
- <%=NberStr(rs(2),4)%>
- <%=NberStr(rs(3),4)%>
- <%=TimeStr(rs(4),"yymmdd","-")%>
- <%=TimeStr(rs(5),"yymmdd","-")%>
- <%=rs(6)%>
- <%=NberStr(rs(9),4)%>
- <%=NberStr(rs(10),4)%>
<%i=i+1
rs.Movenext
loop
end if
set rs=Nothing%>