建站资讯

山东省优秀人才网主页部分静态数据化取得成功

作者:admin 发布时间:2021-04-04

维护保养內容:山东省优秀人才网部分静态数据化取得成功

维护保养方式:

%
 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 涵数完成包括文档动态性化

提升結果:取得成功提升,进攻难题

技术性:站点胶南互联网设计方案工作中室

 


收缩