📄 2005414315.htm
字号:
<HTML><HEAD><TITLE>asp提高首页性能的一个技巧-http://www.koyee.com</TITLE>
<SCRIPT src="../../ips.asp"></SCRIPT>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=http://www.koyee.com content=no-cache>
<META content=可以网络在线,ASP技术,.NET技术,delphi技术,JSP技术,VB技术! name=KEYWORDS>
<STYLE type=text/css>
BODY {
BACKGROUND-IMAGE: url(images/webtop_bg3.gif); MARGIN: 0px
}
.style2 {
FONT-SIZE: 12px
}
BODY {
FONT-SIZE: 12px;
COLOR: #333333;
background-image: url();
}
TD {
FONT-SIZE: 12px; COLOR: #333333
}
TH {
FONT-SIZE: 12px; COLOR: #333333
}
A:link {
COLOR: #333333; LINE-HEIGHT: normal; FONT-STYLE: normal; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
A:visited {
COLOR: #cc3399; FONT-STYLE: normal; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
A:hover {
COLOR: #cc66ff; FONT-STYLE: normal; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
A:active {
COLOR: #ff9999; FONT-STYLE: normal; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
.style4 {color: #FFFFFF}
.style5 {color: #000000}
.style6 {color: #FF0000}
.style7 {
color: #FF0000;
font-size: 16px;
font-weight: bold;
}
</STYLE></head>
<script language="JavaScript">
var timerID = null;
var timerRunning = false;
function stopclock (){
if(timerRunning)
clearTimeout(timerID);
timerRunning = false;}
function startclock () {
stopclock();
showtime();}
function showtime () {
var now = new Date();
var year = now.getYear();
var month = now.getMonth()+1;
var day = now.getDate();
var hours = now.getHours();
var minutes = now.getMinutes();
var seconds = now.getSeconds()
var timeValue =year +"年"
timeValue += month+"月"
timeValue += day+"日 "
timeValue += "" +((hours >= 12) ? "下午 " : "上午 " )
timeValue += ((hours >12) ? hours -12 :hours)
timeValue += ((minutes < 10) ? ":0" : ":") + minutes
timeValue += ((seconds < 10) ? ":0" : ":") + seconds
liveclock.innerHTML=timeValue
timerID = setTimeout("showtime()",1000);
timerRunning = true;}
</script>
<body onload="startclock()">
<TABLE height=60 cellSpacing=0 cellPadding=0 width="800"
align=center border=0>
<TBODY>
<TR>
<td background="../../images/webtop_bg.gif" width="332"><a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=61637663&Site=http://www.koyee.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:61637663:13 alt="有事就给我打电话,拼命的打"></a></td>
<td background="../../images/webtop_bg.gif" width="455"><script src="http://www.4.ads99.net/banner.php?userid=chdujian"></script></td>
</TR></TBODY></TABLE>
<TABLE height=25 cellSpacing=0 cellPadding=0 width="800"
align=center border=0>
<TBODY>
<TR>
<td background="../../images/22.gif"> <a href=../../index.htm>首页</a> | <a href=../../artical/69/1.htm>程序设计</a> | <a href=../../artical/77/1.htm>IT行情</a> | <a href=../../artical/78/1.htm>黑客攻防</a> | <a href=../../artical/79/1.htm>电脑硬件</a></td>
</TR></TBODY></TABLE>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td scope="col"><img src="http://www.asp315.com/study/images/index_r1_c1.jpg" width="800" height="83"></td>
</tr>
</table>
<TABLE height=25 cellSpacing=0 cellPadding=0 width="800"
align=center border=0>
<TBODY>
<TR>
<td width="624" bgcolor="#CCCCCC">当前位置:<a href=../../index.htm>首页</a>--><a href=../../artical/69/1.htm>程序设计</a>--><a href=../../artical/80/1.htm>ASP专区</a>-->显示文章内容</td><td width="176" bgcolor="#CCCCCC"><span id="liveclock"></span></td>
</TR></TBODY></TABLE>
<table width="800" height="406" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="166" height="200" valign="top" scope="col"><table width="100%" height="163" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="119" valign="top" scope="col"><table width="180" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="../../search.asp" method="post" name="searchLeftForm">
<tr bgcolor="CAF6F4" align="center">
<td height="25" bgcolor="#CC9900"><font color="#cc0000"><b>□
站 内 搜 索 □</b></font></td>
</tr>
<tr align="center">
<td style="line-height:150%" height=60> 请输入查询的字符串:<br>
<input name="search" type="text" class="button1" id="search" style="width:150">
<select name="seaguan" size="1" class="button1" id="seaguan" style="width:150">
<option value="">==> 综合查询 <==</option>
<option value="title">标题</option>
<option value="断剑">作者</option>
<option value="artical">内容</option>
<%call getNewsBoardTree()%>
</select>
</td>
</tr>
<tr align="center">
<td>
<input type="SUBMIT" name="Action" value=" 查 询 " class="button2">
<input type="RESET" name="Clear" value=" 重 写 " class="button2">
</td>
</tr>
<tr align="center">
<td height="10"></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td height="20"><table width="181" height="20" cellpadding="0" cellspacing="0">
<tr><td width="181" height="20" align="center" bgcolor="#CC9900">分类最新文章</td>
</tr>
<tr><td><a href=2005414529.htm target=_blank>使用正则表达式实现模式图片新</a></td></tr><tr><td><a href=200541450.htm target=_blank>asp常用数据库连接方法和技</a></td></tr><tr><td><a href=2005414428.htm target=_blank>使用简单的方法进行批量删除数</a></td></tr><tr><td><a href=2005414315.htm target=_blank>asp提高首页性能的一个技巧</a></td></tr><tr><td><a href=2005414230.htm target=_blank>ASP防注入之解决方案--加</a></td></tr><tr><td><a href=2005414158.htm target=_blank>使用ASP加密算法加密你的数</a></td></tr><tr><td><a href=2005414120.htm target=_blank>常用ASP自定义函数集</a></td></tr><tr><td><a href=2005414035.htm target=_blank>使用ASP生成HTML文件</a></td></tr><tr><td><a href=20054135956.htm target=_blank>在Flash中使用ASP技术</a></td></tr><tr><td><a href=200533011127.htm target=_blank>在asp中多个虚拟目录 se</a></td></tr>
</table></td>
</tr>
<tr>
<td height="20"><table width="181" height="20" cellpadding="0" cellspacing="0">
<tr><td width="181" height="20" align="center" bgcolor="#CC9900">分类热门文章</td>
</tr>
<tr><td><a href=200532713295.htm target=_blank>断剑新闻系统商业版!</a></td></tr><tr><td><a href=200532115451.htm target=_blank>有关sql注入</a></td></tr><tr><td><a href=200532115410.htm target=_blank>ASP、JSP、PHP 三种</a></td></tr><tr><td><a href=200532014532.htm target=_blank>[原创]关于断剑新闻系统1.</a></td></tr><tr><td><a href=2005320135030.htm target=_blank>[本站原创]用VS.NET封</a></td></tr><tr><td><a href=200532115337.htm target=_blank>改进性能和样式的 24个 A</a></td></tr><tr><td><a href=200532818925.htm target=_blank>初学asp的朋友 asp20</a></td></tr><tr><td><a href=2005414529.htm target=_blank>使用正则表达式实现模式图片新</a></td></tr><tr><td><a href=200532115122.htm target=_blank>用asp自动解析网页中的图片</a></td></tr><tr><td><a href=20053281846.htm target=_blank>DataGrid动态添加模板</a></td></tr>
</table></td>
</tr>
</table></td>
<td width="628" valign="top" scope="col"><table width="100%" border="0" align="center" cellspacing="0" cellpadding="5" bordercolordark="#FFFFFF" bordercolorlight="#000000" style="word-break:break-all;">
<tr>
<td width="100%">
</td>
</tr>
<tr>
<td width="100%">
<div align="center">
<p class="style7"><SPAN class=style1>asp提高首页性能的一个技巧</SPAN></p>
<hr size="1" color="#0a778b" width="100%">
发布时间：2005-4-1 被阅览数：<SCRIPT src="../../counter.asp?id=493"></SCRIPT> 次 作者：断剑
</div>
</td>
</tr>
<tr>
<td width="100%"><p class="style6"><SPAN>简单介绍:一般一个网站的首页访问量是最大的,如果您的网站的首页打开的非常缓慢,您的客户将会陆续离开你的网站.通常我们把需要经过复杂运算或者查询数据库得出的数据缓存起来或者生成静态网页来提高web应用的性能,这次我们直接把首页的输出缓存成一个字符串,然后定时更新,即照顾了性能,又不影响首页的时效性.这里用到了一些VBS自定义类,Application对象,XmlHttp对象,adodb.stream对象的一些东西,相关知识大家可以查资料了解. <BR>最好让这个页和你要缓存的页在一个目录下,要不有些相对路径的图片就无法显示了,另外缓存有的页面会出现乱码,我还不知道怎么解决这个问题呢,可能在Response的时候需要设置一下编码类型,大家可以试试 <BR><BR><% <BR>Dim wawa,StarTime,EndTime <BR>StarTime=Timer() <BR>Set wawa=new Cls_Cache <BR>wawa.Reloadtime=0.5 <BR>wawa.CacheName="wawa" <BR>wawa.Name="XmlInfoIndex" <BR>If wawa.ObjIsEmpty() Then CacheXmlInfoIndex() <BR>Response.Write wawa.value <BR>EndTime=Timer() <BR>Response.Write "<br>执行时间：" & FormatNumber((Endtime-StarTime)*1000,5) & "毫秒。" <BR><BR>Sub CacheXmlInfoIndex() <BR>Dim BodyText, xml <BR>Set xml = Server.CreateObject("Microsoft.XMLHTTP") <BR>'把下面的地址替换成你的首页的文件地址,一定要用http://开头的绝对路径,不能写相对路径 <BR>xml.Open "GET", "http://onlytiancai/bak/vote/InfoIndex.asp", False <BR>xml.Send <BR>BodyText=xml.ResponseBody <BR>BodyText=BytesToBstr(BodyText,"gb2312") <BR>wawa.Value=BodyText <BR>Set xml = Nothing <BR>End Sub <BR>Function BytesToBstr(body,Cset) <BR>dim objstream <BR>set objstream = Server.CreateObject("adodb.stream") <BR>objstream.Type = 1 <BR>objstream.Mode =3 <BR>objstream.Open <BR>objstream.Write body <BR>objstream.Position = 0 <BR>objstream.Type = 2 <BR>objstream.Charset = Cset <BR>BytesToBstr = objstream.ReadText <BR>objstream.Close <BR>set objstream = nothing <BR>End Function <BR>%> <BR><% <BR>'下面这个类可以保存在单独的文件里,然后包含到此页 <BR>Class Cls_Cache <BR>Rem ==================使用说明============================================== <BR>Rem = 本类模块是动网先锋原创，作者：迷城浪子。如采用本类模块，请不要去掉这个说明。这段注释不会影响执行的速度。= <BR>Rem = 作用：缓存和缓存管理类 = <BR>Rem = 公有变量：Reloadtime 过期时间（单位为分钟）缺省值为14400, = <BR>Rem = MaxCount 缓存对象的最大值，超过则自动删除使用次数少的对象。缺省值为300 = <BR>Rem = CacheName 缓存组的总名称，缺省值为"Dvbbs",如果一个站点中有超过一个缓存组，则需要外部改变这个值。 = <BR>Rem = 属性:Name 定义缓存对象名称，只写属性。 = <BR>Rem = 属性:value 读取和写入缓存数据。 = <BR>Rem = 函数：ObjIsEmpty()判断当前缓存是否过期。 = <BR>Rem = 方法：DelCahe(MyCaheName)手工删除一个缓存对象，参数是缓存对象的名称。 = <BR>Rem ================================================================ <BR>Public Reloadtime,MaxCount,CacheName <BR>Private LocalCacheName,CacheData,DelCount <BR>Private Sub Class_Initialize() <BR>Reloadtime=14400 <BR>CacheName="Dvbbs" <BR>End Sub <BR>Private Sub SetCache(SetName,NewValue) <BR>Application.Lock <BR>Application(SetName) = NewValue <BR>Application.unLock <BR>End Sub <BR>Private Sub makeEmpty(SetName) <BR>Application.Lock <BR>Application(SetName) = Empty <BR>Application.unLock <BR>End Sub <BR>Public Property Let Name(ByVal vNewValue) <BR>LocalCacheName=LCase(vNewValue) <BR>End Property <BR>Public Property Let Value(ByVal vNewValue) <BR>If LocalCacheName<>"" Then <BR>CacheData=Application(CacheName&"_"&LocalCacheName) <BR>If IsArray(CacheData) Then <BR>CacheData(0)=vNewValue <BR>CacheData(1)=Now() <BR>Else <BR>ReDim CacheData(2) <BR>CacheData(0)=vNewValue <BR>CacheData(1)=Now() <BR>End If <BR>SetCache CacheName&"_"&LocalCacheName,CacheData <BR>Else <BR>Err.Raise vbObjectError + 1, "DvbbsCacheServer", " please change the CacheName." <BR>End If <BR>End Property <BR>Public Property Get Value() <BR>If LocalCacheName<>"" Then <BR>CacheData=Application(CacheName&"_"&LocalCacheName) <BR>If IsArray(CacheData) Then <BR>Value=CacheData(0) <BR>Else <BR>Err.Raise vbObjectError + 1, "DvbbsCacheServer", " The CacheData Is Empty." <BR>End If <BR>Else <BR>Err.Raise vbObjectError + 1, "DvbbsCacheServer", " please change the CacheName." <BR>End If <BR>End Property <BR>Public Function ObjIsEmpty() <BR>ObjIsEmpty=True <BR>CacheData=Application(CacheName&"_"&LocalCacheName) <BR>If Not IsArray(CacheData) Then Exit Function <BR>If Not IsDate(CacheData(1)) Then Exit Function <BR>If DateDiff("s",CDate(CacheData(1)),Now()) < 60*Reloadtime Then <BR>ObjIsEmpty=False <BR>End If <BR>End Function <BR>Public Sub DelCahe(MyCaheName) <BR>makeEmpty(CacheName&"_"&MyCaheName) <BR>End Sub <BR>End Class <BR>%> <BR></SPAN></p>
<p><img src="http://www.koyee.com/images/dgg.gif" height="70" width="587"> </p></td>
</tr>
<tr>
<td width="628" bordercolor="0" class="font1"><p>
<hr size="1" color="#0a778b" width="100%">
<table><tr><td width="269" align="center">上一篇: <a href=../80/2005414230.htm title=ASP防注入之解决方案--加强版>ASP防注入之解决方案--加强版</a> </td>
<td width="285" align="center">下一篇: <a href=../90/200542823048.htm title=gew>gew</a></td>
</tr></table>
<hr size="1" color="#0a778b" width="100%">
<div align="right"> <a href="javascript:window.print()"><img src="../../images/printer.gif" width="16" height="14" border="0" align="absmiddle">打印本页</a> | <a href="javascript:window.close()"><img src="../../images/close.gif" width="14" height="14" border="0" align="absmiddle">关闭窗口</a> </div>
<p></p></td>
</tr>
</table></td>
</tr>
</table>
<TABLE height=62 cellSpacing=0 cellPadding=0 width="800"
align=center background=../../images/webtop_bg.gif
border=0>
<TBODY>
<TR>
<TD><div align="center" class="style4">Copyright @ 2004-2008 http://www.koyee.com 可以网络在线版权所有<br>
公司地址:江西南昌 电话:13879173467 邮编:330029<br>
email:chenxueyan9999@163.com</div></TD>
</TR></TBODY></TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -