Dim PostStr,getContent,getArea

PostStr = "action=mobile&mobile="&MobileNumber

getContent = GetURL("http://www.ip138.com:8080/search.asp",PostStr)

getArea = Replace(Replace(Replace(RegExpText(getContent,"卡号归属地</TD>((.|)*?)</TD>"),"卡号归属地</TD>",""),"<TD width=* align=""center"" class=tdc2>",""),"</TD>,","")

Response.Write(getArea)

高端网站建设价格套餐：

500元成品模板网站套餐1000元基础型网站套餐1800元标准定制设计套餐2800元精美定制设计套餐3800-8000元商务型套餐行业门户型套餐其它定制套餐 文章由重庆一佰互联高端网站建设http://www.yinxi.net编辑整理，转载请注明出处