这个提高首页速度的方法是让首页的数据从文件读取而不是从数据库中读取,主要用于需要在首页显示新闻标题列表和其他栏目的标题列表,方法的思路就是在保存着这些东西的内容时,同时从数据库中读出要在首页显示的标题,并将标题生成一个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文件即可以。
在需要的地方插入
<script language=JavaScript src=/news_js/TitleLIst.js></script>
"")")
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 ["& Year(Rsjs3("InputDate")) &"-"& datem &"-"& Dated &"]"
datetime="[" & datem &"-"& Dated &"]"
'if Rsjs3("image")=>1 then
'img=""
'else
img=""
'end if
Title=Trim(Rsjs3("title"))
Title=replace(Title,"
","")
Title=replace(Title,"
","")
STR1=""
if year(Rsjs3("InputDate"))=year(date()) and month(Rsjs3("InputDate"))=month(date()) and day(Rsjs3("InputDate"))=day(date()) then
HasImg = True
ImgStr=""
else
HasImg=False
ImgStr=""
'STR1=STR1&""
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&""&datetime&img
STR1=STR1&ImgStr
JSFile.writeline("document.write(""
JSFile.writeline("document.write(""
JSFile.writeline("document.write("" "")")
JSFile.writeline("document.write(""" & Str1 & """)")
JSFile.writeline("document.write(""
"")")
JSFile.writeline("document.write(""
JSFile.writeline("document.write(""" & datetime & """)")
JSFile.writeline("document.write(""
"")")
JSFile.writeline("document.write(""
"")")
end if
i = i +1
Rsjs3.MoveNext
wend
JSFile.writeline("document.write(""
"")")
Rsjs3.Close
set Rsjs3=nothing
set JSFile=nothing
set fs=nothing
%>
"")")
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 ["& Year(Rsjs3("InputDate")) &"-"& datem &"-"& Dated &"]"
datetime="[" & datem &"-"& Dated &"]"
'if Rsjs3("image")=>1 then
'img=""
'else
img=""
'end if
Title=Trim(Rsjs3("title"))
Title=replace(Title,"
","")
Title=replace(Title,"
","")
STR1=""
if year(Rsjs3("InputDate"))=year(date()) and month(Rsjs3("InputDate"))=month(date()) and day(Rsjs3("InputDate"))=day(date()) then
HasImg = True
ImgStr=""
else
HasImg=False
ImgStr=""
'STR1=STR1&""
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&""&datetime&img
STR1=STR1&ImgStr
JSFile.writeline("document.write(""
JSFile.writeline("document.write(""
JSFile.writeline("document.write("" "")")
JSFile.writeline("document.write(""" & Str1 & """)")
JSFile.writeline("document.write(""
"")")
JSFile.writeline("document.write(""
JSFile.writeline("document.write(""" & datetime & """)")
JSFile.writeline("document.write(""
"")")
JSFile.writeline("document.write(""
"")")
end if
i = i +1
Rsjs3.MoveNext
wend
JSFile.writeline("document.write(""
"")")
Rsjs3.Close
set Rsjs3=nothing
set JSFile=nothing
set fs=nothing
%>