<%

jnkcUrl="http://ewhois.cnnic.net.cn/whois?value=pc.com.cn&entity=domain"

           Dim  jnkcXMLHTTP  
           Set  jnkcXMLHTTP  =  Server.CreateObject("Microsoft.XMLHTTP")  
                       jnkcXMLHTTP.Open  "GET",  jnkcUrl,  False,  "",  ""  
                       jnkcXMLHTTP.Send  
                       GetDetail  =  jnkcXMLHTTP.ResponseText  
           Set  jnkcXMLHTTP  =  Nothing  


 
	Response.Write GetDetail
	 %>





























