asp通用采集函数冗余版可以保存文件到本地

<% ‘名称：asp通用采集函数冗余版，要精品版的有心人自己改 ‘作者：柳永法 ‘日期：2007-6-23 Function getHTTPPage(Path)     t = GetBody(Path)     getHTTPPage = BytesToBstr(t, “GB2312”) End Function Function GetBody(url)     On Error Resume Next     Set xmlhttp = CreateObject(“Microsoft