% 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资料,603377,603377,603377股票,603377股票" /> <% 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)%>(603377)股票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)%>(603377)的F10资料数据。" />