ASP VBScript 动态包含文件, FSO 实现 By Shawl.qiu

ASP VBScript 动态包含文件, FSO 实现 By Shawl.qiu

刚需要这个功能, 以为好解决, 意外啦...VBScript 真不可思议, 这个功能这么难弄, 费了一整下午, 就为解决动态包含文件的小问题, 可问题不小, 最终还是不太满意的解决掉了. 
Note: 使用什么 if...else, select...case, 那种方法叫做动态吗?

shawl.qiu
2006-7-26

1. linenum
2. <%         dim fso, rall, content
3.     set fso=server.CreateObject("scripting.fileSystemObject")
4.         set rall=fso.openTextFile(server.MapPath("include/managemain/language/"&sitefglang&"/main.asp"))
5.             content=rall.readall
6.         set rall =nothing
7.     set fso=nothing 
8.         content=replace(content,"<%",""):content=replace(content,chr(37)&chr(62),"")
9.         Execute(content) %>

keyword: VBScript dynamic include file 

更简洁的用法:

1. linenum
2. <%         sitebglang="schinese"
3.     execute(CreateObject("scripting.fileSystemObject").openTextFile(server.MapPath("include/managemain/language/"&sitebglang&"/main.asp")).readall)
4.         %>

注意: 在包含文件中不要加入 "<%" 和 "%>"
//当然也可加入, 那需要使用 replace 替换掉.