%
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"))
%>
| .html" title="<%=rsrr("te_title")%>" >【<%=rsrr("te_jname")%>】<%=left(replace(replace(rsrr("te_title")," "," "),""",""""),25)%> <%=rsrr("te_adddate")%> |
<%
rsrr.movenext
if rsrr.eof then exit for
next
else
for pe=1 to 6
xw_date=formattimern(rsrr("te_adddate"))
%>
| .html" title="<%=rsrr("te_title")%>" >【<%=rsrr("te_jname")%>】<%=left(replace(replace(rsrr("te_title")," "," "),""",""""),30)%> <%=rsrr("te_adddate")%> |
<%
rsrr.movenext
if rsrr.eof then exit for
next
end if
end if
rsrr.close
set rsrr=nothing
%>
|
|
|
|
|
|
|
|
|
 |
热门研究报告评级 |
|
<%
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"))
%>
| .html" title="<%=rsr("te_title")%>" class="lj_235">【<%=rsr("te_jname")%>】<%=left(replace(replace(rsr("te_title")," "," "),""",""""),15)%> |
<%
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
%>
|
| 如果不能阅读报告,请点击下载阅读器 |
 |
|