提高网站首页的下载速度—–从文件读取数据

现在的位置: 首页 > 综合 > 正文

提高网站首页的下载速度—–从文件读取数据

2013年02月02日 ⁄ 综合 ⁄ 共 5686字 ⁄ 字号小中大 ⁄ 评论关闭

网站的首页的下载速度对于一个网站的形象至关重要，较快的现在速度，不但节省了用户的时间，而且使用户有一个愉快的心情；反之，如果，速度太慢，超过了用户的忍耐度，他可能就会痛苦的离去，

。相信我们都会有这样的体验了。

这个提高首页速度的方法是让首页的数据从文件读取而不是从数据库中读取，主要用于需要在首页显示新闻标题列表和其他栏目的标题列表，方法的思路就是在保存着这些东西的内容时，同时从数据库中读出要在首页显示的标题，并将标题生成一个js文件，这样只需在首页直接引用这个js文件就可以了。

具体过程如下：（CreateNews.asp）
第一步，新闻保存到数据库，insert语句操作即可。
第二步，从数据库中读取新闻标题、相关链接等字段。
//连接数据库
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=localhost;DRIVER={SQL Server};UID=sa;PWD=123"

//将新闻标题生成一个js文件

set Rsjs3=server.CreateObject("ADODB.RecordSet")

Rsjs3.Source="select top 10 ID,Title,type as BigClassName,SmallClassName,InputDate,HitCounts AS Click,image,InputDate,Content from CPA_Info "

Rsjs3.Open Rsjs3.Source,conn,1,1

set fs=server.CreateObject("Scripting.FileSystemObject")

FilePath=server.MapPath("TitleList.js")//要生成的js文件名称，

set JSFile=fs.CreateTextFile(FilePath)//如果文件存在则重写，不存在则创建

JSFile.writeline("document.write(""<table width='100%' border='0' cellspacing='0' cellpadding='0' align=left>"")")

i = 0

while not Rsjs3.EOF

if i >= 0 then

BigClassName= Trim(Rsjs3("BigClassName"))

SmallClassName=Trim(Rsjs3("SmallClassName"))

newsurl="ReadNews.asp?ID=" & Rsjs3("ID") & "&BigClassName=" & Trim(Rsjs3("BigClassName")) & "&SmallClassName=" & Trim(Rsjs3("SmallClassName"))

datem=Month(Rsjs3("InputDate"))

if datem < 10 then

datem="0"&CStr(datem)

end if

dated=Day(Rsjs3("InputDate"))

if dated < 10 then

dated="0"&CStr(dated)

end if

datetime="<font class=middle>[" & datem &"-"& Dated &"]</font>"

img=""

Title=Trim(Rsjs3("title"))

Title=replace(Title,"<BR>","")

Title=replace(Title,"<br>","")

STR1="<a class=lan href='"&newsurl&"' title='"&Title&"' target='_blank'>"

if year(Rsjs3("InputDate"))=year(date()) and month(Rsjs3("InputDate"))=month(date()) and day(Rsjs3("InputDate"))=day(date()) then

HasImg = True

ImgStr="<img src='img/new.gif' width='33' height='11' border='0'>"

else

HasImg=False

ImgStr=""

end if

if HasImg then

TheLength = 23

else

TheLength = 26

end if

if len(Title)>TheLength then

STR1=STR1&left(Title,TheLength)&".."

else

STR1=STR1&Title

end if

STR1 = "  "&STR1

STR1=STR1&ImgStr

JSFile.writeline("document.write("" <tr>"")")

JSFile.writeline("document.write("" <td width='88%' height='23'>"")")

JSFile.writeline("document.write(""  <IMG src='images/jiantou1.gif'><FONT color=#326cb3>"")")

JSFile.writeline("document.write(""" & Str1 & "</FONT>"")")

JSFile.writeline("document.write("" </td>"")")

JSFile.writeline("document.write("" <td vAlign=bottom align=right width='12%'><FONT color=#999999>"")")

JSFile.writeline("document.write(""" & datetime & """)")

JSFile.writeline("document.write("" </FONT></td>"")")

JSFile.writeline("document.write("" </tr>"")")

end if

i = i +1

Rsjs3.MoveNext

wend

JSFile.writeline("document.write(""</table>"")")

Rsjs3.Close

set Rsjs3=nothing

set JSFile=nothing

set fs=nothing

第三步：在首页调用这个js文件即可以。

在需要的地方插入