胶南网站建设-青岛志豪网络科技有限公司

青岛志豪网络科技有限公司是专业从事胶南网站建设 网站推广 网站优化 网站改版的公司!

电话:0532-85185109 13153221315  QQ:532856864

胶南网站建设首选的公司---青岛志豪网络科技有限公司胶南办事处!                                                                 留言反馈 | 经典版

网站建设

网站建设套餐 胶南网站建设套餐
网站改版 胶南网站改版
 
山东人才网首页局部静态化成功

维护内容:山东人才网首页局部静态化成功

维护网址:www.sdrc315.com

维护方法:

<%
 urlp=Request.ServerVariables("SERVER_NAME")
b=split(urlp,".")

if b(1)="com" then
k="www"&b(0)
else
k=b(0)&b(1)
end if

 %>
 <%
Function include(filename)
 Dim re,content,fso,f,aspStart,aspEnd
 
 set fso=CreateObject("Scripting.FileSystemObject")
 set f=fso.OpenTextFile(server.mappath(filename))
 content=f.ReadAll
 f.close
 set f=nothing
 set fso=nothing
 
 set re=new RegExp
 re.pattern="^\s*="
 aspEnd=1
 aspStart=inStr(aspEnd,content,"<%")+2
 do while aspStart>aspEnd+1
  Response.write Mid(content,aspEnd,aspStart-aspEnd-2)
  aspEnd=inStr(aspStart,content,"%\>")+2
  Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write "))
  aspStart=inStr(aspEnd,content,"<%")+2
 loop
 Response.write Mid(content,aspEnd)
 set re=nothing
End Function

include("htm/"&k&".htm")
%>

 

通过include 函数实现包含文件动态化

优化结果:成功优化,大大提高了网站打开的速度,一定程度上解决了cc攻击问题

技术:站点胶南网络设计工作室www.websiteqd.cn