<%
if request("code")="" then
gph="600000"
gpm="浦发银行"
Wurl="http://q.stock.sohu.com/app2/bigdeal2.jsp?code=600000"
WHtml=GetHttpPage(Wurl)
WHtml=HTMLEncode(WHtml)
WHtml=LoseATag(WHtml) '去除超链接
WHtml=Replace(WHtml,"//q.stock.sohu.com/cn/","/ddx/")
WHtml=Replace(WHtml,"/index.shtml",".html")
WHtml=Replace(WHtml,"width='100%'","width='1000'")
lhb=GetBody(WHtml,"","
",False,False)
else
stock=request("code")
Wurl="http://q.stock.sohu.com/app2/bigdeal2.jsp?code="&stock&""
WHtml=GetHttpPage(Wurl)
WHtml=HTMLEncode(WHtml)
WHtml=Replace(WHtml,"//q.stock.sohu.com/cn/","/ddx/")
WHtml=Replace(WHtml,"/index.shtml",".html")
WHtml=Replace(WHtml,"width='100%'","width='1000'")
gpm=GetBody(WHtml,"target=_blank>","",False,False)
gph=stock
lhb=GetBody(WHtml,"","
",False,False)
end if
%>
<%=gpm%>(<%=gph%>)大宗交易查询_爱股网
<%=gpm%>(<%=gph%>)大宗交易
<%=lhb%>
<% Server.Execute "../hot/rmgp.asp" %>
