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