[html]FunctionGetURL(url)SetRetrieval=CreateObject("Microsoft.XMLHTTP")WithRetrieval.Open"GET",url,False.SendGetURL=bytes2bstr(.responsebody)'对取得信息进行验证,如果信息长度小于100则说明截取失败iflen(.responsebody)<100thenresponse.write"获取远程文件<ahref="&url&"target=_blank>"&url&"</a>失败。"respons...
http://www.jb51.net//article/112.htm
