- <% if request("code")="" then gph="600000" gpm="浦发银行" else stock=request("code") If Left(stock, 1) = "6" Then mt="sh" If Left(stock, 1) = "0" Then mt="sz" If Left(stock, 1) = "2" Then mt="sz" If Left(stock, 1) = "3" Then mt="sz" Wurl="http://qt.gtimg.cn/q="&mt&""&stock&"" WHtml=GetHttpPage(Wurl) WHtml=HTMLEncode(WHtml) gpm=GetBody(WHtml,"~","~",False,False) gph=stock end if %> <%Response.Write(gpm)%>超赢数据">超赢数据
- 千股千评
- <% if request("code")="" then gph="600000" gpm="浦发银行" else stock=request("code") If Left(stock, 1) = "6" Then mt="sh" If Left(stock, 1) = "0" Then mt="sz" If Left(stock, 1) = "2" Then mt="sz" If Left(stock, 1) = "3" Then mt="sz" Wurl="http://qt.gtimg.cn/q="&mt&""&stock&"" WHtml=GetHttpPage(Wurl) WHtml=HTMLEncode(WHtml) gpm=GetBody(WHtml,"~","~",False,False) gph=stock end if %> <%Response.Write(gpm)%>机构评级">机构评级
- <% if request("code")="" then gph="600000" gpm="浦发银行" else stock=request("code") If Left(stock, 1) = "6" Then mt="sh" If Left(stock, 1) = "0" Then mt="sz" If Left(stock, 1) = "2" Then mt="sz" If Left(stock, 1) = "3" Then mt="sz" Wurl="http://qt.gtimg.cn/q="&mt&""&stock&"" WHtml=GetHttpPage(Wurl) WHtml=HTMLEncode(WHtml) gpm=GetBody(WHtml,"~","~",False,False) gph=stock end if %> <%Response.Write(gpm)%>盈利预测">盈利预测
- 股票行情
- F10资料
- 最新消息
- <% if request("code")="" then gph="600000" gpm="浦发银行" else stock=request("code") If Left(stock, 1) = "6" Then mt="sh" If Left(stock, 1) = "0" Then mt="sz" If Left(stock, 1) = "2" Then mt="sz" If Left(stock, 1) = "3" Then mt="sz" Wurl="http://qt.gtimg.cn/q="&mt&""&stock&"" WHtml=GetHttpPage(Wurl) WHtml=HTMLEncode(WHtml) gpm=GetBody(WHtml,"~","~",False,False) gph=stock end if %> <%Response.Write(gpm)%>大小非解禁">限售解禁
- <% if request("code")="" then gph="600000" gpm="浦发银行" else stock=request("code") If Left(stock, 1) = "6" Then mt="sh" If Left(stock, 1) = "0" Then mt="sz" If Left(stock, 1) = "2" Then mt="sz" If Left(stock, 1) = "3" Then mt="sz" Wurl="http://qt.gtimg.cn/q="&mt&""&stock&"" WHtml=GetHttpPage(Wurl) WHtml=HTMLEncode(WHtml) gpm=GetBody(WHtml,"~","~",False,False) gph=stock end if %> <%Response.Write(gpm)%>概念题材">概念题材
- <% if request("code")="" then gph="600000" gpm="浦发银行" else stock=request("code") If Left(stock, 1) = "6" Then mt="sh" If Left(stock, 1) = "0" Then mt="sz" If Left(stock, 1) = "2" Then mt="sz" If Left(stock, 1) = "3" Then mt="sz" Wurl="http://qt.gtimg.cn/q="&mt&""&stock&"" WHtml=GetHttpPage(Wurl) WHtml=HTMLEncode(WHtml) gpm=GetBody(WHtml,"~","~",False,False) gph=stock end if %> <%Response.Write(gpm)%>十大股东">十大股东
- <% if request("code")="" then gph="600000" gpm="浦发银行" else stock=request("code") If Left(stock, 1) = "6" Then mt="sh" If Left(stock, 1) = "0" Then mt="sz" If Left(stock, 1) = "2" Then mt="sz" If Left(stock, 1) = "3" Then mt="sz" Wurl="http://qt.gtimg.cn/q="&mt&""&stock&"" WHtml=GetHttpPage(Wurl) WHtml=HTMLEncode(WHtml) gpm=GetBody(WHtml,"~","~",False,False) gph=stock end if %> <%Response.Write(gpm)%>财务分析">财务分析
- <% if request("code")="" then gph="600000" gpm="浦发银行" else stock=request("code") If Left(stock, 1) = "6" Then mt="sh" If Left(stock, 1) = "0" Then mt="sz" If Left(stock, 1) = "2" Then mt="sz" If Left(stock, 1) = "3" Then mt="sz" Wurl="http://qt.gtimg.cn/q="&mt&""&stock&"" WHtml=GetHttpPage(Wurl) WHtml=HTMLEncode(WHtml) gpm=GetBody(WHtml,"~","~",False,False) gph=stock end if %> <%Response.Write(gpm)%>股票异动">龙虎榜
- 资金流向
- 股吧
- 大盘BBD
- 新股申购