首  页  订阅中心 市场活动 客户服务 关于我们

<% set rs=server.CreateObject("adodb.recordset") sql="select top 1 * from book where lei=0 order by cptj desc, id desc" rs.open sql,conn,1,1 if not rs.eof then %> " target="_blank">" width="178" height="237" border="0" /> " target="_blank"><%=rs("bookname")%>" target="_blank"> 专题：<%=rs("editor")%> 价格：￥<%=rs("price")%>元 <% rs.close set rs=nothing end if %> <% sql1="select top 9 * from zz_type order by id asc" set rs1=server.CreateObject("ADODB.recordset") rs1.Open sql1,dbconn,3,3 if not(rs1.eof and rs1.BOF) then while not rs1.eof %> <% rs1.MoveNext wend end if %> "><%=rs1("type1")%>

<% sql="select * from link where type1='首页中部广告(510*130)'" set rs=server.CreateObject("ADODB.recordset") rs.Open sql,dbconn,3,3 if not rs.eof then if lcase(right(rs("gg_file"),3))="swf" then response.write("") else response.write("") end if end if rs.close set rs=nothing %> <%' set rs=server.CreateObject("adodb.recordset") sql="select * from news where type1='重点新闻' order by id desc" rs.open sql,conn,1,1 if not rs.eof then %> <%rs.close set rs=nothing end if%> <%=rs("title")%> 作者：<%=rs("author")%>   <%=Getlen(month(rs("time")))%>-<%=Getlen(day(rs("time")))%>-<%=right(year(rs("time")),2)%> " target="_blank">     <%key=replace(rs("content")," ","") keycontent=split(key,"<") if ubound(keycontent)>0 then content1="" for m=0 to ubound(keycontent) keywordcontent1=split(keycontent(m),">") if ubound(keywordcontent1)>0 then if ubound(keywordcontent1) mod 2=0 then content1=content1&keycontent(m) else content1=content1&keywordcontent1(1) end if end if next else content1=key end if response.Write(mid(content1,1,76)&"...") %> <%' set rs=server.CreateObject("adodb.recordset") sql="select top 4 * from news where type1='反馈新闻' order by id desc" rs.open sql,conn,1,1 if not rs.eof then i=1 do while not rs.eof %> <% i=i+1 rs.movenext loop rs.close set rs=nothing end if %> <%if i=4 then%> <%end if%> " target="_blank" class="font3"> <%=left(rs("title"),19)%>   作者 <%=rs("author")%> 　　 <%=Getlen(month(rs("time")))%>-<%=Getlen(day(rs("time")))%>-<%=right(year(rs("time")),2)%>   " target="_blank"> <%key=replace(rs("content")," ","") keycontent=split(key,"<") if ubound(keycontent)>0 then content1="" for m=0 to ubound(keycontent) keywordcontent1=split(keycontent(m),">") if ubound(keywordcontent1)>0 then if ubound(keywordcontent1) mod 2=0 then content1=content1&keycontent(m) else content1=content1&keywordcontent1(1) end if end if next else content1=key end if response.Write(mid(content1,1,42)&"...") %>" class="font4" target="_blank">意见反馈   >> 更多信息 <% set rs=server.CreateObject("adodb.recordset") sql="select * from news where type1='观点新闻' and tj=1 order by id desc" rs.open sql,conn,1,1 if not rs.eof then %> <%rs.close set rs=nothing end if%> <% set rs=server.CreateObject("adodb.recordset") sql="select top 6 * from news where type1='观点新闻' and tj=0 order by id desc" rs.open sql,conn,1,1 if not rs.eof then do while not rs.eof %> <% i=i+1 rs.movenext loop rs.close set rs=nothing end if %> " target="_blank" class="font2"><%=left(rs("title"),7)%>... " target="_blank">" width="166" height="164" border="0" /> " target="_blank"> <%key=replace(rs("content")," ","") keycontent=split(key,"<") if ubound(keycontent)>0 then content1="" for m=0 to ubound(keycontent) keywordcontent1=split(keycontent(m),">") if ubound(keywordcontent1)>0 then if ubound(keywordcontent1) mod 2=0 then content1=content1&keycontent(m) else content1=content1&keywordcontent1(1) end if end if next else content1=key end if response.Write(mid(content1,1,35)&"...") %> " target="_blank"> · <%=left(rs("title"),10)%>...

<% set rs=server.CreateObject("adodb.recordset") sql="select * from news where type1='滚动新闻' order by id desc" rs.open sql,conn,1,1 if not rs.eof then do while not rs.eof %> " target="_blank">·<%if len(rs("title"))>16 then%><%=left(rs("title"),16)%>...<%else%><%=rs("title")%><%end if%> <% rs.movenext loop rs.close set rs=nothing end if %> <% set rs=server.CreateObject("adodb.recordset") sql="select * from book where lei=1 " rs.open sql,conn,1,1 if not rs.eof then %> <% rs.close set rs=nothing end if %> <% sql="select * from link where type1='首页右侧上广告(215*112)'" set rs=server.CreateObject("ADODB.recordset") rs.Open sql,dbconn,3,3 if not rs.eof then if lcase(right(rs("gg_file"),3))="swf" then response.write("") else response.write("") end if end if rs.close set rs=nothing %> <% sql="select * from link where type1='首页右侧下广告(215*112)'" set rs=server.CreateObject("ADODB.recordset") rs.Open sql,dbconn,3,3 if not rs.eof then if lcase(right(rs("gg_file"),3))="swf" then response.write("") else response.write("") end if end if rs.close set rs=nothing %> <%=rs("bookname")%> 作者：<%=rs("editor")%> "> <%key=replace(rs("content")," ","") keycontent=split(key,"<") if ubound(keycontent)>0 then content1="" for m=0 to ubound(keycontent) keywordcontent1=split(keycontent(m),">") if ubound(keywordcontent1)>0 then if ubound(keywordcontent1) mod 2=0 then content1=content1&keycontent(m) else content1=content1&keywordcontent1(1) end if end if next else content1=key end if response.Write(mid(content1,1,32)&"...") %> ">" width="96" height="127" border="0" />

友情链接： <% sql1="select * from other_link where type1='友情链接'" set rs1=server.CreateObject("ADODB.recordset") rs1.Open sql1,dbconn,3,3 if not rs1.eof then do while not rs1.eof%> " target="_blank">" border="0" /> <%rs1.movenext loop end if rs1.close set rs1=nothing %>
	联系我们 | 代理合作 | 广告业务 | 招聘信息 版权所有 《北大商业评论》 地址:北京市海淀区海淀路52号北大太平洋科技发展中心11层 邮编:100080 网站建设：悦海方舟