<% response.redirect "http://www.zdcj.net/report.html" response.End() %> <% dim rsb,sqb,id,bhits,ttbop,tbop,tef_title,bigname,ggname id=request("id") id=filter_Str(id) if isnumeric(id)=false then response.Redirect("index.html") response.End() end if set rsb=server.CreateObject("adodb.recordset") sqb="select fh_id,fh_znumber,fh_name,te_bigclassname,te_jname,te_title,te_zgrade,te_adddate,te_content,te_picadd,te_from,te_hits,te_bgid,te_dname,te_bop,te_bok from tp_baogaoww where fh_id="&id&"" rsb.open sqb,conn,1,3 if not (rsb.bof and rsb.eof) then bhits=rsb("te_hits")+1 rsb("te_hits")=bhits rsb.update end if if rsb("te_bop")<>"" then ttbop=rsb("te_bop") tbop=split(ttbop,",") end if AddDate=formattimern(rsb("te_adddate")) rps_file=right(rsb("te_picadd"),1) dl_file=replace(replace(replace(replace(rsb("te_picadd"),".pdf",""),".doc",""),".xls",""),".rar","") if len(dl_file)<=30 then tt_date="2008-9" tt_files=mid(dl_file,8) tt_files1=left(tt_files,8) tt_files2=mid(tt_files,9) tt_file="www.zdcj.net"&tt_files1&"8"&tt_files2&rps_file else dd_files=split(dl_file,"/") tt_date=dd_files(2) tt_files=dd_files(3) tt_files1=left(tt_files,8) tt_files2=mid(tt_files,9) tt_file="www.zdcj.net"&tt_files1&"8"&tt_files2&rps_file end if tef_title=rsb("te_title") te_jjname=rsb("te_jname") bigname=rsb("te_bigclassname") ggname=rsb("fh_name") if bigname="公司调研" then tef_title=replace(tef_title,")",")研究报告:") elseif bigname="行业研究" then tef_title=replace(tef_title,":","研究报告:") end if set rsid=server.createobject("adodb.recordset") sqs="select k_id,k_name from jg_namef where k_name='"&te_jjname&"'" rsid.open sqs,conn,1,1 jggnm=rsid("k_id") rsid.close set rsid=nothing %>
当前位置:首 页 > 研究报告> <%=rsb("te_bigclassname")%>> <%=rsb("te_jname")%> > <%=left(replace(replace(rsb("te_title")," "," "),""","“"),28)%> <% if len(rsb("te_title"))>28 then response.write"..." end if %>
<%=tef_title%>
报告类型:<%=rsb("te_bigclassname")%>
研究机构:<%=rsb("te_jname")%>
行业类别: <% if rsb("te_dname")<>"无" then %> <%=rsb("te_dname")%> <% else response.write(" -- ") end if %>
评 级: <% if rsb("te_zgrade")<>"无" then %> <%=rsb("te_zgrade")%> <% else response.write(" -- ") end if %>
 
股票代码: <% if rsb("fh_znumber")<>"" then %> <%=rsb("fh_znumber")%> <% else response.write(" -- ") end if %>
股票名称: <% if rsb("fh_name")<>"" then %> <%=rsb("fh_name")%> <% else response.write(" -- ") end if %>
http://www.zdcj.net  <%=rsb("te_adddate")%>   报告来源:<%=rsb("te_from")%>   浏览人气:<%=rsb("te_hits")%>  
<%=rsb("te_content")%>
发给聊友
<% if rsb("te_picadd")<>"" then%> " > <% end if%>
 相关研究报告
<% dim rsrr,sqar set rsrr=server.CreateObject("adodb.recordset") if bigname="公司调研" then sqar="select top 6 fh_id,te_jname,te_title,te_adddate from tp_baogaoww where fh_name='"&ggname&"' and fh_id not in ("&id&") order by fh_id desc " rsrr.open sqar,conn,1,3 else sqar="select top 6 fh_id,te_jname,te_title,te_adddate from tp_baogaoww where te_jname='"&te_jjname&"' and fh_id not in ("&id&") order by fh_id desc " rsrr.open sqar,conn,1,3 end if if rsrr.bof and rsrr.eof then %> <% else %> <% if bigname="公司调研" then for pe=1 to 6 xw_date=formattimern(rsrr("te_adddate")) %> <% rsrr.movenext if rsrr.eof then exit for next else for pe=1 to 6 xw_date=formattimern(rsrr("te_adddate")) %> <% rsrr.movenext if rsrr.eof then exit for next end if end if rsrr.close set rsrr=nothing %>
无相关报告信息!......
.html" title="<%=rsrr("te_title")%>" >【<%=rsrr("te_jname")%>】<%=left(replace(replace(rsrr("te_title")," "," "),""",""""),25)%> <%=rsrr("te_adddate")%>
.html" title="<%=rsrr("te_title")%>" >【<%=rsrr("te_jname")%>】<%=left(replace(replace(rsrr("te_title")," "," "),""",""""),30)%> <%=rsrr("te_adddate")%>
<% if rsb("fh_name")<>"" then %> <% end if %> <% if rsb("fh_znumber")<>"" then %> <% end if %> <% dim tp tp=1 for tt=0 to ubound(tbop) %> <% tp=tp+1 next %>
 相关推荐
&select_bg=D" title="<%=rsb("fh_name")%>" ><%=rsb("fh_name")%>
&select_bg=D" title="<%=rsb("fh_znumber")%>" ><%=rsb("fh_znumber")%>
<%=tbop(tt)%>
 
热门研究报告评级
<% dim rsr,sqa set rsr=server.CreateObject("adodb.recordset") sqa="select top 10 * from tp_baogaoww order by te_hits desc,fh_id desc " rsr.open sqa,conn,1,3 if rsr.bof and rsr.eof then %> <% else for a=1 to 10 xx_date=formattimern(rsr("te_adddate")) %> <% rsr.movenext if rsr.eof then exit for next end if rsr.close set rsr=nothing rsb.close set rsb=nothing conn.close set conn=nothing %>
数据建设中......
.html" title="<%=rsr("te_title")%>" class="lj_235">【<%=rsr("te_jname")%>】<%=left(replace(replace(rsr("te_title")," "," "),""",""""),15)%>
 
如果不能阅读报告,请点击下载阅读器