Bu dersimizde sizlerle dinamik include hazırlamayı göstermeye çalışacağız. Bunun için örnek bir uygulama hazırlayalım . Bu örneğimizde kullanacağız dil ise VBScript‘ dir. Kod: <% Sub Include(strDosya) SET FSO = Server.CreateObject(”Scripting.FileSystemObject”) ‘=> Dosya sistemi nesnemizi yarattık. SET Oku = Fso.OpenTExtFile(Server.Mappath(strDosya)) ‘include yapacağımız dosyayı açtık strKodlar = Oku.ReadAll ‘=> Kodlarımızı aldık Oku.Close ‘=> Nesnemizi durdurduk. Set oku = Nothing ‘=> Nesnemizi temizledik. Set Fso = NoThing ‘=> Nesnemizi temizledik. Execute(strKodlar) ‘=> Kodlarımı çalıştırdık. End Sub %> Yukarıdaki işlemi yaptıktan sonra Respose.Write yapmanız gerekmektedir.
