《中国传媒投资报告》定购回执
|
|
|
2003.3.19
|
《中国传媒投资报告》系史坦国际传媒研究中心等单位主办的《中国传媒论坛》系列内部报告之一，是我国新闻主管部门、投资业界高层、权威媒介专家及成功媒体领导“十六大”之后内部演讲、讨论记录，整理成册，仅供领导参阅，请勿传播。
主办单位：中国传媒论坛组委会
史坦国际传媒研究中心
联系地址：北京朝阳区晨光家园A9楼1410
邮政编码：100025
电 话：010-58626851
58626852 13601256301
传 真：58626853
电子邮件：
sksstan@hotmail.com
或 webmaster@stanchina.com
网 址：
www.stanchina.com
序号 |
内
部 资 料 |
定 价（元）
|
1 |
《中国传媒投资报告》实况VCD（18 张） |
1200 |
2 |
《中国传媒投资报告》现场速记（含投影数据） |
380 |
3 |
《中国传媒受众市场分析》现场速记 |
100 |
4 |
《国际双语（汉英）节目播音主持艺术》现场速记（含5） |
100 |
5 |
《美国CNN电视播音主持艺术》同声传译（中英文） |
38 |
6 |
《WTO与中国传媒》现场速记 |
68 |
7 |
《中国传媒与人文科学讲习录》现场速记 |
100 |
8 |
《中国传媒资本市场与运营高级论坛》现场速记 |
100 |
9 |
《中国传媒资本市场与运营高级论坛》实况VCD（20 张） |
600 |
……………………………………………………………………………………………………………………………
| 姓
名 |
|
性
别 |
|
年
龄 |
|
| 单
位 |
|
职
务 |
|
| 地
址 |
|
邮
编 |
|
| 办
电 |
|
会
员 |
是 □
否 □ |
E-mail |
|
| 传
真 |
|
宅
电 |
|
手
机 |
|
注：电汇或邮寄均可。若电汇，请同时传真电汇凭证和汇款人详细通讯方式。
若邮寄，请在收款人姓名栏填：北京史坦国际文化传播有限公司
汇款帐号：2610263414
开户银行：中国建设银行朝阳行呼家楼分理处
开户单位名称：北京史坦国际文化传播有限公司
|
|
<%
if SpecialID<>0 then
Response.Write "
| | "
set rs4=server.CreateObject("ADODB.RecordSet")
rs4.Source="select * from special where SpecialID=" & SpecialID
rs4.Open,conn,1,1
Response.Write "| 相关专题:" & trim(rs4("specialname")) &" | "
rs4.Close
set rs4=nothing
Response.Write "| 专题信息: | | "
rs.Source="select top 5 NewsID,Title,BigClassName,SmallClassName,SpecialID,updatetime,click from News where (NewsID<>" & NewsID & " and SpecialID=" & SpecialID & ") order by NewsID DESC"
rs.Open,conn,1,1
if rs.EOF then
Response.Write "| 没有专题信息 | "
else
while not rs.EOF
Response.Write "  " & trim(rs("Title")) & "(" & trim(rs("UpdateTime")) &")[" & rs("click") & "] | "
rs.MoveNext
wend
Response.Write "| [更多... ] | "
end if
rs.Close
set rs=nothing
end if
'------------------------------------------------------------------------------------------------------------------------------------
Response.Write "
| | "
Response.Write "| 相关信息: | | "
if about<>"" then
sql="select top 5 * from news where about like '%" & about & "%' and title not like '%" & title & "%' order by newsid desc"
set rs=conn.execute(sql)
do while not rs.eof
Response.write "| " & trim(rs("Title")) & "(" & trim(rs("UpdateTime")) &")[" & rs("click") & "] | "
rs.movenext
loop
Response.Write "| [更多... ] | "
else
Response.write "| 没有相关信息 | "
end if
'rs.close
set rs=nothing
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Source="select top 5 * from review where NewsID=" & NewsID & " order by reviewid desc"
rs1.Open rs1.Source,conn,1,1
if rs1.EOF then NoReview=1
Response.Write "
| | "
Response.Write "| 相关评论: | | "
%>
<%
if not NoReview then
while not rs1.EOF
author=server.HTMLEncode(trim(rs1("author")))
email=server.HTMLEncode(trim(rs1("email")))
content=trim(rs1("content"))
content=replace(content,"<","<")
content=replace(content,">",">")
content=replace(content,chr(13),"
")
ContentLen=len(Content)
%>
<%
rs1.MoveNext
wend
end if
rs1.Close
set rs1=nothing
conn.close
set conn=nothing
%>
| | |
.gif){kind=spacer}
发表关于该信息的评论
