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