<%‘声明取得目标信息的函数,通过XML组件进行实现。Function GetURL(url) Set Retrieval = CreateObject(“Microsoft.XMLHTTP”) With Retrieval .Open “GET”, url, False.Send GetURL = bytes2bstr(.responsebody)‘对取得信息进行验证,如果信息长度小于100则说明截取失败if len(.responsebody)<100>”&url&”</a>
评论星级较低,若资源使用遇到问题可联系上传者,3个工作日内问题未解决可申请退款~