摘要:
//取得动态文件内容Title1FunctionGetHttpPage(HttpUrl,Coding)2OnErrorResumeNext3IfIsNull(HttpUrl)=TrueOrLen(HttpUrl)<18OrHttpUrl=""Then4GetHttpPage=""5ExitFunction6EndIf7DimHttp8SetHttp=Server.CreateObject("MSXML2.XMLHTTP")9Http.Open"GET",HttpUrl,False10Http.Send11If 阅读全文