摘要: //取得动态文件内容Title1FunctionGetHttpPage(HttpUrl,Coding)2OnErrorResumeNext3IfIsNull(HttpUrl)=TrueOrLen(HttpUrl)<18OrHttpUrl=""Then4GetHttpPage=""5ExitFunction6EndIf7DimHttp8SetHttp=Server.CreateObject("MSXML2.XMLHTTP")9Http.Open"GET",HttpUrl,False10Http.Send11If 阅读全文
posted @ 2011-02-24 16:49 龙圆 阅读(550) 评论(0) 推荐(0) 编辑