多くの場合、さまざまなニーズに応じて、さまざまなファイルが含まれています、ダイナミックを含むという要件は、<!
ファイルが存在する必要があり、条件が先行するかどうかに関係なく、事前補償されます)
多くの場合、さまざまな要件に応じた異なるファイルを含むそのような要件があります
各個人の設定が異なる場合、ファイルを動的に含める必要があります。
コードは次のとおりです。
| function include(filename) dim re、content、fso、f、aspstart、aspend fso = createObject(scripting.filesystemObject)をset f = fso.opentextfile(server.mappath(filename))を設定します content = f.readall f.close f =何も設定しません FSO =何も設定しません re = new regexpを設定します re.pattern =^/s*= Aspend = 1 ASPSTART = Instr(Aspend、Content、<%)+2 aspstart> aspend+1を実行します Response.Write Mid(content、aspend、aspstart-aspend-2) aspend = strunt(aspstart、content、%/>)+2 execute(re.replace(Mid(content、aspstart、aspend-aspstart-2)、respons.write))) ASPSTART = Instr(Aspend、Content、<%)+2 ループ Response.Write Mid(content、aspend) re =何も設定しません エンド関数 |
使用例:
含める(youinc.asp) |