asp提高首页性能的技巧

<%?
Dim?wawa,StarTime,EndTime?
StarTime=Timer()?
Set?wawa=new?Cls_Cache?
wawa.Reloadtime=0.5?
wawa.CacheName="wawa"?
wawa.Name="XmlInfoIndex"?
If?wawa.ObjIsEmpty()?Then?CacheXmlInfoIndex()?
Response.Write?wawa.value?
EndTime=Timer()?
Response.Write?"<br>执行时间："?&?FormatNumber((Endtime-StarTime)*1000,5)?&?"毫秒。"?

Sub?CacheXmlInfoIndex()?
?Dim?BodyText,?xml?
?Set?xml?=?Server.CreateObject("Microsoft.XMLHTTP")?
?'把下面的地址替换成你的首页的文件地址,一定要用http://开头的绝对路径,不能写相对路径?
?xml.Open?"GET",?"http://onlytiancai/bak/vote/InfoIndex.asp",?False?
?xml.Send???
?BodyText=xml.ResponseBody?
?BodyText=BytesToBstr(BodyText,"gb2312")?
?wawa.Value=BodyText?
Set?xml?=?Nothing?
End?Sub?
Function?BytesToBstr(body,Cset)?
????????dim?objstream?
????????set?objstream?=?Server.CreateObject("adodb.stream")?
????????objstream.Type?=?1?
????????objstream.Mode?=3?
????????objstream.Open?
????????objstream.Write?body?
????????objstream.Position?=?0?
????????objstream.Type?=?2?
????????objstream.Charset?=?Cset?
????????BytesToBstr?=?objstream.ReadText??
????????objstream.Close?
????????set?objstream?=?nothing?
End?Function?
%>?
<%?
'下面这个类可以保存在单独的文件里,然后包含到此页?
Class?Cls_Cache?
?Rem?==================使用说明==============================================?
?Rem?=?本类模块是动网先锋原创，作者：迷城浪子。如采用本类模块，请不要去掉这个说明。这段注释不会影响执行的速度。=?
?Rem?=?作用：缓存和缓存管理类??????????????????????????????????????????????????????????????????????????????????=?
?Rem?=?公有变量：Reloadtime?过期时间（单位为分钟）缺省值为14400,???????????????????????????????????????????????=?
?Rem?=?MaxCount?缓存对象的最大值，超过则自动删除使用次数少的对象。缺省值为300??????????????????????????????????=?
?Rem?=?CacheName?缓存组的总名称，缺省值为"Dvbbs",如果一个站点中有超过一个缓存组，则需要外部改变这个值。????????=?
?Rem?=?属性:Name?定义缓存对象名称，只写属性。??????????????????????????????????????????????????????????????????=?
?Rem?=?属性:value?读取和写入缓存数据。?????????????????????????????????????????????????????????????????????????=??
?Rem?=?函数：ObjIsEmpty()判断当前缓存是否过期。????????????????????????????????????????????????????????????????=?
?Rem?=?方法：DelCahe(MyCaheName)手工删除一个缓存对象，参数是缓存对象的名称。???????????????????????????????????=?
?Rem?================================================================?
?Public?Reloadtime,MaxCount,CacheName?
?Private?LocalCacheName,CacheData,DelCount?
?Private?Sub?Class_Initialize()?
??Reloadtime=14400?
??CacheName="Dvbbs"?
?End?Sub?
?Private?Sub?SetCache(SetName,NewValue)?
??Application.Lock?
??Application(SetName)?=?NewValue?
??Application.unLock?
?End?Sub??
?Private?Sub?makeEmpty(SetName)?
??Application.Lock?
??Application(SetName)?=?Empty?
??Application.unLock?
?End?Sub??
?Public??Property?Let?Name(ByVal?vNewValue)?
??LocalCacheName=LCase(vNewValue)?
?End?Property?
?Public??Property?Let?Value(ByVal?vNewValue)?
??If?LocalCacheName<>""?Then??
???CacheData=Application(CacheName&"_"&LocalCacheName)?
???If?IsArray(CacheData)??Then?
????CacheData(0)=vNewValue?
????CacheData(1)=Now()?
???Else?
????ReDim?CacheData(2)?
????CacheData(0)=vNewValue?
????CacheData(1)=Now()?
???End?If?
???SetCache?CacheName&"_"&LocalCacheName,CacheData?
??Else?
???Err.Raise?vbObjectError?+?1,?"DvbbsCacheServer",?"?please?change?the?CacheName."?
??End?If???
?End?Property?
?Public?Property?Get?Value()?
??If?LocalCacheName<>""?Then??
???CacheData=Application(CacheName&"_"&LocalCacheName)??
???If?IsArray(CacheData)?Then?
????Value=CacheData(0)?
???Else?
????Err.Raise?vbObjectError?+?1,?"DvbbsCacheServer",?"?The?CacheData?Is?Empty."?
???End?If?
??Else?
???Err.Raise?vbObjectError?+?1,?"DvbbsCacheServer",?"?please?change?the?CacheName."?
??End?If?
?End?Property?
?Public?Function?ObjIsEmpty()?
??ObjIsEmpty=True?
??CacheData=Application(CacheName&"_"&LocalCacheName)?
??If?Not?IsArray(CacheData)?Then?Exit?Function?
??If?Not?IsDate(CacheData(1))?Then?Exit?Function?
??If?DateDiff("s",CDate(CacheData(1)),Now())?<?60*Reloadtime??Then?
???ObjIsEmpty=False?
??End?If?
?End?Function?
?Public?Sub?DelCahe(MyCaheName)?
??makeEmpty(CacheName&"_"&MyCaheName)?
?End?Sub?
End?Class?
%>?