<% dir=request("dir") if dir="" then dir="1" Wurl="http://stock.eastmoney.com/news/cdpfx_"&dir&".html" WHtml=GetHttpPage(Wurl) WHtml=HTMLEncode(WHtml) WHtml=Replace(WHtml,"stock.eastmoney.com","") WHtml=Replace(WHtml,"blank","self") WHtml=Replace(WHtml,"http:///news/","dpfxshow.asp?dir=") WHtml=Replace(WHtml,"cdpfx_","dpfx.asp?dir=") WHtml=Replace(WHtml,".html' target='_self'","' target='_self'") WHtml=Replace(WHtml,".html' class='f12'","' class='f12'") WHtml=Replace(WHtml,"'cdpfx'","'dpfx.asp'") WHtml=Replace(WHtml,"
  • ","
  • ") stocknews=GetBody(WHtml,"
    ","
    ",False,False) page=GetBody(WHtml,"
    ","
    ",False,False) if instr(newstitle1, "前方砸车日系车掉头")>0 or instr(newstitle1, "吴兵周斌逃离北京被抓")>0 or instr(newstitle1, "取精")>0 or instr(newstitle1, "李宗瑞")>0 or Left(newstitle1, 3)="毛泽东" or Left(newstitle1, 3)="彭丽媛" or instr(newstitle1, "郭书瑶")>0 or instr(newstitle1, "性交")>0 or instr(newstitle1, "艳照")>0 or instr(newstitle1, "赵惟依")>0 or Left(newstitle1, 4)="日本护士" then Response.write("") response.End() else end if %> 大盘分析_股市新闻_查股票网

    大盘分析

      <%=stocknews%>

    <%=page%>


    郑重声明:本站所有信息均来自互联网或网友自愿投稿,版权归原作者所有,仅供参考。股市有风险,投资需谨慎。
    查股票网 www.szfh.net 版权所有 2014