91久久久久久久久_欧美日韩中文_在线观看中文字幕亚洲_夜夜骑首页_精品久久伊人_天天色天天射天天操

當(dāng)前位置:首頁文章首頁 IT學(xué)院 IT技術(shù)

ASP中動態(tài)include文件實例代碼分享

作者:  來源:  發(fā)布時間:2011-6-24 11:57:54  點擊:

提供給大家一個ASP中動態(tài)include文件代碼實例 ,希望能夠?qū)Υ蠹矣杏谩?/p>

受<! #include file="filename.asp" --> 宏限制,必須存在該文件并且會預(yù)先編譯(不管前面是否加以條件)。經(jīng)常有這樣的要求,根據(jù)不同的需求要求include不同的文件,如各個人的不同設(shè)置,所以要求能動態(tài)include文件。

    代碼如下:

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("youinc.asp")

相關(guān)軟件

相關(guān)文章

文章評論

軟件按字母排列: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
主站蜘蛛池模板: 欧美激情小视频 | 性猛交xxxx富婆老太婆 | 一区二区不卡视频 | 国产天天操 | 国产成人免费观看 | 亚洲欧洲视频 | 日韩在线中文字幕 | 亚洲黄色小视频 | 欧美一区二区三区在线视频 | av免费观看在线 | 色污污| 欧美一级日韩一级 | 欧美18免费视频 | 欧美综合一区 | 成人在线一区二区 | 青青伊人网 | 国产成人精品毛片 | 久艹视频在线观看 | 亚洲国产精品久久 | 在线一区二区三区四区 | 国产黄色免费网站 | 黄色av大片 | 久久不雅视频 | 午夜激情影视 | 午夜精品久久 | 精品欧美一区二区三区久久久 | 中文字幕亚洲一区 | 国产一区精品在线观看 | 色哟哟入口国产精品 | 欧美不卡一区二区三区 | 午夜久久精品 | 午夜精品在线 | 91福利网 | 日本高潮视频 | 国产毛片毛片毛片 | 国产一区福利 | 免费视频一区二区 | 欧美在线视频观看 | 日韩久久久久久久 | 免费观看a级片 | 国语对白永久免费 |