<%
Dim cacheTime,exptime,HttpUrl,StartGet,List
cacheTime=3600 '单位为s秒
'HttpUrl="http://fx.90win.com/dt/am_tips.html"
HttpUrl="http://bf.90win.com/dt/am_tips.html"
exptime="exptime_"&HttpUrl
if application(HttpUrl)<>"" And isDate(application(exptime)) And CDate(application(exptime))>Now() Then
List=application(HttpUrl)
Else
StartGet = GetHttpPage(HttpUrl,"UTF-8")
List=GetBody(StartGet,""," ",false,True)
List=Remove_a(List)
List=replace(List,"background-color: #1c5e84;","")
List=replace(List,"[数据分析]","")
List=replace(List,"width=""700""","width=""780""")
List=replace(List,"width=90%","width=99%")
application.lock
application(HttpUrl)=List
application(exptime)=dateadd("s",cacheTime,Now())
application.unlock
End If
%>