asp中includefile包含其他文件

vbs中

复制代码 代码如下:

OptionExplicit

OnErrorResumeNext

Subinclude(vbs)

Dimfso:Setfso=CreateObject("scripting.FileSystemObject")

Dimp:p=Split(Wscript.ScriptFullName,"")

p(UBound(p))=vbs

p=Join(p,"")

Dimf:Setf=fso.OpenTextFile(p)

Executef.ReadAll()

'ExecuteGlobalf.ReadAll()

f.Close()

Setf=Nothing

Setfso=Nothing

'Wscript.Echo(p)

EndSub

include("1.vbs")

include("2.vbs")

'IfErrThen

'Wscript.Echo(Err.description)

'Wscript.Quit()

'EndIf

Wscript.Echo(a+b)

1.vbs

a=3

2.vbs

b=4