新股申购一览表新股发行中签号查询新股在线

<% dim page,dir1 if request("page")="" then Wurl="http://www.southmoney.com/gupiao/newstock/" WHtml=GetHttpPage(Wurl) WHtml=HTMLEncode(WHtml) WHtml1=GetHttpPage(Wurl) WHtml1=HTMLEncode(WHtml1) WHtml=Replace(WHtml,"南方财富网","") WHtml=Replace(WHtml,"href='/gupiao/newstock/"," target='_blank' href='/xgzx/news.asp?dir=") nr=GetBody(WHtml,"

","",False,False) WHtml1=GetHttpPage(Wurl) WHtml1=HTMLEncode(WHtml1) WHtml1=Replace(WHtml1,"list_7_","?page=") WHtml1=Replace(WHtml1,".html'>","'>") WHtml1=Replace(WHtml1,"

","") WHtml1=Replace(WHtml1,"

","") fy=GetBody(WHtml1,"

","",False,False) else dir1=request("page") Wurl="http://www.southmoney.com/gupiao/newstock/list_7_"&dir1&".html" WHtml=GetHttpPage(Wurl) WHtml=HTMLEncode(WHtml) WHtml1=GetHttpPage(Wurl) WHtml1=HTMLEncode(WHtml1) WHtml=Replace(WHtml,"南方财富网","") WHtml=Replace(WHtml,"href='/gupiao/newstock/"," target='_blank' href='/xgzx/news.asp?dir=") nr=GetBody(WHtml,"

","",False,False) WHtml1=GetHttpPage(Wurl) WHtml1=HTMLEncode(WHtml1) WHtml1=Replace(WHtml1,"list_7_","?page=") WHtml1=Replace(WHtml1,".html'>","'>") WHtml1=Replace(WHtml1,"

","") WHtml1=Replace(WHtml1,"

","") fy=GetBody(WHtml1,"

","",False,False) end if %> 新股申购一览表新股发行中签号查询新股在线_爱股网手机版

新股在线

新股申购一览表

新股申购流程

<% Server.Execute "xg.asp" %>

提示：手指可以点在表的某一行，出现背景标识，左右滑动查看全表。

新股发行申购最新消息

<%=nr%>

<%=fy%>